Public Sub DBInsertUpdate1() Dim i As Integer Dim sql,sql1,sql2,sql3,sql4,DBInfor As String DBInfor = "Provider=SQLOLEDB;" _ & "Data Source=鯖IP;" _ & "Initial Catalog=DBNAME;" _ & "User ID = id; Password= psswd;"
For i=1 To 500 Step 1 'ここでif文でsql文を4つ生成する。 sql = sql1 & sql2 & sql3 & sql4
if ある条件 Then Dim cn As Object Set cn = CreateObject("ADODB.Connection") cn.ConnectionString = DBInfor cn.Open '■ここにcn.BeginTransが必要か? On Error Resume Next cn.Execute sql 'このsqlという変数に4つのSQL文がまとめられてる If Err.Number = 0 Then '■ここにCommitTransが必要か? Else '■ここにRollbackTransが必要か? Err.Clear cn.Close Exit Sub End if On Error GoTo 0 cn.Close End if Next i End Sub