复杂的access数据库的连接问题？

xryacc2

我有1个JF.mdb或JF.mde文件为前台文件，有两个mde文件作后台数据库文件，即data1和data2，我想用控件和按钮实现JF与data1和data2相对地址连接，如何用代码实现呢？比如做了个窗体上面有两个文本框，有一个“连接”按钮：
if me.text1.value=电脑名（局域网内）\盘符\文件夹名\data1 and me.text2.value=电脑名（局域网内）\盘符\文件夹名\data2 then ...
(即如何实现连接后台有密码的两个data1.mde和data2.mde数据库文件？？？)然后才msgbox "数据库连接成功"？？？谁会这个代码？期望赐教，不胜感激！

Henry D. Sy

Dim db As Database
            Dim tbl As TableDef
            Set db = CurrentDb
            For Each tbl In db.TableDefs
                If tbl.Attributes = dbAttachedTable Then
                    tbl.Connect = ";pwd=;DATABASE=" & 路径
                    Debug.Print tableName   
                    tbl.RefreshLink
                End If
            Next

xryacc2

我试试，如果成功，感谢晕你！

xryacc2

谢谢版主Henry D. Sy ，真行！可是请问如果是链接了两个数据库文件该如何写代码在一个命令按钮中呢？我试了N次都不行啊？谢谢

xryacc2

是指链接2个（或2个以上的）mde或mdb文件

Henry D. Sy

如果是链接了两个数据库文件该如何写代码在一个命令按钮中呢？
没试过同时连接两个库的。

xryacc2

事实上，我是链接了两个mde数据库文件在用的，我试了这样写代码，也还是不行：
Dim db As Database
Dim db2 As Database '加了一句
            Dim tbl As TableDef
            Dim tbl2 As TableDef '加了一句
            Set db = CurrentDb
            Set db2 = CurrentDb '加了一句
            For Each tbl In db.TableDefs
                If tbl.Attributes = dbAttachedTable Then
                    tbl.Connect = ";pwd=12345;DATABASE=" & me.text1 '密码12345
                    tbl.RefreshLink
                  exit for
                End If
            Next tbl
    '------------加了又一段循环语句的代码
            For Each tbl2 In db2.TableDefs
                If tbl2.Attributes = dbAttachedTable Then
                    tbl2.Connect = ";pwd=12345;DATABASE=" & me.text2
                    tbl2.RefreshLink
                  exit for
                End If  
   我试过了，代码可以执行到这一步
            Next tbl2
  代码未能执行到这一步！
=====是不是循环语句出的错？

Henry D. Sy

你加了exit for 当然跳出循环。
至于同时连接两个库，没有试过，你说能行吗？

xryacc2

就是取消这两个跳出循环的代码，也是不行，不知有没有其他遇到同样情况的人？谢谢你版主

xryacc2

呼唤高手。。。。。。。。。