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

質問

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

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

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

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

回答No.1

piroin654 · ベストアンサー

値リストで、コンボボックスは非連結として、
レコードセットは未確認なのでテーブルから
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

お礼

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

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