FIX: Error Updating adUseClient Cursor Based on MDB Query

Steps to Reproduce Behavior

1. Create a user DSN that points to the Nwind.mdb file.
2. Create a "Standard EXE" project in Visual Basic.
3. On the Project menu, click References, and select Microsoft ActiveX Data Objects Library.
4. Copy and paste the following code into the formForm_Load()event.

      Dim con As ADODB.Connection
      Dim com As ADODB.Command
      Dim res As ADODB.Recordset
      Dim par As ADODB.Parameter
   
      Set con = New ADODB.Connection
      Set com = New ADODB.Command
      Set res = New ADODB.Recordset
   
      con.ConnectionString = "dsn=nwind;usid=admin;pwd=;"
      ' Comment the next line to go around the Update error   
      con.CursorLocation = adUseClient
      con.Open
   
      set com.ActiveConnection = con
      com.CommandText = "{call Invoices}"
      com.CommandType = adCmdText
   
      res.Open com, , adOpenStatic, adLockOptimistic, -1
      res(1) = "test"
      res.Update 'This line causes the error.
   
      res.Close
      con.Close
      Set res = Nothing
      Set com = Nothing
      Set con = Nothing

Back to the top