sql = "SELECT * FROM biao IN F:\db2"
sql2 = "SELECT * FROM [;DATABASE=f:\db2.mdb].biao"
Set rs = New ADODB.Recordset
rs.Open sql, CurrentDb.Connection, adOpenDynamic, adLockPessimistic
Set rst = CurrentDb.OpenRecordset(sql2)
我想打开另外一个数据库,
引用ADO对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim strSQl As String
strSQl = "select * from biao"
rs.Open strSQl, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF And Not rs.BOF Then
Else
MsgBox "没有找到记录"
rs.Close
Exit Sub
End If
rs.Close
End Sub
Private Sub Form_Load()
If cn.State = 1 Then
cn.Close
End If
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb"
End Sub