コンボボックス

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

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

No.1 ベストアンサー 回答者： maruru01 回答日時： 2002/04/22 16:01

こんにちは。

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）をリストアップしています。
では。

この回答への補足

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

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

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

補足日時：2002/04/22 17:10

この回答へのお礼

ありがとうございます。

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

お礼日時：2002/04/22 17:18