Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何对网络上其它Access数据库的对象进行维护?

BaoChengReng  发表于:2008-03-17 15:50:48  
复制

如何对网络其它Access数据库的对象进行维护?
目的:
每次对数据库进行维护时,都是将用户的数据库打开,删除或修改.
我的想法是在我的数据库(就叫工具库吧)上,通过局域网对用户数据库进行维护.
如果用户库的对象,如表,窗体,报表,查询等的修改(在工具库中先修改维护),均可以操作,
当然只能将修改过的对象覆盖式的导入到用户库.但是要删除某个对象,如果对象是表或是查询
还可以,其它如窗体,报表,模块就有问题,没有成功.我把表与查询的删除方法列于下面:
strTbPath=用户库的路径(含用户库文件名)
lngType=MSysObjectors的Type字段
type=1为表
type=5为查询
strObName=要删除的表或查询的对象名称
Set dbs = DBEngine(0).OpenDatabase(strTbPath, False, False)
   If lngType = 1 Then
      For Each tdf In dbs.TableDefs
          If tdf.name = strObName Then dbs.TableDefs.Delete strObName
      Next tdf
   ElseIf lngType = 5 Then
      For Each qdf In dbs.QueryDefs
          If qdf.name = strObName Then dbs.QueryDefs.Delete strObName
      Next qdf
   End If
如果对象是窗体或报表,那么应该如何编写,请赐教!谢谢!

 

Top
Victor Duane 发表于:2008-03-17 19:49:39

把程序分为前后台,如果要对前台有所修改,直接更换前台程序



BaoChengReng 发表于:2008-03-18 15:56:58

谢谢Victor Duane

我也知道将数据库拆分成前后台,如要修改,一次性覆盖就解决问题.我更想了解如何用VBA编程来删除对象.我已经试验了用VBA编程,通过命令来删除表与查询,但对于窗体,报表,模块通过VBA编程,在网络上追加或覆盖到另一个数据库,但如何删除一直想不出办法来.有什么类似参考,请介绍为谢!



总记录:2篇  页次:1/1 9 1 :