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/)
Powered by Discuz! X3.3