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

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

1 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2003-12-01 22:24:19 得分 40

没有明白  
  如果要调用别的地方的数据库，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   WithTop

2 楼lxqlogo0（群子）回复于 2003-12-01 22:33:38 得分 40

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

3 楼showday（小武）回复于 2003-12-03 20:02:02 得分 0

3x两位兄弟，差不多搞定拉！！谢拉，下次还有问题继续问！  
  结贴Top

相关问题

• 文件夹
• 数据库
• microsoft
• 调用
• commondialog1
• apppath
• mdb
• adodb
• conn
• app

• 帖主：showday
• online
• lxqlogo0

• Visual Basic类图书
• Visual Basic类源码下载