如何刪除MS Access中使用VB6的所有記錄ADO

Question

我想使用VB.6代碼刪除MS Access中表的所有記錄。

其實我要重置我的數據庫，因爲我的意思是沒有記錄了。

我該怎麼做？

Answer 1

我已經完成了。

On Error Resume Next 
Dim cnn As New ADODB.Connection 
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.mdb" 
cnn.Open 
cnn.Execute "delete * from LogTBL" 
cnn.Close 

Answer 2

這是將刪除所連接的Access數據庫的所有表中的所有記錄的代碼。然而！！如果您在表格之間建立了關係並且未指定「級聯刪除」，則在從「成員」表中刪除之前，您無法刪除「所有者」表。解決辦法之一是添加錯誤陷阱，以便檢查該情況，然後忽略（繼續下一步）。但是，那麼你需要重複運行這個代碼，直到沒有錯誤。您需要設置連接字符串（請參閱代碼中的註釋）！

Function Delete_All_Data() 
Dim cnLocalData  As ADODB.Connection 
Dim catLocal  As ADOX.Catalog 
Dim tdf    As ADOX.Table 
Dim strSQL   As String 
Dim strTableName As String 

    Set cnLocalData = New ADODB.Connection 

    MsgBox " Add code to connect to your database either using Connection cnLocalData or your own and change this code!!!" 

    Set catLocal = New ADOX.Catalog 
    catLocal.ActiveConnection = cnLocalData 

    For Each tdf In catLocal.Tables 
     If UCase(tdf.Type) = "TABLE" And UCase(Left(tdf.Name, 4)) <> "MSYS" Then 
      if tdf.Name <> "INFOTBL" Then 
       strTableName = tdf.Name 
       strSQL = "delete * from [" & strTableName & "];" 
       cnLocalData.Execute strSQL 
      End If 
     End If 
    Next tdf 
    Set tdf = Nothing 
    Set catLocal = Nothing 
    cnLocalData.Close 
    Set cnLocalData = Nothing 

End Function