DateTimePickerを２つ使いデータベースから、選んだ範囲のＩＤを呼び出して、そこから各ＩＤにある個数をTextBoxに表示したいです。
ListBoxに選んだ全てのＩＤを表示する事が出来たのですが、それを各TextBoxに表示する方法がわかりません。
使ってるのは、VB2008Express EditionでAccess2007です
データベースの内容がこのような形として
テーブル名はmainです
ID 日付 個数
1 2008/11/01 300
2 2008/11/02 400
3 2008/11/03 500
4 2008/11/04 600
5 2008/11/05 700
DateTimePicker１に2008/11/02、DateTimePicker２に2008/11/04を入れまして、Button1を押すとListBoxに表示する事はできました。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a.mdb")
Dim z As OleDbCommand = Cn.CreateCommand
Dim time As String
Dim time1 As String
Dim Table As New DataTable
Dim Adapter As New OleDbDataAdapter(z)
time1 = DateTimePicker2.Value.Date.ToShortDateString
time = DateTimePicker1.Value.Date.ToShortDateString
z.CommandText = "SELECT id FROM main where (((日付) Between #" & time & "# And #" & time1 & "#))"
Cn.Open()
Adapter.Fill(Table)
ListBox1.DataSource = Table
ListBox1.DisplayMember = "id"
Cn.Close()
End Sub
これでListBoxに２，３，４と表示されて 入力した範囲の日付ＩＤが選ばれてるってのは確認できたのですが、選ばれたＩＤの個数をTextBoxに表示する方法がわかりません。
もう１つ聞きたいのですが 上の方法で始まりのＩＤと終わりのＩＤが選ばれて、それを for s= 始まりのＩＤ to 終わりのＩＤ
Next s
としたい場合、どのようにプログラムを書いたら良いのかもわかりません。
ＶＢ始めて１ヶ月くらいでして このような感じでしか書けないのですが
なにとぞご教授お願いします。
質問の内容が 少し違ってました
ListBoxにＩＤが、２，３，４と表示されてた時に、ID 3の個数が５００とした場合、５００をTextBoxに表示したいのです。
よろしくお願いします