如何在后台复制或生成表？

cnhbjm

数据库拆分后，要复制表1，并改名为表N，或者在后台生成一个表也行，

在前端复制并改名：

   dim strnew as string

  strnew=me.文本1

DoCmd.CopyObject , strnew, acTable, "表1"

   在前端生成表：

Dim strsql As String
Dim strname As String
strname = Me.文本1

strsql = "CREATE TABLE  " & strname & " (站名 TEXT, 油高 TEXT, 容积 INTEGER CONSTRAINT MyFieldConstraint PRIMARY KEY);"
DoCmd.RunSQL strsql

可是，我是前后台操作，表要复制或生成到后端，否则备份就会出问题。

请高手帮忙，先谢了！

cnhbjm

ding

一点通

SELECT 表1.ID INTO 表名 IN 'd:\db1.mdb'
FROM 表1
GROUP BY 表1.ID;

表名---生成表的表名

d:\db1.mdb---后台数据库的路径及数据库名

你可以在生成表的向导中直接输入以上参数的

banboo02

不知道你是怎么做的表

如果是倒入的话就是很简单