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
如果对象是窗体或报表,那么应该如何编写,请赐教!谢谢!
把程序分为前后台,如果要对前台有所修改,直接更换前台程序
谢谢Victor Duane
我也知道将数据库拆分成前后台,如要修改,一次性覆盖就解决问题.我更想了解如何用VBA编程来删除对象.我已经试验了用VBA编程,通过命令来删除表与查询,但对于窗体,报表,模块通过VBA编程,在网络上追加或覆盖到另一个数据库,但如何删除一直想不出办法来.有什么类似参考,请介绍为谢!
总记录:2篇 页次:1/1 9 1 :