データベースを削除

削除の場合は、1件ずつの処理になるので、do〜loopで繰り返し処理を行う。

Sub テーブルのデータ削除()
'ｻｰﾊﾞ上の推進テーブル（koumokuテーブル）のデータを削除する。
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqldb As String
Dim res As Integer

res = MsgBox("sien.mdbの" & vbCrLf & _
"データを全削除します。", vbOKCancel, "MDBデータ削除")
If res = vbCancel Then Exit Sub

sqldb = "select * from koumoku"

db.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=\\server\sien.mdb;"

rs.Open sqldb, db, adOpenDynamic, adLockOptimistic

rs.MoveFirst
Do Until rs.EOF
rs.Delete
rs.Update
rs.MoveNext
Loop

rs.Close
db.Close

Set rs = Nothing
Set db = Nothing

End Sub