[求助]怎么样清空库里原有的数据?

οしαУ′颴

怎么样清空ACCESS库里原有的数据，而保留库格式？
请大家帮忙，谢谢！

梦的放肆

delete * from 表

═━灆涩━═

不是这个意思，是一下子清空库中所有表的原有数据，但保留表结构

~~真累~~

这个函数或许能帮上你的忙

Private Sub Command1_Click() '功能：获取access库中表的个数及表的名称 '用ado怎样实现 '工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号） '---------------------------------------------------------------------------- Dim adoCN As New ADODB.Connection '定义数据库的连接 Dim strCnn As New ADODB.Recordset Dim rstSchema As New ADODB.Recordset Dim i As Integer str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.MDB;Persist Security Info=False" adoCN.Open str1
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF If rstSchema!TABLE_TYPE = "TABLE" Then out = out & "Table name: " & _ rstSchema!TABLE_NAME & vbCr & _ "Table type: " & rstSchema!TABLE_TYPE & vbCr i = i + 1 End If rstSchema.MoveNext Loop MsgBox i & " 个表" rstSchema.Close
adoCN.Close Debug.Print out End Sub

妊嫒ぞ流逝

VB的，不知道在ASP中能不能用