+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] التواريخ (/showthread.php?tid=39304)
التواريخ - محمد صالح احمد - 14-08-21
كيف يمكن البحث بين تاريخين باستخدام فجوال بيك 2008 علما بان هدا الكود لايعمل
Da3 = New SqlDataAdapter("SELECT Order_Rec,Num_Receipt,Num_Type,Name,Num,Date_Receipt FROM Tb_Receipt WHERE Date_Receipt BETWEEN '" & MaskedTextBox1.Text & "' btten '" & MaskedTextBox2.Text & "'", Con)n
RE: التواريخ - ابراهيم ايبو - 14-08-21
السلام عليكم ورحمة الله وبركاته
اخي الكريم بالنسبة للبحث بين تاريخين مع قواعد البياناتSqlserver
استخدم الصب التالي مع تغيير اسماء الجدول وحقل التاريخ
كود :
Public Sub SearhBetween2Date(ByVal DD1 As Date, ByVal DD2 As Date)
try
Dim dt As New DataTable()
Dim Cmd As New SqlCommand()
dt.clear()
Cmd = New SqlCommand("select * from Personal Where Cv_Bday>= @DD1 And Cv_Bday<= @DD2 ", Cn)
Cmd.parameters.Add("@DD1",SqlDbType.Date).value=DD1
cmd.parameters.Add("@DD2",SqlDbType.Date).value=DD2
If Cn.State = ConnectionState.Open Then
Cn.Close()
End If
Cn.Open()
dt.Load(cmd.ExecuteReader())
Cn.Close()
Dgv_Table.dataSource = dt
Catch ex As Exception
End Try
End Subكود :
SearhBetween2Date(DateTimePiker1.value,DateTimePiker2.value)ملاحظة هامة : انتبه الى صيغة التاريخ المحفوطة في قاعدة البيانات والصيغة في DateTimePicker يجب ان يكونوا بنفس الصيغة
بمعنى (يوم - شهر - سنة )او (شهر - يوم - سنة )