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

はも 2005-09-29 05:11:57 No: 125830

こんばんは
最近、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

回答X 2005-09-29 23:07:09 No: 125831

Private Sub Combo1_DropDown()
でセレクトしてるけど、フォームロードでセレクトして
先にコンボに設定してみたら？