منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كود البحث بين تاريخين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27226)

الصفحات: 1 2

كود البحث بين تاريخين - livealone2002 - 31-10-18

ارجو المساعدة لدى قاعدة بيانات اسمها  PHARMAD بها جدول مبيعات اسمه EPH_VIEW_sales_d_total_inquiry بداخله عمود للتاريخ اسمهtxn_date اريد كود للبحث بين تاريخين من datetimepicker وصيغة التاريخ بقاعدة البيانات كالتالى 4/17/2018 07:00 م ارجو مساعدتى بكود البحث بين التاريخين حاولت كثيرا ولم انجح قاعدة البيانات sql

RE: كود البحث بين تاريخين - Rabeea Qbaha - 31-10-18

كود :
Dim cmd As New OleDbCommand("SELECT * FROM [EPH_VIEW_sales_d_total_inquiry] WHERE [اسمهtxn_date] Between ? And ?", Conn)
       cmd.Parameters.AddWithValue("?", datetimepicker1.Value.Date)
       cmd.Parameters.AddWithValue("?", datetimepicker2.Value.Date)


RE: كود البحث بين تاريخين - livealone2002 - 31-10-18

(31-10-18, 06:11 PM)Rabeea Qbaha كتب :
كود :
Dim cmd As New OleDbCommand("SELECT * FROM [EPH_VIEW_sales_d_total_inquiry] WHERE [اسمهtxn_date] Between ? And ?", Conn)
       cmd.Parameters.AddWithValue("?", datetimepicker1.Value.Date)
       cmd.Parameters.AddWithValue("?", datetimepicker2.Value.Date)

مشكور جزيل الشكر ولكن ممكن الكود بالكامل لل button بداية من جملة الاتصال جزاك الله خيرا
صوره للخطا
https://imgur.com/a/WkmRZLR

بحيث ان نتيجة البحث تظهر فى داتا جريد فيو

RE: كود البحث بين تاريخين - Rabeea Qbaha - 31-10-18

كود :
If sqlcon.State = ConnectionState.Closed Then
sqlcon.Open()
       End If
   
   Dim cmd As New sqlCommand("SELECT * FROM [EPH_VIEW_sales_d_total_inquiry] WHERE [txn_date] Between @date1 And @date2 ", sqlcon)
cmd.Parameters.AddWithValue("@date1", datetimepicker1.Value)
       cmd.Parameters.AddWithValue("@date2", datetimepicker2.Value)
   
   ds.Clear()
 

       adaptor = New sqlDataAdapter(cmd)
       adaptor.Fill(ds, "EPH_VIEW_sales_d_total_inquiry")

       sqlcon.Close()

       GV.DataSource = ds
       GV.DataMember = "EPH_VIEW_sales_d_total_inquiry"
       GV.Refresh()
GV هي ال datagridview

RE: كود البحث بين تاريخين - livealone2002 - 31-10-18

بعد جزيل الشكر جدا للمبدع RABEEA GBAHA  
بعد تطبيق الخطوات فى form load تظهر محتويات البحث كما فى الصوره المرفقه رقم 2
لكن عند اختيار تاريخ والبحث لا يظهر اي نتائج كمف فى صوره 3
جزيت خيرا
اين الخطا ساعدنى فى مشروعى المتواضع
https://imgur.com/a/5ziFK0F

https://imgur.com/a/fK4omBo

بعد اختيار التاريخ المتاكد من وجود بيانات به تظهر كالتالى
https://imgur.com/a/rzKMjXl

RE: كود البحث بين تاريخين - elgokr - 01-11-18

مرحباً اخى livealone2002

كل ما عليك تطبيق كود الاستعلام على هذا الشكل مع تغيير ما تريده من مسميات والنتائج الاستعلام بدلاً من *
كود :
Select * From EPH_VIEW_sales_d_total_inquiry Where txn_date Between #01/29/2018# and #08/20/2018#

كل الامر فقط ما ستحتاج اليه هو تغيير التواريخ الى الاداء DateTimePicker
بحيث التاريخ الاول يستبدل بـ 
كود :
DateTimePicker1.Value

والتاريخ الثاني يستبدل بـ
كود :
DateTimePicker2.Value

مكان استخدام كود الاستعلام
فقط استخدمه كاى استعلام قمت به مسبقاً فى المشروع لديك
هات اى كود استعلام فى المشروع لديك واستخدامه
واستبدل نص الاستعلام بهذا النص الموضح بالرد

تيحاتى لك
وتمنياتى لك التوفيق


RE: كود البحث بين تاريخين - Rabeea Qbaha - 01-11-18

(31-10-18, 10:02 PM)livealone2002 كتب : بعد جزيل الشكر جدا للمبدع RABEEA GBAHA  
بعد تطبيق الخطوات فى form load تظهر محتويات البحث كما فى الصوره المرفقه رقم 2
لكن عند اختيار تاريخ والبحث لا يظهر اي نتائج كمف فى صوره 3
جزيت خيرا
اين الخطا ساعدنى فى مشروعى المتواضع
https://imgur.com/a/5ziFK0F

https://imgur.com/a/fK4omBo

بعد اختيار التاريخ المتاكد من وجود بيانات به تظهر كالتالى
https://imgur.com/a/rzKMjXl

تاكد من ال format للتاريخ 

ضع الكود هذا في اول الكود 


كود :
       Dim date1 As String = Format(Datepicker1.Value, "yyyy-MM-dd")
       Dim date2 As String = Format(Datepicker2.Value, "yyyy-MM-dd")

وبدل ال Datepicker1.Value  بكلمه date1
Datepicker2.Value  بكلمه date2

ليصبح كالاتي :


كود :
If sqlcon.State = ConnectionState.Closed Then
sqlcon.Open()
      End If

       Dim date1 As String = Format(Datepicker1.Value, "yyyy-MM-dd")
Dim date2 As String = Format(Datepicker2.Value, "yyyy-MM-dd")

  Dim cmd As New sqlCommand("SELECT * FROM [EPH_VIEW_sales_d_total_inquiry] WHERE [txn_date] Between @date1 And @date2 ", sqlcon)
cmd.Parameters.AddWithValue("@date1", date1)
      cmd.Parameters.AddWithValue("@date2", date2)
 
  ds.Clear()
 

      adaptor = New sqlDataAdapter(cmd)
      adaptor.Fill(ds, "EPH_VIEW_sales_d_total_inquiry")

      sqlcon.Close()

      GV.DataSource = ds
      GV.DataMember = "EPH_VIEW_sales_d_total_inquiry"
      GV.Refresh()


RE: كود البحث بين تاريخين - livealone2002 - 01-11-18

للاسف لم تظبط معى لذلك ارسلت المشروع بصور الاخطاء لعلى اجد لديكم معيني على المشروع اللى طلع عيني دا ارجو التعديل ليعمل البحث ويظهر نتائج البحث
https://ufile.io/a7lrk
ومشكولر الف الف مره للمبدع RABEEA GBAHA

RE: كود البحث بين تاريخين - Rabeea Qbaha - 01-11-18

بدل الفورمات للتاريخ بهذا الكود 
كود :
       Dim date1 As String = Format(Datepicker1.Value, "YYYY-MM-DD HH:MI:SS")
       Dim date2 As String = Format(Datepicker2.Value, "YYYY-MM-DD HH:MI:SS")
 اذا لم يعمل قم برفع قاعدة البيانات لاعدل لك على المشروع

RE: كود البحث بين تاريخين - livealone2002 - 01-11-18

(01-11-18, 07:26 PM)Rabeea Qbaha كتب : بدل الفورمات للتاريخ بهذا الكود 
كود :
       Dim date1 As String = Format(Datepicker1.Value, "YYYY-MM-DD HH:MI:SS")
       Dim date2 As String = Format(Datepicker2.Value, "YYYY-MM-DD HH:MI:SS")
 اذا لم يعمل قم برفع قاعدة البيانات لاعدل لك على المشروع

https://ufile.io/2tr0v

 هذه هى قاعدة البيانات تظهر الرساله التاليه
Syntax error converting character string to smalldatetime data type.