May 20th, 2000, 03:33 AM
Hello All,
Well here's a good one.
I used VB's Dataform Wizard to make a sample form to test the connection to a Parodox 4.5 table. I ran it, it worked ok (a little slow though) but it did infact work. I could move in the table, add to the table and delete records from the table. I closed the project, then reopened it about a half hour later and now I can't even connect to the table. Below is my connection code, if you see something wrong please let me know.
Private Sub Class_Initialize()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=Parodox 4.x;uid=;pwd=;database=F:\APPS\CAIMS\DB\Customer.db;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from CUSTOMER", db, adOpenStatic, adLockOptimistic
DataMembers.Add "Primary"
End Sub
Thank you in advance,
Well here's a good one.
I used VB's Dataform Wizard to make a sample form to test the connection to a Parodox 4.5 table. I ran it, it worked ok (a little slow though) but it did infact work. I could move in the table, add to the table and delete records from the table. I closed the project, then reopened it about a half hour later and now I can't even connect to the table. Below is my connection code, if you see something wrong please let me know.
Private Sub Class_Initialize()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=Parodox 4.x;uid=;pwd=;database=F:\APPS\CAIMS\DB\Customer.db;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from CUSTOMER", db, adOpenStatic, adLockOptimistic
DataMembers.Add "Primary"
End Sub
Thank you in advance,