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

acc

harsonliao:后端数据库有密码乍联的？我一直都没法打开的。急的

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你是怎么当上斑竹的？

gnoy

呵呵，闻到了异味。不过这个问题我回答不了。找站长吧我也累了。

cnwang

如果后端是SQL SEVER，建议用传递查询。。。

zhengjialon

这个就是，不过是MDE，也不知道这么长时间你还要不要。
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=26646&ID=26646

竹笛

以下是引用rofan在2002-10-20 21:09:09的发言：
在问一下gnoy你是怎么当上斑竹的？

估计是tmtony三顾茅芦请的吧。嘻嘻~~~~~~

yzt880

以前 没有看到过真的帖子。很多年我就是这样做了
http://www.office-cn.net/thread-117367-1-1.html