リストボックスからのデータの抽出について (ID：107370)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ちょっと突貫で作りましたので、バグやエラーがあってもご容赦・・・

Option Explicit

Private Sub Command1_Click()

Me.Hide
    Unload Me
    
    End

End Sub

Private Sub DataList1_Click()

Adodc1.RecordSource = "select * from Member where ID='" & DataList1.BoundText & "'"
    Adodc1.Refresh

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
    Adodc1.CommandType = adCmdText
    Adodc1.CursorLocation = adUseClient
    Adodc1.CursorType = adOpenDynamic
    Adodc1.LockType = adLockReadOnly
    Adodc1.Mode = adModeRead
    Adodc1.RecordSource = "select * from Member order by ID"
    Adodc1.Refresh
    
    Set DataList1.DataSource = Adodc1
    DataList1.DataField = "ID"
    DataList1.ListField = "ID"
    DataList1.BoundColumn = "ID"
    Set DataList1.RowSource = Adodc1.Recordset
    DataList1.Refresh
    
    Set Text1.DataSource = Adodc1
    Text1.DataField = "Name"
    Text1.Refresh
    
    Set Text2.DataSource = Adodc1
    Text2.DataField = "Yomigana"
    Text2.Refresh
    
    Adodc1.Refresh

End Sub

Private Sub Form_Unload(Cancel As Integer)

Text2.DataField = ""
    Set Text2.DataSource = Nothing
    
    Text1.DataField = ""
    Set Text1.DataSource = Nothing
    
    DataList1.DataField = ""
    Set DataList1.DataSource = Nothing
    
    Adodc1.RecordSource = ""
    Adodc1.ConnectionString = ""
    
End Sub

●  プロジェクトのある場所にTEST.MDBを作成し、テーブル名を『Member』
    とします。
    フィールド情報は、
    ID        テキスト４文字（主キー）
    Name      テキスト
    Yomigana  テキスト

フォームには、ＤＢリストコントロールと、２ツのテキストボックス
    を配置し、また、ADODCコントロールを配置します。
    ここでは、プログラムの起動時に動的にデータベースに接続するよう
    にしています。

ご参考までに・・・

以上。

←解決時は質問者本人がここをチェックしてください。

戻る