Article ID: 181715
Article Last Modified on 1/9/2003
-or-
Private Sub Command1_Click()
Dim cn As rdoConnection, rs As rdoResultset
rdoEngine.rdoDefaultCursorDriver = rdUseClientBatch
Set cn = rdoEngine(0).OpenConnection("NWIND", rdDriverComplete, _
False, "")
Set rs = cn.OpenResultset( _
"SELECT employeeid, notes, lastname FROM Employees", _
rdOpenStatic, rdConcurRowVer, rdExecDirect)
Do While Not rs.EOF
Debug.Print rs!EmployeeID, rs!LastName, Len(rs!Notes), rs!Notes
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub
rs!EmployeeID.SourceTable = "Employees"
rs!EmployeeID.KeyColumn = True
rs!Notes.SourceTable = "Employees"
Additional query words: upper lower kbRDO kbODBC kbVBp500 kbVBp600 kbdse kbDSupport kbVBp
Keywords: kbprb kbgrpdsvbdb KB181715