コンボボックス

質問

ACCESSのテーブルのデータをコンボリストに表示させたい
のですが、どうやったらいいのかまったくわかりません

読込はできるのですが、どうやったらリストに表示できるのかおしえてください。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

まず、テーブルのレコードセットを作成し、データを配列に格納します。
配列への格納はGetRowsメソッドを使用すると簡単です。
なお、GetRowsメソッドはADOとDAOで引数などが違いますので、ヘルプで確認して下さい。
そしたら、コンボにAddItemメソッドで追加します。
とりあえず、ADOの例

Set rs = New ADODB.RecordSet
rs.Open "テーブル名", (コネクション), adOpenKeyset, adLockReadOnly
Data() = rs.GetRows

For i = 0 To UBound(Data, 2)
　　cboコンボ.AddItem Data(0, i)
Next i

ちなみにこの例では、テーブルの最初のフィールドの値（配列の始めの添え字が0）をリストアップしています。
では。

お礼

ありがとうございます。

なんとか表示することができました。

補足

ありがとうございます。
無事コンボボックスにテーブルのデータを表示することが
できました。

申し訳ないのですが、コンボの頭出しを常に無表示にしたいのですが、どうやれば常に無表示にできるのか教えていただければ幸いです。

我侭いって申し訳ありませんが、よろしければお願いいたします。