读取链接表(DAO-RecordSet)

george

请教高手：关于DAO

一般表的读取可用RecordSet来实现，那对连接表应该如何读取呢？好象RecordSet不行！？

george

自D

george

没人回答

kennylee

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=123;DATABASE=" & CurrentProject.Path & "\data\a.mdb"

           tbl.RefreshLink

       End If

   Next

   DoCmd.Hourglass False