テーブルのすべてのフィールド名を配列として取り出せ

質問

テーブルのすべてのフィールド名を配列として取り出せるように変数に格納したいのですが
詰みました。

Private Sub test()
Dim cat As ADOX.Catalog
Dim clm As ADOX.Column
Dim tmp As Variant
Dim myTable As String

myTable = "T_Table"

Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = CurrentProject.Connection

For Each clm In cat.Tables(myTable).columns
tmp = Array("フィールド1", "フィールド2")
Next clm

End Sub

のようなことがしたいのですが、clm.nameでせっかく名前が取得できるのに、
どうやったらtmpに格納できるのでしょうか？

Arrayを使わない方法はあるのでしょうか？

回答No.1

bin-chan · ベストアンサー

RecordSetじゃダメなんですか？

rs.fields.countで件数を取得
取得した件数分ループ
　　rs.field(添え字).nameで列名
　　rs.field(添え字).nameで列名
ループ終わり

で列ごとの名前・内容が取れたと思います。

お礼

ADOX使わなくてもADOでイケました。

回答No.2

puddingeater

tmpの配列を先に確保してから1個ずつ入れていったらいいと思います。

Dim i As Integer
ReDim tmp(1 To cat.Tables(myTable).columns.Count)
i = 0
For Each clm In cat.Tables(myTable).columns
i = i + 1
tmp(i) = clm.Name
Next clm

お礼

ADOXを使えばこういう方法もあるのですね。