منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

كود :

 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()

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

السلام عليكم

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

الكود

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" 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

new_programer

new_programer

حريف برمجة