こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

コンボボックスに取得したレコードデータを表示したい

環境:winxp、vb6、access2000

以下の様にアクセスから抽出したレコード"rstdata"をCombo1のデータソースに指定してコンボボックスに表示したいのですが、何も表示されません。
原因が分かる方がいらっしゃればご教示ください。


*******コード********
Dim cn As New ADODB.Connection
Dim cmd As ADODB.Command
Dim rstdata As ADODB.Recordset
Dim strSQLdata As String
Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=aaa.mdb;" & _
"Mode=Read"
cn.Open
Set rstdata = New ADODB.Recordset
strSQLdata = "Select 項目名 From T_SHIKENDATA order by ID"
rstdata.Open strSQLdata, cn, adOpenStatic
Set Combo1.DataSource = rstdata
rstdata.Close
Set rstdata = Nothing
cn.Close
Set cn = Nothing

投稿日時 - 2008-08-09 13:05:38

QNo.4239009

困ってます

質問者が選んだベストアンサー

Set Combo1.DataSource = rstdata
Combo1.DataField = "項目名"
ですと、カレントレコードのみのようですね。


Do Until rstdata.EOF
Combo1.AddItem rstdata("項目名")
rstdata.MoveNext
Loop
ではダメでしょうか。

投稿日時 - 2008-08-09 14:26:00

お礼

早速のご回答ありがとうございました。
教えて頂いたとおりで大丈夫でした。
非常に助かりました。ありがとうございます。

投稿日時 - 2008-08-09 16:31:45

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問