讲解Access数据库中数据表的自动重新联接

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【讲解Access数据库中数据表的自动重新联接】，下面是详细的分享！

讲解Access数据库中数据表的自动重新联接

在实际的应用中，Access做应用程序时，经常会做成"数据"和"程序"两个数据库，"数据"数据库中只存放数据表，"程序"数据库中存放所有的form，query,report,module等，通过表联接"程序"数据库可以访问所有"数据"数据库中的表。

当使用的应用程序更换存储位置的时候往往失去正确的表联接，造成运行错误。下面的一段程序可以自动找回表联接。在我的应用中"程序"数据库名字是stockMgr.mdb,"数据"数据库名字是stock-Data.mdb

注释：

（1）程序仅限于"程序"和"数据"存放在同一个目录而且是对应单个"数据"文件的情况。

（2）在程序启动或按钮动作中调用即可。

以下为引用的内容： Function ReAttachTable() Dim MyDB As Database, MyTbl As TableDef Dim cpath As String Dim datafiles As String, i As Integer On Error Resume Next Set MyDB=CurrentDb cpath=trimFileName(CurrentDb.Name) datafiles="stock-data.mdb" DoCmd.Hourglass True For i=0 To MyDB.TableDefs.Count - 1 Set MyTbl=MyDB.TableDefs(i) If MyTbl.Attributes=DB_ATTACHEDTABLE And Left(MyTbl.Connect, 1)=";" Then MyTbl.Connect=";DATABASE=" & cpath & datafiles MyTbl.RefreshLink If Err Then If vbNo=MsgBox(Err.description & "，继续吗？", vbYesNo) Then Exit For End If End If Next i DoCmd.Hourglass False msgbox "Tables relink finish." End Function '绝对路径中去掉文件名，返回路径 Function trimFileName(fullname As String) As String Dim slen As Long, i As Long slen=Len(fullname) For i=slen To 1 Step -1 If Mid(fullname, i, 1)="\" Then Exit For End If Next trimFileName=Left(fullname, i) End Function

以上所分享的是关于讲解Access数据库中数据表的自动重新联接，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：Access数据库中,如何将链接表Temp中的数据自动定时...

　　答：以实现，你自己把temp的链接改回去 >>详细

　　相关问题：ACCESS通过ODBC链接表自动连接数据库

　　答：DoCmd.TransferDatabase acLink, "ODBC Database", _ "ODBC;DSN=DataSource1;UID=User2;PWD=www;LANGUAGE=us_english;" _ & "DATABASE=pubs", acTable, "Authors", "dboAuthors" >>详细

　　相关问题：如何修改access数据库中的excel链接表的数据？

　　答：access数据库中的excel链接表中的数据是不允许在数据库中更新的，只能直接用excel程序打开该文件进行修改。 如下图：当直接在数据库尝试修改链接表数据时，状态栏会显示记录集不可更新。 >>详细