[原创]利用出错处理实现与后能数据库的链接

yttzm

为了方便所作数据库的升级，往往需用前后台数据库来处理。

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

就要重新链接。

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

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

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

这样就不会叫你调试了。

wu8313

我的意见是，出错处理要包含 网络是否连通，后台文件是否存在等等。

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

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编辑过]

secowu

支持，我也出现了这个问题

wu8313

引用了dao3.6.问题仍然存在。不知道怎么办了

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

secowu

Dim cdlg As New CommonDialogAPI

说是变量未定义，

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

谢谢

secowu

comdlg32.dll

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

yttzm

未引用DAO3.6

wu8313

这个是怎么回事？

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

secowu

重复了，又下了一次

zcy0718

好