How To Keep RDO Cursor Open After Transaction

MORE INFORMATION

Visual Basic 6.0 Step-by-Step Example

1. Start a new project in Visual Basic and choose "Standard EXE." Form1 is created by default.
2. On the Project menu, click References, and then select Microsoft Remote Data Object 2.0.
3. Add a CommandButton to Form1.
4. Paste the following code in the General Declaration section of Form1:

         Option Explicit
   
         Const SQL_PRESERVE_CURSORS As Long = 1204
         Const SQL_PC_ON As Long = 1
   
         Private Declare Function SQLSetConnectOption Lib "odbc32.dll" (ByVal
            hdbc&, ByVal fOption%, ByVal vParam As Any) As Integer
         Dim WithEvents cn As rdoConnection
         Dim rs As rdoResultset
   
         Private Sub cn_BeforeConnect(ConnectString As String, Prompt As
           Variant)
            Dim intRet As Integer
            intRet = SQLSetConnectOption(cn.hdbc, SQL_PRESERVE_CURSORS,
             SQL_PC_ON)
         End Sub
   
         Private Sub Command1_Click()
            Dim strConnect As String
            Set cn = New rdoConnection
            strConnect = "DRIVER={SQL
              Server};SERVER=MyServer;DATABASE=pubs;UID=<username>;PWD=<strong password>"
            cn.Connect = strConnect
            cn.EstablishConnection
            Set rs = cn.OpenResultset("SELECT * FROM authors", rdOpenKeyset,
              rdConcurValues)
   
            cn.BeginTrans
            rs.Edit
            rs(1) = "Vermont"
            rs.Update
            cn.CommitTrans
            Debug.Print rs(1)
         End Sub
   
   						

Visual Basic 5.0 Step-by-Step Example

1. Start a new project in Visual Basic and choose "Standard EXE." Form1 is created by default.
2. On the Project menu, click References, and then select Microsoft Remote Data Object 2.0.
3. Add a CommandButton to Form1.
4. Paste the following code in the General Declaration section of Form1:

         Option Explicit
   
         Dim cn As rdoConnection
         Dim rs As rdoResultset
   
         Private Sub Command1_Click()
            Dim strConnect As String
            Set cn = New rdoConnection
            strConnect = "Driver={SQL
              Server};Server=yourserver;Database=Pubs;Uid=<username>;Pwd=<strong password>;"
            With cn
              .CursorDriver = rdUseServer
              .Connect = strConnect
              .EstablishConnection
            End With
            Set rs = cn.OpenResultset("Select * from Authors", rdOpenKeyset, _
               rdConcurValues)
   
            cn.Execute "Begin Transaction", rdExecDirect
            Debug.Print rs(1)
            rs.Edit
            rs(1) = "Vermont"
            rs.Update
            cn.Execute "Commit Transaction", rdExecDirect
            Debug.Print rs(1)
         End Sub