Article ID: 149057
Article Last Modified on 6/28/2004
Private Sub Command1_Click()
Dim en As rdoEnvironment
Dim cn As rdoConnection
Dim rs As rdoResultset
Dim sql As String
'establish connection
Set en = rdoEngine.rdoEnvironments(0)
en.CursorDriver = rdUseIfNeeded
'this should be modified to connect to your database
Dim cnStr As String
cnStr = "driver={SQL Server};server=myserver;" & _
"database=pubs;uid=myuid;pwd=mypwd"
Set cn = en.OpenConnection(dsName:="", Prompt:=rdDriverNoPrompt, _
ReadOnly:=False, Connect:=cnStr)
'create an SQL statement that matches a table in your database
sql = "Select * From Titles"
'the next line opens a Dynamic resultset
Set rs = cn.OpenResultset(Name:=sql, Type:=rdOpenDynamic, _
LockType:=rdConcurRowver, Option:=rdAsyncEnable)
While rs.StillExecuting
DoEvents
Wend
'prints first 3 columns of the first row
Me.Print rs(0), rs(1), rs(2)
End Sub
Additional query words: kbVBp400 kbVBp600 kbdse kbDSupport kbVBp kbVBp500 kbrdo
Keywords: kbhowto kbinfo KB149057