MySQLデータベースと接続してExcelのSheet1の内容をテーブルにINSERTする

＜分類：データベース＞
＜使用例：MySQLデータベースと接続してExcelのSheet1の内容をテーブルにINSERTする＞
＜MySQLのサンプルデータベースの構成　※予め作成しておく＞
＜データベース：dbtest1＞
＜テーブル：testtbl1＞
＜テーブルのフィールド：no_id(int型)とnaiyo(varchar型)＞

＜プログラム例＞

Sub Mysql接続INSERT()
    Dim y As Long
    Dim strSQL As String
    
    Dim strField1 As Long
    Dim strField2 As String
    
    Dim adoCn As Object
    Dim adoRs As Object
    
    Set adoCn = CreateObject("ADODB.Connection")
    Set adoRs = CreateObject("ADODB.Recordset")
    
   'SERVER=ローカルの場合localhost
   'DATABASE= useするデータベース名
   'USER= MySQLの管理ユーザ名
   'password= MySQLで設定したパスワード
    adoCn.Open "Driver={MySQL ODBC 8.0 Unicode Driver};" & _
               "SERVER=localhost;" & _
               "DATABASE=dbtest1;" & _
               "USER=root;" & _
               "password=xxxxxxxx;"
    
    y = 2
    Do While Worksheets("sheet1").Cells(y, 1)
      'Sheet1の２行目から１カラム目のNO_IDと２カラム目のNAIYOをtesttbl1にINSERTする
       strField1 = Worksheets("sheet1").Cells(y, 1)
       strField2 = Worksheets("sheet1").Cells(y, 2)
       strSQL = "INSERT INTO testtbl1 (NO_ID,NAIYO) VALUES(" & strField1 & ",'" & strField2 & "');"
       Set adoRs = adoCn.Execute(strSQL)
       y = y + 1
    Loop
    
    adoCn.Close
    
    Set adoRs = Nothing
    Set adoCn = Nothing
    
End Sub