+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 and sql (/showthread.php?tid=25976)
كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql - essawq - 04-08-18
السلام عليكم ورحمة الله وبركاتة
انا متوسط في البرمجة ومن محبي البرمجة
واعمل على برنامج الامور تماام عندي لكن كود البحث بالتاريخ لم ينجح معي طبعا من الشروحات بالانترنت
انا عندي فورم بحث :-
زر بتن
اداة داتا تايم بيكر
اداة داتا جريد فيو لعرض البيانات
وتكست بكس ايضا تعرص البيانات
هذا الكود الذي استخدمتة من احدي الشروحات ولم ينجح معي
ويظهر لي الخطا التالي
Incorrect syntax near '#'.
تحياتي لكم
كود :
Try
Dim dtp As Date = DTP_pur.Value
myconn.dt.Clear()
myconn.da = New SqlDataAdapter("Select * from woork1 where alyowm = #" & dtp.Year & "/" & dtp.Month & "/" & dtp.Day & "#", myconn.conn)
myconn.da.Fill(myconn.dt)
DgvPrent.DataSource = myconn.dt
If myconn.dt.Rows.Count = 0 Then
MsgBox("لا يوجد بيانات", MsgBoxStyle.Information, "البحث")
End If
myconn.load_data()
Catch ex As Exception
MsgBox(ex.Message)
End TryRE: كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql - aljzazy - 04-08-18
تفضل يا عزيزي هذا كود للبحث
ما عليك الا تعديل اسم ادارة الديت تايم بيكر عندك
واستدعاء searchDate()
PHP كود :
Sub searchdate()
Try
Con.Open()
Dim Cmd As New SqlCommand
With Cmd
.Connection = Con
.CommandType = CommandType.Text
.CommandText = " Select * from woork1 where alyowm = '" & DateTimePicker1.Text & "'"
End With
Dim myDA As SqlDataAdapter = New SqlDataAdapter(Cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, "woork1")
DgvPrent.DataSource = myDataSet.Tables("woork1").DefaultView
Con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
RE: كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql - essawq - 04-08-18
السلام عليكم ورحمة الله وبركاتة
مشكور اخي على ردك وبارك الله فيك وبميزان حسناتك
الكود يعمل 100% ب 100%
انا حطيت الكود بالكلاس واعطيتة ببلك واستدعيتة داخل الفورم ويعمل تمااام التمااام
بعد اذنك اخي الكريم واذا وقتك يسمح بكود البحث بين تاريخين بنفس القاعدة ونفس الجدول
وبارك الله فيك اخي الكريم
تحياتي لك
RE: كود البحث بالتاريخ عقدني هل من مساعدة بكود البحث بالتاريخ vb.net and sql - aljzazy - 04-08-18
PHP كود :
Dim dt As New DataTable()
Dim cmd As New SqlCommand("SELECT * FROM `woork1` WHERE `alyowm` BETWEEN @d1 AND @d2", connection)
command.Parameters.Add("@d1", SqlDbType.Date).Value = DateTimePicker1.Value
command.Parameters.Add("@d2", SqlDbType.Date).Value = DateTimePicker2.Value
Dim adp As New SqlDataAdapter(cmd)
adapter.Fill(dt)
DgvPrent.DataSource = dt