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

jynj

求助，请问如何在前台数据库中有一个按纽和一个文本框，点一下按纽，就在后台数据中复制一个新表，表名就是文本框中输入的文本，同时在前台数据库中自动生成一个同表名的链接表？

[ 本帖最后由 jynj 于 2008-2-18 20:07 编辑 ]

t小宝

先在后台复制，然后在前台新建链接表完整代码：

Dim dbs As DAO.Database
Set dbs = DBEngine.OpenDatabase("后台库名称")
dbs.Execute "SELECT * INTO 后台新表名称 FROM 后台表名称"
DoCmd.TransferDatabase acLink, "Microsoft Access", "后台库名称", acTable, "后台新表名称 ", "前台表名称 ", False
Set dbs = Nothing

[ 本帖最后由 t小宝 于 2008-2-17 22:37 编辑 ]

小林

进来学习一下，高手提供的方法可以学习。

jynj

太感激了，我马上试一下

jynj

t小宝老大，试验不成功，由于后台数据库处于打开状态，因此无法复制成功，错误为：“成员已经存在于由本对象模块派生出的对象模块中”

t小宝

我试过，可以的。你是不是另外还加了什么代码，这个已经包含了复制后台表和在前台建立链接表？

t小宝

或者是名称搞错了？
你至少说明出错在哪一句，或者把库发上来让大伙看看。。。

jynj

今天在单位的机子上新建一个数据库试了一下,确实成功,回去我要好好再试一下,看一下错在哪里,谢谢t小宝大侠

jynj

再请教您一下可以吗?如果上述表复制并链接成功后,我想修改某个字段的"默认值"属性,可以办到吗?
如下面的的数据库中,如何将内容表2的"乡镇"字段的"默认值"修改为"第二乡镇"

t小宝

Private Sub 新建表_Click()
On Error GoTo Err_新建表_Click

Dim dbs As DAO.Database
Dim tdf As TableDef

Set dbs = DBEngine.OpenDatabase("ccc_be.mdb")
dbs.Execute "SELECT * INTO 内容表3 FROM 内容表"

Set tdf = dbs.TableDefs!内容表3
tdf.Fields("乡镇").DefaultValue = "第二乡镇"

DoCmd.TransferDatabase acLink, "Microsoft Access", "ccc_be.mdb", acTable, "内容表3", "内容表3", False

Set tdf = Nothing
Set dbs = Nothing

Exit_新建表_Click:
    Exit Sub
Err_新建表_Click:
    MsgBox Err.Description
    Resume Exit_新建表_Click
   
End Sub

顺便问一下,你是做什么工作的,用到乡镇?