Guest_imported
New member
- Jan 1, 1970
- 0
I have a class where the following code is the datasource for my form. I am successfully retrieving the records from the table but when I am attempting to save any changes I am getting a update_Batch on recordset failed message<br>
<br>
Private Sub Class_Initialize()<br>
Dim db As Connection<br>
Set db = New Connection<br>
db.CursorLocation = adUseClient<br>
db.Open "dsn=BOB;uid=BOBTEST;pwd=BOBTEST;"<br>
Set adoPrimaryRS = New Recordset<br>
adoPrimaryRS.Open "select * FROM units ", db, adOpenStatic, adLockOptimistic<br>
<br>
<br>
DataMembers.Add "Primary"<br>
End Sub<br>
<br>
Private Sub Class_Initialize()<br>
Dim db As Connection<br>
Set db = New Connection<br>
db.CursorLocation = adUseClient<br>
db.Open "dsn=BOB;uid=BOBTEST;pwd=BOBTEST;"<br>
Set adoPrimaryRS = New Recordset<br>
adoPrimaryRS.Open "select * FROM units ", db, adOpenStatic, adLockOptimistic<br>
<br>
<br>
DataMembers.Add "Primary"<br>
End Sub<br>