有谁实现了--无任何表的前端通过ADO操作后端数据库？

rofan

Function LinkToDatabase()
Dim db As Database
   Dim tbl As TableDef
   Set db = CurrentDb
   
   DoCmd.Hourglass True
   
'  Dim pw
'  pw = InputBox("请输入后台数据库密码:", "密码")
   
   For Each tbl In db.TableDefs
       If tbl.Attributes = dbAttachedTable Then
           tbl.Connect = "ms accessWD=这里换成你后台库的密码;DATABASE=" & CurrentProject.Path & "\data\gzdata.mdb"   '后面是路径（后台）
           tbl.RefreshLink
       End If
   Next
   DoCmd.Hourglass False
     
End Function


'除了注明处其他照抄
'没有用ADO

rofan

在问一下gnoy你是怎么当上斑竹的？