[已解决]如何在后台数据库中复制一个表，并建立链接表

jynj

我是为农民服务的,在县级农业部门工作,所以要用到乡镇,非常非常感激你。
还能向您请教吗？这些access命令函数是哪里有完整的书买？你怎么会知道这么多？
如果需要删除后台表同时删除前台链接，用什么代码呢？

t小宝

嘿嘿，我也是为农民服务的。
哪些方法、函数，在ACCESS的帮助文档里都有的。

下面的示例删除当前库指定的表：
DoCmd.DeleteObject acTable, "表名"

t小宝

删除外部库的表
Dim dbs As DAO.Database
Set dbs = DBEngine.OpenDatabase("指定库")
dbs.TableDefs.Delete "表名"

删除当前库的表
Dim dbs As DAO.Database
Set dbs = CurrentDb
dbs.TableDefs.Delete "表名"

当然还有其它方法如ADO

fangkinght

呵呵,不错,多多学习

jynj

t小宝是真大侠啊！！！

jynj

回到家里，发现继续错误，请小宝大侠帮助。
1、提示找不到后台数据库文件，如何指定为当前文件夹？
2、后台数据库有密码，如何指定？

jynj

第二个问题已解决
Dim dbs As DAO.Database
Set dbs = DBEngine.OpenDatabase("后台库名称",False, False, "MS AccessWD=密码")
dbs.Execute "SELECT * INTO 后台新表名称 FROM 后台表名称"
DoCmd.TransferDatabase acLink, "Microsoft Access", "后台库名称", acTable, "后台新表名称 ", "前台表名称 ", False
Set dbs = Nothing

jynj

第一个问题也解决了（当前路径下）
Dim dbs As DAO.Database
Set dbs = DBEngine.OpenDatabase( Application.CurrentProject.path & "\后台库名称",False, False, "MS Access;pwd=密码")
dbs.Execute "SELECT * INTO 后台新表名称 FROM 后台表名称"
DoCmd.TransferDatabase acLink, "Microsoft Access", Application.CurrentProject.path & "\后台库名称", acTable, "后台新表名称 ", "前台表名称 ", False
Set dbs = Nothing

t小宝

不错，学得真快！
本来我也在OpenDatabase方法中加了密码参数的，后来发现变成了这个笑脸 ，就取消了

t小宝

你签名上的网站好象有木马。。。