要删除access库中的所有表及数据，vb程序怎么写？

[ysyan]

要删除access库中的所有表及数据，vb程序怎么写？

[射天狼]

drop table语句

[射天狼]

Dim cn As New ADODB.Connection

cn.ConnectionString = "dsn=" & cboDSN1.Text & ";uid=" & txtUID1.Text & ";pwd=" & txtPWD1.Text
cn.Open

Set rs = cn1.OpenSchema(adSchemaTables)

Do Until rs.EOF
If Trim(rs!TABLE_TYPE) = "TABLE" Then
cn.Execute "drop table " & Trim(rs!TABLE_NAME)
rs.MoveNext
Loop

[ysyan]

我也知道这个命令，能不能详细点，删除的是access

[ysyan]

可每次mdb中的表不一样啊，而且也不知道上一次建立的是什么表，只要能一起全部删掉就行

[sword281]

直接将库删掉再建新库不就得了吗？,

[liaorui]

同意 cuizm(射天狼)

你用他的程序就可以删除掉数据库里全部的表了。