Option ExplicitDim WithEvents adoPrimaryRS As Recordset Private Sub DelMdb(ByVal FileName As String) Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & FileName & ";" '打开数据库 Set adoPrimaryRS = New Recordset adoPrimaryRS.Open "DELETE * FROM Titles", db, adOpenStatic, adLockOptimistic '删除Titles表中的所有数据 注意: "DELETE * FROM Titles"End SubPrivate Sub Command1_Click() DelMdb "C:\BIBLIO.MDB" End Sub
http://www.w3school.com.cn/sql/sql_delete.asp
一种是直接用delete sql语句删除所有记录
另外一种是删除该表,然后再建第一种应该很简单
Option ExplicitDim WithEvents adoPrimaryRS As Recordset
Private Sub DelMdb(ByVal FileName As String)
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & FileName & ";" '打开数据库 Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "DELETE * FROM Titles", db, adOpenStatic, adLockOptimistic '删除Titles表中的所有数据 注意: "DELETE * FROM Titles"End SubPrivate Sub Command1_Click()
DelMdb "C:\BIBLIO.MDB"
End Sub