Office中国论坛/Access中国论坛

标题: 请各位高手帮我看看:问题出在哪? [打印本页]

作者: ouxingwang 时间: 2004-11-2 06:02
标题: 请各位高手帮我看看:问题出在哪?
[attach]7420[/attach]

下载郑版主的程序,运行正常,然而我一挂上我的数据库就链接不上,请各位高手帮我看看我的前台数据库frontBase中的frmConnect窗体中的代码错在哪?代码如下:

'******************************************************************

'by zhengjialon on 2004/7/10

[url=mailto:'zhengjialon@hotmail.com]'zhengjialon@hotmail.com[/url]

'http://www.office-cn.net

'功能:自动刷新后台数据库在当前目录中的链接表

'    后台数据库现在是固定，可以设成变量

'    后台未加密码，加密码后需要了解一下链接格式。

'    无论你将此文件夹拷贝到哪里都可以自动刷新后台链接表。

'*******************************************************************

Public Function Links() As Boolean

On Error GoTo Errlbl:

Dim tabDef As TableDef

For Each tabDef In CurrentDb.TableDefs

      If Len(tabDef.Connect) > 0 Then

         tabDef.Connect = ";DATABASE=" & Application.CurrentProject.Path & "\backdata.mdb" & "

WD=" & 123456

         tabDef.RefreshLink

      End If

Next

MsgBox "链接完成"

Links = True

Exitsub:

Exit Function

Errlbl:

MsgBox "错误号:" & Err.Number & " 连接不成功！请检查后台数据库是否在当前目录中以及名称是否有误！"

Links = False

End Function

Public Function CheckLinks() As Boolean

On Error GoTo Errlbl:

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

Dim dbs As Database, rst As DAO.Recordset

Set dbs = CurrentDb()

' 打开链接表查看表链接信息是否正确。

Set rst = dbs.OpenRecordset("分户帐")

rst.Close

' 如果没有错误，返回 True 。

CheckLinks = True

Exitsub:

Exit Function

Errlbl:

If Err.Number = 3044 Then

      CheckLinks = fasle

Else

      MsgBox "错误号:" & Err.Number & " " & Err.Description

End If

End Function

Private Sub Form_Load()

If CheckLinks = False Then

      '开始连接后台数据库

      If Links = False Then

         DoCmd.Close acForm, Me.Name

         Exit Sub

      Else

         DoCmd.Close acForm, Me.Name

         '然后打开程序的主窗体或登陆窗体等

         DoCmd.OpenForm "tbl1"

      End If



Else

      DoCmd.Close acForm, Me.Name

      '然后打开程序的主窗体或登陆窗体等

      DoCmd.OpenForm "tbl1"

End If

End Sub

作者: swo 时间: 2004-11-2 08:39
没有引用DAO

[attach]7422[/attach]

作者: ouxingwang 时间: 2004-11-3 03:02
感谢版主的指点!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)