+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب تعديل كود استعلام (/showthread.php?tid=28358)
طلب تعديل كود استعلام - new_programer - 25-01-19
السلام عليكم
كود :
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()اريد عرض ارقام الفوتير بين تاريخين فى ليست بوكس
الكود شغال عند عمل استعلام بدون شرط ارجو التعديل
RE: طلب تعديل كود استعلام - new_programer - 25-01-19
السلام عليكم
الحمد لله
توصلت للحل هذا هو الكود يقوم بجلب جميع الفواتير المسجلة من جدول المبيعات خلال فترة بين تاريخين
الكود
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"
RE: طلب تعديل كود استعلام - حريف برمجة - 25-01-19
بالتوفيق للجميع ،، ومشكور على إضافة الحل .