MySQLとEXCELVBA テーブルからのフィールド名の取得について

Question

最近MySQLとVBAの勉強を始めた初心者です。今わからないのが以下のことなので質問させていただきたいです。

excel vbaからMySQLで作成したDATABASEに接続しテーブルを読みこみ
シート上に展開することはできたのですが、その際に各レコードは
出力されるのですが、フィールド名(見出し)はでてきません。

使用しているコードは以下のコードです。

Dim Rs As Object
Set Rs = CreateObject("ADODB.Recordset")

Dim strSQL As String
strSQL = "SELECT * FROM table1"

Rs.Open strSQL, cn
Worksheets(1).Range("A4").CopyFromRecordset Rs

一応'DESCRIBE'なども試したのですがその場合レコードが横向きに展開されるのに対して
フィールド名が縦並びになってしまいました。

同時にフィールド名も展開するためにはどのようにすればいいでしょうか？
同時でなくともフィールド名を横向きに表示する方法があれば教えてください。

Answer 1

カラム名は自前で取得するしか無いですね。
openしているRecordsetをrsだとすると、以下のようにすれば取得できますので、それを見出行に埋めていけばいいかと思います。

    For i = 0 To (rs.fields.Count - 1)  
        Debug.Print rs.fields(i).Name  
    Next

Comments

[saiki326516]

ありがとうございます！
教えていただいたコードを利用したら出力できました。

Answer 2

INFORMATION_SCHEMA テーブル の INFORMATION_SCHEMA COLUMNS の COLUMN_NAME を GROUP_CONCAT で横に並べます。

Comments

[saiki326516]

回答ありがとうございました。
今回は別のコードで解決しましたが教えていただいた件も参考にさせていただきます。