!!!50分：在VB中怎样将ACCESS数据库中的某一个表再复制一个同样的表，用另一个表名

我现在在ACCESS数据库中做了一个表wdjl,在VB编程时，我想再此表基础上复制一个一模一样的表wdjl1,该怎样做？

12 个解决方案

#1

请大家帮忙呀，不胜感激

#2

#3

dim db as database
set db=opendatabase(FileName) '打开数据库
db.Execute "Select * Into NewName from wdjl"
以上方法将完成复制一个表（包括数据），必须引用DAO
删除数据的方法为：
db.Execute "Delete * from NewName"

#4

阿猛同志，你说的非常对，我先前用的也是这种方法，但我发现，这样做后，从ACCESS中看,wdjl表中的数字字段定义本来有默认值为0，而新生成的表中数字字段却没有默认值了,不知能不能做的一模一样。

#5

我来顶一下，
按照Microsoft的示例，复制表的实现分为两步：
1、复制表结构，生成的是一个结构与源表一样，但无数据的空表；
2、复制数据，复制数据的实现是读取源表的记录，再在已有的(空)表中添加记录。

#6

cn.execute "Select * Into wdjl1 from wdjl"

#7

Select * Into NewTable from wdjl

#8

同上

#9

假如用：Select * Into wdjl1 from wdjl
无法生成默认值。
则查看Access的系统表，分析其系统表的结构来生成新的表。
系统表默认情况下是隐藏的，可以在菜单：工具－选项－视图－“隐藏对象”上打勾。

#10

为了稳定还是进行以下操作:
先复制表结构
再复制表里面的数据!

#11

上面问题的引伸,要从A.mdb中复制表Temp到B.mdb中,如何?

#12

从A.mdb中复制到B.mdb中的方法差不多：
set db=opendatabase("A.mdb")
db.Execute "Select * Into NewName IN "B.mdb" from wdjl"
至于IN的具体用法可看一下帮助！

我用 Select * Into NewName from wdjl 方法试了下，应该可以复制出一模一样的表来，
默认的0值在生成的新表中同样存在！

#1