[new_programer]

السلام عليكم

كود :

 query = "select [sales_numb] FROM tbl_sales where ddate > @dat1 and ddate < @dat2 Group By [sales_numb]"
       cmd.Parameters.Add("@dat1", OleDbType.Date).Value = ddate1.Value
       cmd.Parameters.Add("@dat2", OleDbType.Date).Value = ddate2.Value
       command = New OleDbCommand(query, con)
       reader = command.ExecuteReader()
       If reader.HasRows Then
           While reader.Read()
               ListBox2.Items.Add(reader(0))
           End While
       End If
       reader.Close()
       con.Close()

اريد عرض ارقام الفوتير بين تاريخين  فى ليست بوكس
الكود شغال عند عمل استعلام بدون شرط ارجو التعديل

[new_programer]

السلام عليكم

الحمد لله
                 توصلت للحل  هذا هو الكود  يقوم بجلب جميع الفواتير المسجلة من جدول المبيعات خلال فترة بين تاريخين

الكود

PHP كود :

       Dim sql As String
        Dim conn As New System.Data.OleDb.OleDbConnection
        'Dim lst As String = dvgNumb.CurrentRow.Cells(1).Value
        'Dim lst2 As String = DataGridView1.CurrentRow.Cells(5).Value
        sql = "select [sales_numb] from tbl_sales where [ddate] between #" & ddate1.Value.Date & "# and # " & ddate2.Value.Date & "# Group By [sales_numb]"
        'sql = "select [date of consumed] from total where [num of box] ='" & lst & "' and [machine num]= '" & lst2 & "' and [date of consumed] between #" & ddate1.Value.Date & "# and # " & ddate2.Value.Date & "#"
        con.Open()
        Dim da1 As New System.Data.OleDb.OleDbDataAdapter(sql, con)
        Dim ds1 As New DataSet()
        da1.Fill(ds1, "total")
        Dim table As DataTable = ds1.Tables(0)
        ListBox2.DataSource = table
        ListBox2.DisplayMember = "sales_numb" 


[حريف برمجة]

بالتوفيق للجميع ،، ومشكور على إضافة الحل .