みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

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

解決済みの質問

ADO コンボボックスについて質問です。

ADO コンボボックスについて質問です。

Access2000 ADO を使用し、コンボボックスの作成をしています。

当初レコードセットの
strItem = フィールド(1) & ";" & フィールド(2)
として、Me![コンボボックス].AddItem = strItem
をDo Loopさせていましたが、
使用環境がAccess2000の為、.AddItemが使用できません。

ADOのテーブルをコンボボックスに表示するにはどの様にすれば良いのでしょうか?
出来ればソースをよろしくお願いいたします。
m(_ _)m

投稿日時 - 2010-04-19 13:15:22

QNo.5836673

すぐに回答ほしいです

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

値リストで、コンボボックスは非連結として、
レコードセットは未確認なのでテーブルから
SQLで取得とします。

Private Sub Form_Open(Cancel As Integer)
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\sample.mdb"

With rs
.Open "Select フィールド(1), フィールド(2) From テーブル名;", cnn, _
adOpenForwardOnly, adLockReadOnly
Me.[コンボ名].RowSource = rs.GetString(adClipString, , , ";")

End With
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub

投稿日時 - 2010-04-19 20:59:56

お礼

ありがとうございます。
上記コードをそのまま流用させていただきます。

GetStringで2項挿入出来るのですね。
非常に参考になりました。
m(_ _)m

投稿日時 - 2010-04-20 07:34:10

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

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

回答(1)

あなたにオススメの質問