如何跟据已有的ACCESS数据表创建新表

lmj8260

请各位老师指教
如何在已有ACCESS数库中,如何跟据已有的ACCESS数据表结构各字段属性,创建一份一样的空数据表
最好是通过窗体动态的创建,下面是我自己写的一段代码,但运行不成功
Private Sub CommandButton1_Click() '新建数据表
Dim cmd As New ADODB.Command
Dim mytable As String
Dim myoldtable As String
mytoldable = ComboBox1 '已有数据表名称
mytable = TextBox1  '创建数据表名称
Call mydata   '建立与数据连接
'判断新建数据表名是否已经存在
Set rst = CNN.OpenSchema(adSchemaTables)
Do While Not rst.EOF
If LCase(rst!TABLE_NAME) = LCase(mytable) Then
MsgBox "数据表已存在!", vbCritical, "警告"
Exit Sub
End If
rst.MoveNext
Loop
Set cmd.ActiveConnection = CNN
sql = "select * into " & mytable & " from " & myoldtable & " where 1 <> 1"
With cmd
     .CommandText = sql
     .Execute , , adCmdTextExecute
End With
CNN.Close
Set rst = Nothing
Set cmd = Nothing
Set CNN = Nothing
MsgBox "数据表<" & mytable & ">创建成功!", vbInformation, "创建数据表"
End Sub

amolin

简单方法，制作一个数据表复制的Access宏，转存成VBA，看看代码怎么写的。
DoCmd.CopyObject

lmj8260

我要新建一份空的数据表,且与原数据表结构及字段属性保持一致

amolin

再加上一个Macro Action把表中的数据删除，可以转成VBA的。 要不你就用DAO对象。

[ 本帖最后由 amolin 于 2010-3-31 14:36 编辑 ]

lmj8260

楼上老师讲的我不是太懂，我就是用的ADO+SQL，麻烦你再帮检查检查有什么不对地方

lmj8260

已经自个搞定了，谢谢各位关心

bigyoung

select * from 旧表 where 1=0 into 新表