select * into newtablenamedelete * from newtalbename执行以上两个语句后,你就有了一个完全相同的新表
conn as adodb.connection ''' conn.open your database,uid,pwd sql="select * form YourScouceTbale into YourObjectTable" '注意,目的表是以前在库中不存在的,否则会出错 conn.execute(sql)
Dim myAcc As Object Set myAcc = CreateObject("access.application") myAcc.OpenCurrentDatabase "d:\db1.mdb" myAcc.DoCmd.CopyObject , "表1Copy", acTable, "表1" myAcc.Quit
'''
conn.open your database,uid,pwd
sql="select * form YourScouceTbale into YourObjectTable" '注意,目的表是以前在库中不存在的,否则会出错
conn.execute(sql)
Set myAcc = CreateObject("access.application")
myAcc.OpenCurrentDatabase "d:\db1.mdb"
myAcc.DoCmd.CopyObject , "表1Copy", acTable, "表1"
myAcc.Quit