vb 代码方式清空access数据库中所有表中的所有数据，保留表结构
vb 代码方式清空access数据库中所有表中的所有数据，保留表结构
注意是清空所有表的记录！不是清空某一个表的记录



请问代码怎么写

[解决办法]
一个表一个表清
[解决办法]
'引用 Microsoft AcviteX Data Objects 2.x Library

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source= 'c:\db1.mdb';"
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
cnn1.Execute "DELETE * FROM " & rstSchema!TABLE_NAME
End If
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close
[解决办法]
delete from table