ACCESS中重新定位链接表二步走

ACCESS中重新定位链接表二步走后台数据库文件名为backData.mdb

frontBase当中有链接表tbl1,tbl2,tbl3,…，链接到backData.mdb中

首先我们要在前台数据库文件的启动窗体加载大事中推断链接是否正确

方法是翻开任意一个链接表，假设为tbl1，代码如下：

PublicFunctionCheckLinks()AsBoolean

’检查到后台数据库的链接；假如链接存在且正确的话，返回True。

DimdbsAsDatabase,rstAsDAO.Recordset

Setdbs=CurrentDb()

’翻开链接表查看表链接信息是否正确。

OnErrorResumeNext

Setrst=dbs.OpenRecordset(“tbl1”)

rst.Close

’假如没有错误，返回True。

IfErr=0Then

CheckLinks=True

Else

CheckLinks=False

EndIf

EndFunction

启动窗体的加载大事：

PrivateSubFORM_Load()

IfCheckLinks=Falsethen

Docmd.OpenFORM“frmConnect”

EndIf

EndSub

frmConnect连接窗体如下列图

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

接下来的事情就是如何刷新链接表了。

上面的窗体右边的按钮是用用来调用API翻开文件对话框，详细代码如下：

DeclareFunctionGetOpenFileNameLib\“comdlg32.dll\“Alias\“GetOpenFileNameA\“(pOpenfilenameAsOPENFILENAME)AsBoolean

TypeOPENFILENAME

lStructSizeAsLong

hwndOwnerAsLong

hInstanceAsLong

lpstrFilterAsString

lpstrCustomFilterAsString

nMaxCustFilterAsLong

nFilterIndexAsLong

lpstrFileAsString

nMaxFileAsLong

lpstrFileTitleAsString

nMaxFileTitleAsLong

lpstrInitialDirAsString

lpstrTitleAsString

flagsAsLong

nFileOffsetAsInteger

nFileExtensionAsInteger

lpstrDefExtAsString

lCustDataAsLong

lpfnHookAsLong

lpTemplateNameAsString

EndType

PrivateSubFileOpen_Click()

DimofnAsOPENFILENAME

DimrtnAsString

ofn.lStructSize=Len(ofn)

ofn.hwndOwner=Me.hwnd

ofn.lpstrFilter=\“数据库文件(*.mdb)\“DATABASE=\“PWD=\“+后台数据库密码

tabDef.RefreshLink

EndIf

Next