Office中国论坛/Access中国论坛

标题: [原创]利用出错处理实现与后能数据库的链接 [打印本页]

作者: yttzm 时间: 2006-1-4 03:55
标题: [原创]利用出错处理实现与后能数据库的链接
为了方便所作数据库的升级，往往需用前后台数据库来处理。

但有个最主要的问题是：当盘符变动时，或拷贝到别一台计算机上时，

就要重新链接。

特别在设置登陆后就打开录入数据窗体（表）的情况下，如果未链接，登陆后就会出错，叫你调试。

我的解决办法是：利用出错处理，如果出错就打开“链接”窗体进行链接。

如果已经链接，就不会再打开“链接”窗体。

这样就不会叫你调试了。

[attach]15138[/attach]

作者: zcy0718 时间: 2006-1-4 07:53
好

作者: secowu 时间: 2006-1-4 18:15
重复了，又下了一次

作者: wu8313 时间: 2006-1-5 05:46
这个是怎么回事？
[attach]15148[/attach]

[此贴子已经被作者于2006-1-4 21:46:00编辑过]

作者: yttzm 时间: 2006-1-5 07:21
未引用DAO3.6

作者: secowu 时间: 2006-1-6 00:39
comdlg32.dll

用的是控件名称在ACCESS显示为什么？

作者: secowu 时间: 2006-1-6 00:41
Dim cdlg As New CommonDialogAPI

说是变量未定义，

我找不到是要引用哪个控件

谢谢

作者: wu8313 时间: 2006-1-6 06:14
引用了dao3.6.问题仍然存在。不知道怎么办了
[attach]15170[/attach]

[此贴子已经被作者于2006-1-5 22:14:36编辑过]

作者: secowu 时间: 2006-1-6 18:04
支持，我也出现了这个问题

作者: wu8313 时间: 2006-1-7 06:36
我的意见是，出错处理要包含网络是否连通，后台文件是否存在等等。

我自己总结的各种可以预见的后台表链接可能出现的错误处理，请大家补充和指正。

Private Sub backdata_err()
Select Case Err.Number

  Case 3044 '网络不通等原因导致远程连接失败，属于操作链接表错误报告
  MsgBox "系统提示" & Err.Number & "/" & Err.Description + vbNewLine + _
  "网络故障：可能的原因是" + vbNewLine + "1/" & backdata_hostname & "没有开启" + vbNewLine + _
"2/网络电缆被拔出" + vbNewLine + "3/网络服务被终止", vbInformation, "请检查网络状态"

  Case 3078 '后台表或者链接表不存在或者被重新命名，属于操作链接表错误报告
  MsgBox "系统提示" & Err.Number & "/" & Err.Description + vbNewLine + _
"自定义提示：后台表或者链接表不存在或者被重新命名"
  Call delete_alltables
' DoCmd.Quit

  Case 3024 '后台文件不存在或者被重新命名，属于操作链接表错误报告
  MsgBox "系统提示" & Err.Number & "/" & Err.Description + vbNewLine + _
"自定义提示：后台文件'back.mdb'不存在或者被重新命名"
  Call delete_alltables
'DoCmd.Quit

  Case 3051
  MsgBox "系统提示" & Err.Number & "/" & Err.Description + vbNewLine + _
  "自定义提示：对存放后台'back.mdb'的网络磁盘没有读取权限"
  'DoCmd.Quit

  Case 3086
  MsgBox "系统提示" & Err.Number & "/" & Err.Description + vbNewLine + _
  "自定义提示：对存放后台'back.mdb'的网络磁盘没有更改权限"
  'DoCmd.Quit

  Case 0
  'Exit Function

  Case Else '显示未知错误
  MsgBox Err.Number & "/" & Err.Description
  'DoCmd.Quit

End Select
End Sub

[此贴子已经被作者于2006-1-6 22:40:00编辑过]

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