如何全部记录，和添加一张数据表？

[JimStation]

我建了一个book.mdb的数据库。里面有一张表aaa，我想删出aaa里面所有记录，怎么办？还有我想添加一张空表bbb,bbb表的结构要求复制aaa的。求用完成该操作的vb代码，新手，请赐教！！

[yoki]

Dim cn As New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=c:\book.mdb"
cn.Execute "drop table aaa"
cn.Execute "select * into bbb from aaa where 1=2"
cn.Close
Set cn = Nothing

[wangqingyu]

cn.Execute "select * into bbb from aaa where 1=2"
cn.Execute "drop table aaa"

[lxcc]

yoki(小马哥) ( )顺序反了

[boydgmx]

Dim conn As New ADODB.Connection
conn.Open "provider=microsoft.jet.oledb.4.0;data source=数据库路径"
conn.Execute "delete from table 表名"
conn.Execute "select * into bbb from aaa"
conn.Close
Set conn= Nothing

[boydgmx]

conn.Execute "delete from table 表名"
conn.Execute "select * into bbb from aaa"
注意这两句，如果aaa是上一句中刚刚清空的表，则第二句没有问题，
否则必须加上条件 where 0=1

[jpinglee]

Dim cn As New ADODB.Connection
dim rs as new adodb.recordset
dim sql as string
set cn=new adodb.connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=c:\book.mdb"
set rs=new adodb.recordset
sql= "select * into bbb from aaa where 1=2"
rs.open sql,cn
Set rs = Nothing
set rs=new adodb.recordset
rs.open "drop table aaa",cn
set rs=nothing

[JimStation]

我想用adox完成，有办法吗?