コンボボックスにMDBのフィールド名を表示するには？

解決

蜈 2005-09-29 05:11:30 No: 125827

こんばんは
最近、VB6を始めてみました。

コンボボックスにMDBのフィールド名を表示
させたいのですが、何も表示されません。

ご指導の程、宜しくお願いします。

Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Combo1_DropDown()
    Dim mySQL As String

    mySQL = "SELECT 題名 FROM 本"

    Set rs = New ADODB.Recordset

    rs.Open mySQL, cn, adOpenStatic
    Set Combo1.DataSource = rs

End Sub

Private Sub Form_Load()

    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
                        & "Data Source=C:\Book.mdb"
    cn.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
    rs.Close
    cn.Close
End Sub

はも 2005-09-29 05:15:24 No: 125828

重複送信してしまいました。
すみません。

AmeTalk 2005-09-29 09:21:06 No: 125829

Form_Loadイベントに
Combo1.AddItem "題名"
これでどだぁ