您的位置: 旅游网 > 影视

资深站长讲解Access数据库中数据表的

发布时间:2019-07-12 19:44:48

16:31 来源:赛迪 :Googler【纠错】人评论

A-A+ 怎么开淘宝店 站优化方法 创业如何获得投资 小米note顶配版评测 最新LOL活动

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

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

注释:

(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() datafiles = b urglass True For i = 0 To unt - 1 Set MyTbl = bleDefs(i) If tributes = DB_ATTACHEDTABLE And Left(nnect 1) = ; Then nnect = ;DATABASE= cpath datafiles freshLink If Err Then If vbNo = MsgBox(scription ,继续吗? vbYesNo) Then Exit For End If End If Next i urglass 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

查看更多相似文章

不可不知的几点seo优化常识
怎样才能开微店
如何做有赞微商城
猜你会喜欢的
猜你会喜欢的