DateTimePickerを２つ使いデータベースから、選んだ範囲のＩＤを呼び出して、そこから各ＩＤにある、データを使うには？ (ID:140802)

名前

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

本文

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
としたい場合、どのようにプログラムを書いたら良いのかもわかりません。

ＶＢ始めて１ヶ月くらいでして  このような感じでしか書けないのですが
なにとぞご教授お願いします。

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

戻る