能否用命令在程序中拷贝表结构？

Question

select * into newtable from table1  where 1=2

Answer 1

select * into newtable from table1,不用后面的where 1=2好像也可以.

Answer 2

设原数据库为DBs.mdb,表为A，目标数据库为DBo.mdb,新表为B
dim DBsource AS DAO。DATABASE
DIM DBobject as dao.database
dim RSTsource as dao.recordset
dim RSTobject as dao.recordset
dim FEDobject as dao.field
set DBsource=dbengine.opendatabase("dbs.mdb")
set DBobject=dbengine.opendatabase("dbo.mdb")
set RSTsource=DBsource.openrecordset("select * from a")
set RSTobject=DBobject.createrecordset("b")
for FEDobject each in RSTsource
   rstobject.fields.add fedobject
next
DBobject.recordsets.add RSTobject
rstobject.close
dbobject.close
dbsource.close