Office中国论坛/Access中国论坛

标题: [求助]关于数据库前后台 [打印本页]
作者: sbsfhgl    时间: 2007-6-22 20:04
标题: [求助]关于数据库前后台
我把数据库拆分了前后台，把前后复制到各相关电脑上，刷新了数据库链接器，找以相关后台，但问题来了

1。各相关电脑上分别显示，当前数据集不可更新，登录时无法选择相应的登录用户名。

2。我自己也无法查看自己的数据库属性，

请各位告知这是为什么，谢谢！
作者: JimmyOu0707    时间: 2007-6-22 20:25
兄台我还不知道这样拆分前后台啊，你可以教一下吗？

感激不尽啊。。。。
作者: sbsfhgl    时间: 2007-6-22 20:41
晕呀，我自己都没搞好，现在全国人民都看着我呀，我还不知道为什么呀
作者: andymark    时间: 2007-6-22 20:50
重新链接表
作者: sbsfhgl    时间: 2007-6-22 20:51
谢谢各位，解决这个问题了，原来是共享权限设为只读了。

告知各位新学者以自勉：一个字段名、一个字母都会给你带来很大的麻烦，所以得仔细，条理性、逻辑性都得注意
作者: tz-chf    时间: 2007-6-22 20:52
共享文件夹的设置为可修改的
作者: poly    时间: 2007-6-22 22:33
学习了
作者: wu8313    时间: 2007-6-23 02:47
以下是引用sbsfhgl在2007-6-22 12:51:00的发言：


谢谢各位，解决这个问题了，原来是共享权限设为只读了。

告知各位新学者以自勉：一个字段名、一个字母都会给你带来很大的麻烦，所以得仔细，条理性、逻辑性都得注意



是的。在链接后台表成功后，对后台某个表进行一个操作的是否，使用如下代码可以拦截错误代号和消息来提醒用户。供参考。

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



[此贴子已经被作者于2007-6-22 18:50:02编辑过]

作者: wu8313    时间: 2007-6-23 02:52
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
作者: sbsfhgl    时间: 2007-6-23 04:25
以下是引用wu8313在2007-6-22 18:47:00的发言：





是的。在链接后台表成功后，对后台某个表进行一个操作的是否，使用如下代码可以拦截错误代号和消息来提醒用户。供参考。

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

神奇，还可以这样，不过这个代码加到哪里呢/
作者: wang1950317    时间: 2007-6-23 07:12
楼主讲的很有道理呀!我就碰到类似的情况，如果共享为只读的话，连窗体上的一些特殊的添加按钮也不起作用了。也曾在论坛发过帖子，没有答案。好长时间才明白这个问题。看来拆分数据库后使用上出现故障，应考虑共享的设置有无问题。
作者: peipei5215    时间: 2010-1-18 17:20
我也想学习如何拆分前后台



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3