如何用VB控制在ACCESS的同一个数据库中创建一个与A表（原有表）结构完全相同的B表？

Question

我知道有一种方法是Create Table,但当A表中的字段相当多时，编程量就很多。而且还要一条一条地将A表的数据插入到B表中。
所以我的思路是复制A表，然后将其改名为B，请问各位高手如何实现？

Answer 1

try新表包含原表数据：
select * into new_tb from old_tb新表不包含原表数据：
select * from new_tb from old_tb where 1=2

Answer 2

可能我说的不是很清楚，我的意思是：原数据库中只有一个表A，没有表B。如何创建一个与表A数据、结构都一样的表B，谢谢楼上的两位先。

Answer 3

Call FileCopy(Path.App & "\B.mdb" , Path.App & "\A.mdb")

Answer 4

新表包含原表数据：
select * into new_tb from old_tb新表不包含原表数据：
select * from new_tb from old_tb where 1=2
这二个都是要求new_tb不能事先存在

Answer 5

dim cn as adodb.connectionset cn = new adodb.connexction
cn.open "provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\你的数据库名.mdb"cn.execute "select * into b from a"
cn.close
set cn = nothing

Answer 6

楼上的回答是正确的！
select * into 新表 from 旧表
如果新表不存在，则自动创建它。