Article ID: 182954
Article Last Modified on 11/7/2003
Option Explicit
Dim en As rdoEnvironment
Dim rs As rdoResultset
Dim cn As rdoConnection
Dim sqlstr As String
Private Sub Command1_Click()
sqlstr = "select * from tablename"
Set rs = cn.OpenResultset(sqlstr, rdOpenKeyset, _
rdConcurRowVer)
End Sub
Private Sub Command2_Click()
If Not (rs Is Nothing) Then
rs.Close
End If
cn.Close
Unload Me
End Sub
Private Sub Form_Load()
Set en = rdoEnvironments(0)
en.CursorDriver = rdUseServer
Set cn = en.OpenConnection(dsName:="datasourcename", _
Prompt:=rdDriverNoPrompt, _
Connect:="uid=<username>;pwd=<strong password>;database=PUBS;")
Command1.Caption = "resultset"
Command2.Caption = "quit"
End Sub
Additional query words: kbRDO kbVBp500 kbVBp600 kbdse kbDSupport kbVBp
Keywords: kbprb KB182954