Option Compare Database
Option Explicit

Dim myADOcon As New ADODB.Connection
Dim myRecSet As New ADODB.Recordset

Const Prv_Jet40 = "Provider=Microsoft.Jet.OLEDB.4.0;"

Sub Open_ADOdb()
    Set myADOcon = CurrentProject.Connection
End Sub

Sub Close_myRecSet()
    myRecSet.Close
    Set myRecSet = Nothing
End Sub

Sub Close_ADOdb()
    Set myADOcon = Nothing
End Sub

Sub レコードセット削除()
    Call Open_ADOdb
    Call RS_Delete
    Call Close_myRecSet
    Call Close_ADOdb
End Sub

Sub RS_Delete()
    Dim mySQL As String
    
    mySQL = "SELECT * FROM tbl個人顧客郵送先 WHERE 個人ID=5;"
    
    On Error GoTo ErrorCheck
    
    'トランザクション開始
    myADOcon.BeginTrans
    
    myRecSet.Open mySQL, myADOcon, adOpenKeyset, adLockOptimistic
        
    myRecSet.Delete

    myADOcon.CommitTrans

    Exit Sub

ErrorCheck:
    
    myADOcon.RollbackTrans
    MsgBox Err.Description
    
End Sub

-------------------------------------------

Sub 全レコードセット削除()
    Call Open_ADOdb
    Call RS_AllDelete
    Call Close_myRecSet
    Call Close_ADOdb
End Sub

Sub RS_AllDelete()
    Dim mySQL As String
    
    mySQL = "SELECT * FROM tbl個人顧客郵送先;"
    
    On Error GoTo ErrorCheck
    
    'トランザクション開始
    myADOcon.BeginTrans
    
    myRecSet.Open mySQL, myADOcon, adOpenKeyset, adLockOptimistic
    
    Do Until myRecSet.EOF
        myRecSet.Delete
        myRecSet.MoveNext
    Loop

    myADOcon.CommitTrans

    Exit Sub

ErrorCheck:
    
    myADOcon.RollbackTrans
    MsgBox Err.Description
    
End Sub 
 
-------------------------------------------
カレントレコードは移動せず、そのまま


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ