问：用ado如何调用不在同一文件夹里面的access数据库，

Question

本来做的是调用本文件夹里面的mdl 形式的access数据库，如果要调用别的地方的数据库，很麻烦：得先备份当前所在用的（即本文件夹里面的那个），然后恢复所要调用的数据库到当前文件夹中，然后进行处理。处理完，如果还要用原来那个，又是同样的程序来调用，很麻烦，那位大虾能指点一下，搞定马上结贴！！谢谢哦

Answer 1

没有明白
如果要调用别的地方的数据库，dbfilename换成绝对路径
Public conn As ADODB.Connection
Set conn = New ADODB.Connection
If Right(App.path, 1) = "\" Then
                apppath = App.path
        Else
                apppath = App.path & "\"
End If
DbFileName = apppath & "article.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                DbFileName & ";Persist Security Info=False;"
                
                On Error Resume Next
                With conn
                        .CursorLocation = adUseClient
                        
                        .Open ConnectString, DB_USERID, DB_PWS
                End With

Answer 2

调用打开对话框啊在"工程"菜单选择 "部件" 找到“microsoft Common Dialog Control 6.0”添加到工具箱
，然后添加到窗体。
代码：
 CommonDialog1.Filter = "Access数据库文件(*.mdb)|*.mdb|All Files (*.*)|*.*"
        CommonDialog1.Showopen
filename=commonDialog1.filenamedim conn As ADODB.ConnectionConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                filename & ";Persist Security Info=False;"