如何打开指定路径下的数据库?

Question

aa.mdb是在当前路径下
bb.mdb路径C:\1111\bb.mdb
Dim cnn6 As New ADODB.Connection
Dim adoRs6 As New ADODB.Recordset
cnn6.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aa.mdb"
adoRs6.Open "select * from b1 in bb.mdb", cnn6, 1, 1  -----------》1
我如何才能在连接是当前路径下aa.mdb的状态下，打开C:\1111\bb.mdb
还请各位大侠帮忙告诉我1处的语句该如何写？

Answer 1

不明白你的意思
如果你想同时打开2个数据库，就定义两个Connection，分别连接到两个数据库即可

Answer 2

Dim cnn6 As New ADODB.Connection
dim con7 As New ADODB.Connection
Dim adoRs6 As New ADODB.Recordset
cnn6.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.apth & "\aa.mdb"
cnn7.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\lll\bb.mdb"

Answer 3

Public Con As New ADODB.Connection
Public Rs As ADODB.RecordsetPrivate Sub Form_Load()
Dim sql As StringSet Rs = New ADODB.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1111\bb.mdb;Persist Security Info=False"
Rs.Open "select * from use", Con, adOpenStatic, adLockBatchOptimistic
Set MSHFlexGrid1.Recordset = Rs
End Sub

Answer 4

cnn6.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.apth & "\aa.mdb
这句应该能够满足你的需求

Answer 5

Dim cnn6 As New ADODB.Connection
dim con7 As New ADODB.Connection
Dim adoRs6 As New ADODB.Recordset
cnn6.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.apth & "\aa.mdb"
cnn7.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\lll\bb.mdb"
adoRs6.open "select * from b1",cnn7,adOpenStatic, adLockBatchOptimistic

Answer 6

strPath = "C:\1111\bb.mdb"
adoRs6.Open "select * from b1 in '" & strPath & "'", cnn6, 1, 1  -----------》1