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
