Sub e2_mysql削除goods()
    Dim SelCmd As String   '選択用のSQLステートメント
    Dim DelCmd As String   '削除用のSQLステートメント
    Dim n As Integer       '明細の個数
    Dim i As Integer       'カウンタ
    'データベースの接続
   Call a02_InODBC
    '画面を固定
    Application.ScreenUpdating = False
    '入力したデータ数（b2:b5）を調べる
    n = Application.WorksheetFunction.CountA(Range("b2:b5"))
    If n = 0 Then
      MsgBox "データがないため終了します", vbOKOnly, "削除"
      Exit Sub
    End If
   
For i = 0 To n - 1
'テーブルから既存のデータを削除
 ans = MsgBox(Cells(i + 2, 2).Value & "  " _
 & Cells(i + 2, 4).Value & " を完全に削除します。", vbYesNo, "確認")
    Select Case ans
       Case vbNo
          Call a09_OutODBC
          Exit Sub
       Case Else
    End Select
       
      DelCmd = "DELETE FROM goods WHERE renban =" & Cells(i + 2, 2).Value & ""

      cn.Execute DelCmd
Next i
    '後処理
     Call a09_OutODBC
    MsgBox "削除されていることを確認して下さい。", vbOKOnly, "削除完了"
   '画面の固定を解除
    Application.ScreenUpdating = True
End Sub