tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルリストボックス表示
記事No2731
投稿日: 2005/12/11(Sun) 15:27
投稿者ACG
[OSのVer]:Windows    [VBのVer]:VB.NET 
データベースから条件に一致した項目をリストボックスに表示する方法がわかりません
わかる方ご教授よろしくお願いします。
データベース:ACCESS

社員マスタの社員姓テーブルから「石田」を検索し、
リストボックスに、条件に一致した(石田)社員名を表示します。

社員マスタ構成
・社員ID
・社員姓
・社員名

<ソース>
Dim oleCn As OleDb.OleDbConnection = New OleDb.OleDbConnection
    Dim oleDa As OleDb.OleDbDataAdapter
    Dim dtSet As DataSet = New DataSet("A")
    Dim dtTable As DataTable
    Dim dtRow As DataRow

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As        
 oleCn.ConnectionString = _
                            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=A.mdb;" & _
                            "Persist Security Info=False"

        '選択SQL文を作成してレコードを取得する
        oleDa = New OleDb.OleDbDataAdapter("SELECT * FROM 社員マスタ", oleCn)
        oleDa.Fill(dtSet, "社員マスタ")

        'データセットからテーブルを取得する
        dtTable = dtSet.Tables("社員マスタ")


        oleDa = New OleDb.OleDbDataAdapter( _
            "SELECT  * FROM  社員マスタ " & _
            "WHERE 社員姓 = '石田' ", oleCn)

        ' データ検索
        Dim ds As New DataSet
        oleDa.Fill(ds)

     
------------------------------------------------------------------
ここから先でリストボックスに表示するところでつまってしまいました・・・
よろしくお願いします。
 

[ツリー表示へ]
タイトルRe: リストボックス表示
記事No2732
投稿日: 2005/12/11(Sun) 23:15
投稿者なおこ(・∀・)
お世話になります。

以下のような感じでしょうか。

>         oleDa = New OleDb.OleDbDataAdapter( _
>             "SELECT  * FROM  社員マスタ " & _
>             "WHERE 社員姓 = '石田' ", oleCn)
>             ' データ検索
>             Dim ds As New DataSet
oleDa.Fill(ds, "社員マスタ")
Dim dt As DataTable = ds.Tables("社員マスタ")

For Each row As DataRow In dt.Rows
  Me.ListBox1.Items.Add(row("社員ID").ToString())
Next

[ツリー表示へ]
タイトルRe^2: リストボックス表示
記事No2815
投稿日: 2005/12/22(Thu) 11:39
投稿者ACG
遅くなり申し訳ございません。教えていただいた通りにしたら解決できました。
ありがとうございました。

[ツリー表示へ]