|
![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif)
How do lock a file in VB6 without hardcoding to append a .lock ext to the file name?
How do i unlock? Pls help
|
|
|
|
|
What do you mean by lock? It doesn't sound like the standard definition of the term. Besides, using .lock just changes the file extension, not any exclusive rights to the file.
Are you trying to get exclusive access to the file? If so, then your Open statement should look something like:
Open "filename.ext" For Binary Access Read Lock Read Write As #1
Use whatever File Mode and Access you want, but the important part is the Lock modifier.
RageInTheMachine9532
|
|
|
|
|
hi RageInTheMachine9532,
you r right i dint mean the std locking of files. i want many app instances to share a folder of .tif files. if app1 is using a file, it renames it with a .lock ext so app2 knows it is being modified by checking the ext.
before an app exits, it renames files its been using from .lock to .tif.
problem is if app1 crashes, the files remain with a .lock ext n neither app1 nor app2 can use them!
how do i handle this? i mean without resorting to the normal windows locking..
![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
|
|
|
|
|
Well, the locking is the only "sure" way to control file access and you don't have to deal with renaming stuff back when you crash.
The problem you have is this:
When AppInstance1 checks for the availability of File1.tif, it's there. The next step, is for it to rename File1.tif to File1.locked. But, What if AppInstance2 found that File1.tif was available at (nearly) the same time, say, between AppInstance1 finding the file and renaming it? In this case, BOTH instances will find the file, but only one will succeed in renaming it. How is this case handled?
It's too much of a pain to write your own file locking scheme when Windows has locking built in. It also has the advantage of being "thread safe", where your custom scheme does not.
RageInTheMachine9532
|
|
|
|
|
hi..i have still problem with chart,the problem how too generate graph from database,example access
adhizz
|
|
|
|
|
hi Adhizzz. i hope this helps
Print a Microsoft Access report from VB 6.0
As you may know, Microsoft Access provides a much more robust reporting
system than Visual Basic. As a result, if you use Access as a back-end
to your application, you may want to print Access reports from your VB
application. Fortunately, you can do just that with Automation.
The following code shows one way to do so, using late binding. remember to replace dbName and rptName with correct values:
Dim objAccess As Object
Private Sub Command1_Click()
Dim dbName As String
Dim rptName As String
Dim Preview As Long
Const acNormal = 0
Const acPreview = 2
dbName = "D:\PathToDB\db1.mdb"
rptName = "MyReportName"
Preview = acPreview 'acNormal
With objAccess
.OpenCurrentDatabase filepath:=dbName
If Preview = acPreview Then
.Visible = True
.DoCmd.OpenReport rptName, Preview
Else
.DoCmd.OpenReport rptName
End If
End With
End Sub
Private Sub Form_Load()
Set objAccess = CreateObject("Access.Application")
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
objAccess.Quit
On Error GoTo 0
Set objAccess = Nothing
End Sub
|
|
|
|
|
hi Adhizzz. i hope this helps
Print a Microsoft Access report from VB 6.0
As you may know, Microsoft Access provides a much more robust reporting
system than Visual Basic. As a result, if you use Access as a back-end
to your application, you may want to print Access reports from your VB
application. Fortunately, you can do just that with Automation.
The following code shows one way to do so, using late binding. remember to replace dbName and rptName with correct values:
Dim objAccess As Object
Private Sub Command1_Click()
Dim dbName As String
Dim rptName As String
Dim Preview As Long
Const acNormal = 0
Const acPreview = 2
dbName = "D:\PathToDB\db1.mdb"
rptName = "MyReportName"
Preview = acPreview 'acNormal
With objAccess
.OpenCurrentDatabase filepath:=dbName
If Preview = acPreview Then
.Visible = True
.DoCmd.OpenReport rptName, Preview
Else
.DoCmd.OpenReport rptName
End If
End With
End Sub
Private Sub Form_Load()
Set objAccess = CreateObject("Access.Application")
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
objAccess.Quit
On Error GoTo 0
Set objAccess = Nothing
End Sub
|
|
|
|
|
Hello Sir,
I have been assigned a task to auto mate a school system. i.e. Timetabling issues, Teacher Replacemts, Employee Attendances(HR), Exam control and Student Records...
although .. i have analysed almost everything.. database tables are finalized as well...
but coz of being untouch with all this development issue since a year.. i am just strugling as to how and where to start design and development of the software....?
if anyone having idea about this kind of software? please help me ...
or i would be grateful if anyone can come up and exchange emails with me regarding this project... i mean, the one, who can help me step by step..as how to start
i'll be using VB.NET and SQL Server...
thanks ..
All Praises are for the Lord of the universe...
Regards,
Tahir
|
|
|
|
|
My advise to you is prioritize. Seems to me that the functionalities you describe can best be split in several solitary programs. Prioritize and start from there.
Grtz, Guus
|
|
|
|
|
Yes! I am trying to priortize the functionalities...
looking for Teacher and Student Records Managent at first hand...
but still kind of confused.. 
any more suggestions please?
thank you
|
|
|
|
|
I'm doing a project to write a system using Vb6.0. The system is very simple but for me is very hard. The most difficult part is to comes out with chart. The chart is to analyze the stocks. The system is a system for a shop seeling clothes one..Anyone can help pls reply. Thanks
|
|
|
|
|
Your question puzzles me slightly. But from what i understand is that you need to produce some sort of chart.
Excel is equipped with a wide range of charts. Use code to populate an Excel spreadsheet and open it.
Grtz Guus
|
|
|
|
|
I have written a small script in VBA which I need to deploy to a number of machines on a network.
Is there an easier way other than manually importing a .bas file into Outlook?
I found reference to a program called Desktop.VBA but every link on every site I found pointed to the same dead server...
Any and all help would be greatly appreciated.
Cheers,
Simon.
|
|
|
|
|
I need help i have a firewall, and some one keeps trying to connect to my comp, i need help getting back at this person so if anyone has any ideas please let me know? I have the persons IP Address. Thanks guys for all help
|
|
|
|
|
Simple. Find out who owns the IP address this person is using and report them. ANything you do to the other guy carries the risk that your going to get busted.\
RageInTheMachine9532
|
|
|
|
|
alright i appreciate that, and i did figuare out how to report it and i already did. I hope that works and again thanks for your help
|
|
|
|
|
plz sir help me how can i connect with data base with out using controls.
|
|
|
|
|
Take a look at the System.Data namespace.
If you are using SQL Server, read about System.Data.SqlClient, if not, System.Data.OleDB.
Free your mind...
|
|
|
|
|
Or when you are using a connection string in VB go to http://www.connectionstring.com
Grtz Guus
|
|
|
|
|
hello i got little problem
okay u now see the main form
i click button
it opens another form lets says its form2
in form2 there is also button than open form3
in form3 there is close button
when i click on it
it close both form2 and 3
i want only to close form3 and let form2 opened?
how can i do this?
im using
Dim something As new form2
something.show
somebody help me plz
thanks
|
|
|
|
|
hi samerali,
i don get your problem. with form1, form2 n form3 as u describe, this code works for me the way u want. assume each form has a button1:
'//in form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NewChild As New Form2()
'Display the new form.
NewChild.Show()
End Sub
'//form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NewChild As New Form3()
'Display the new form.
NewChild.Show()
End Sub
'//form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
|
|
|
|
|
I need help developing a firewall in vb 6.0
|
|
|
|
|
Hello
Please let me know the cursor attributes of the data recieved by telnet using Winsock. I mean the cursor location is updatebale or just readonly. For example if we connect to the server , it returns UserName : ABCDEF
Here the cursor atteched to UserName is read only & the cursor attached to ABCDEF is read write where in one can change the contents.
Please let me know the curcor attributes in VB using Winsock
|
|
|
|
|
I am creating a league table and i was wondering whether anyone would have some code which is relevant to what i want to do. I am creating the program in VB 6 and i have to finish this prgram soon because this is what im going to use when i begin my own league. My prgram should allow me to enter results which then works out the league table. i need help so plz try ur best to supply me with a readily made program or some code thanx
|
|
|
|
|
Hi all!
I am currently trying to create some simple interactive games using VB 6. I came across this Map OLE control whereby when the user clicks on certain region of a picture, the program will be able to detect and pop a msg out.
However this OLE control can't seem to load on my VB 6 because it was meant for VB 4.
Much help is needed here.
thank alot!!!!
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
