有关链接表管理器的问题

夕雪　发表于：2009-03-12 15:21:05 　

复制

请教一下：

有10个随时更新的电子表格文件，结构完全相同，只是数据不同。

用access编程时，我挂接了链接表管理器，为什么我每次链接时只是其中的一个文件：怎样才能在链接时任意选择其中的文件呢？

如果需要代码，帮忙写出代码好吗？

拜托了！

Top

夕雪发表于：2009-03-12 16:47:55

没人理？

再说明一下，10个时时有数据更新的电子表格。每次只针对其中的一个进行查询。

为什么我用链接管理器链接的总是其中的一个文件呢？

应该怎样才能链接其中的任意一个呢？

Top

赵文斌发表于：2009-03-12 19:51:04

改变方式最好。可以全在ACCESS中实现，何必把两个搞到一块

Top

天行健客发表于：2009-03-12 20:34:33

以下代码，谨供参考

Dim dbs As Database
   Dim tbl As TableDef
   Dim strDes As String
   Dim ReLink As Boolean
   On Error Resume Next

   ReLink = False
   Set dbs = CurrentDb
   For Each tbl In CurrentDb.TableDefs '循环所有表
      If DCount("*", "MSysObjects", "[Name]='" & tbl.Name & "' And [Type]=6") > 0 Then '判断只有链接表才运行以下代码
         strDes = tbl.Properties("description").Value '取得当前表说明属性
         If Mid(strDes, 1, 1) <> "z" Then '如果说明属性第一个字母不为＂z＂
            'MsgBox strDes
            'MsgBox tbl.Name
            tbl.Connect = "ms access;PWD=" & Me.strfilepwd & ";DATABASE=" & Me.strfilename
            tbl.RefreshLink
          End If
      End If
    Next
    ReLink = True
    MsgBox "刷新成功！可以使用了，呵呵", vbInformation, "系统提示..."

Top

夕雪发表于：2009-03-13 08:07:05

一打开电脑，果然有收获。太谢谢了！

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

有关链接表管理器的问题