Office中国论坛/Access中国论坛

标题: 怎么在后台生成或复制表？ [打印本页]

作者: cnhbjm 时间: 2006-2-23 00:15
标题: 怎么在后台生成或复制表？
数据库拆分后，要复制表1，并改名为表N，或者在后台生成一个表好行，

在前端复制并改名：

dim strnew as string

strnew=me.文本1

DoCmd.CopyObject , strstrnew, acTable, "n号罐"

在前端生成表：

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

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

请高手帮忙！先谢了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)