重新定位链接表二步走

虽然Accxp上有很多关于位置链接表的帖子，但是还是有很多朋友在问这方面的问题。在信用户的建议下，结合Alex的重定位链接表文件的源代码，这方面的具体操作介绍如下:

假设前台数据库的文件名为frontBase.mdb
，后台数据库的文件名为backData.mdb
。frontbase中有链接表tbl1，tbl2，tbl3，…链接到backdata.mdb。

首先要判断前台数据库文件的启动表单加载事件中链接是否正确。

方法是打开任意链接表，假设tbl1，代码如下:

函数check links () as boolean
'检查到后台数据库的链接；如果链接存在并且正确，则返回True。
dimdbs as database，rstasdao . recordset
set DBS = current db()
'打开链接表，查看表的链接信息是否正确。
on error resume next
setrst = DBS . open recordset(" TBL 1 ")
rst . close
'如果没有错误，则返回True。
如果Err = 0，则
check links = True
Else
check links = False
End If
End函数

启动窗体的加载事件:
private subform _ load()
if check links = false then
docmd . open form " frm connect "/br/]end if
end sub

frmConnect连接形式如下

[img]f:\m.bmp[/img] [img]f:\m.bmp[/img]

接下来就是如何刷新链表了。
上面表单右侧的按钮是用来调用API打开文件对话框的。具体代码如下:
声明函数get open filename lib " com DLG 32 . dll "别名" get open filename "(popen filename as open filename)为boolean。

键入open filename
lstrutsize As Long
hwn owner As Long
h instance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As String
nmax file As Long
lpstrFile title As String
nmaxfiletititle As Long

private Sub file open _ Click()
Dim of n As open filename
Dim RTN As String

ofn . l structsize = Len(ofn)
ofn . hwn owner = me . hwnd

Ofn.lpstrFilter = "数据库文件(*。mdb)" & vbnullchar & "*。MDB "
ofn . lpstrfile = space(254)
ofn . nmax file = 255
ofn . lpstr file title = space(254)
ofn . nmax file title = 255
ofn . lpstrinitialdir = current project . path
ofn . lpstr title = "后台数据文件是"
ofn.flags。

rtn = GetOpenFileName(ofn)

文件名。SetFocus
如果rtn = True，则
FileName。text = ofn . lpstrfile
FileName。文本=文件名。Text
OK。enabled = True
Else
FileName。Text = ""
End If
End Sub

link按钮用下面的代码刷新链接表:
Private sub ok _ click()
dim tab def as tabledef
for each tab def in currentdb . tabledefs
iflen(tabdef . connect)> 0 then
tabdef . connect . DATABASE = " & Me .FileName . Text & "；PWD = "+后台数据库密码
tab def . refresh link
end if
next
msgbox "连接成功！"
docmd.closeacform，me.name
endsub
其实很简单。只有两步，判断链接是否正确，刷新链接表