More than 1 year has passed since last update.

コミットする前

MySQL
VBA

Last updated at 2022-12-11Posted at 2022-12-11

Sub test()
    Dim cn As Object
    Set cn = CreateObject("ADODB.Connection")
    
    On Error GoTo err
    
    cn.Open "myMySQL_ODBC"
    cn.BeginTrans
    
    Sql = "INSERT IGNORE INTO test VALUES(1,'isao','test','2022-12-12');"
    cn.Execute Sql

    Sql = "INSERT IGNORE INTO test VALUES(1,'atushi','test','2022-12-12');"
    cn.Execute Sql
    
    cn.CommitTrans
    GoTo finally
    
err:
    cn.RollbackTrans
    
finally:
    cn.Close
    Set cn = Nothing
End Sub

2個目のSQL分は無視されます

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up