タイトル : Re: リストボックス表示 投稿日 : 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 |