标题: 如何抄袭链接表？ [打印本页] 作者: 宋倩倩 时间: 2013-7-2 11:09 标题: 如何抄袭链接表？ 作者: 淡写轻描 时间: 2013-7-2 11:20
假设前台数据库文件名为frontBase.mdb 后台数据库文件名为backData.mdb frontBase当中有链接表tbl1, tbl2,tbl3, …，链接到backData.mdb中首先我们要在前台数据库文件的启动窗体加载事件中判断链接是否正确方法是打开任意一个链接表，假设为tbl1，代码如下：Public Function CheckLinks() As Boolean ' 检查到后台数据库的链接；如果链接存在且正确的话，返回 True 。 Dim dbs As Database, rst As DAO.Recordset Set dbs = CurrentDb() ' 打开链接表查看表链接信息是否正确。 On Error Resume Next Set rst = dbs.OpenRecordset(“tbl1”) rst.Close ' 如果没有错误，返回 True 。 If Err = 0 Then CheckLinks = True Else CheckLinks = False End IfEnd Function 启动窗体的加载事件：Private Sub FORM_Load() If CheckLinks = False then Docmd.OpenFORM “frmConnect” End If End Sub 接下来的事情就是如何刷新链接表了。连接按钮刷新链接表，代码如下：Private Sub OK_Click() Dim tabDef As TableDef For Each tabDef In CurrentDb.TableDefs If Len(tabDef.Connect) > 0 Then tabDef.Connect = ";DATABASE="& Me.FileName.Text & "WD=" + 后台数据库密码tabDef.RefreshLink End If Next MsgBox "连接成功！" DoCmd.Close acFORM, Me.Name End Sub 其实很简单只有两步，判断链接是否正确和刷新链接表。
WD=" + 后台数据库密码tabDef.RefreshLink End If Next MsgBox "连接成功！" DoCmd.Close acFORM, Me.Name End Sub 其实很简单只有两步，判断链接是否正确和刷新链接表。