MySQLデータベースと接続してテーブルの内容をセルに表示する

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

＜プログラム例＞

Sub Mysql接続SELECT()
    Dim x, x2 As Long
    Dim y As Long
    Dim strSQL 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;"

    strSQL = "SELECT * FROM testtbl1;"

    Set adoRs = adoCn.Execute(strSQL)
    
    y = 1
    Do Until adoRs.EOF
    
       If y = 1 Then
          For x = 1 To adoRs.Fields.Count
             '先頭フィールド名の設定
              Cells(1, x).Value = adoRs.Fields(x - 1).Name
          Next x
       Else
          Cells(y, 1).Value = adoRs!no_id  'フィールド１内容
          Cells(y, 2).Value = adoRs!naiyo 'フィールド２内容
          adoRs.MoveNext
       End If
         
       y = y + 1
    Loop
      
    adoRs.Close
    adoCn.Close
    
    Set adoRs = Nothing
    Set adoCn = Nothing
    
End Sub