تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود البحث بين تاريخين
#1
ارجو المساعدة لدى قاعدة بيانات اسمها  PHARMAD بها جدول مبيعات اسمه EPH_VIEW_sales_d_total_inquiry بداخله عمود للتاريخ اسمهtxn_date اريد كود للبحث بين تاريخين من datetimepicker وصيغة التاريخ بقاعدة البيانات كالتالى 4/17/2018 07:00 م ارجو مساعدتى بكود البحث بين التاريخين حاولت كثيرا ولم انجح قاعدة البيانات sql
الرد }}}
تم الشكر بواسطة:
#2
كود :
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)
الرد }}}
تم الشكر بواسطة:
#3
(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

بحيث ان نتيجة البحث تظهر فى داتا جريد فيو
الرد }}}
تم الشكر بواسطة:
#4
كود :
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
الرد }}}
تم الشكر بواسطة:
#5
بعد جزيل الشكر جدا للمبدع RABEEA GBAHA  
بعد تطبيق الخطوات فى form load تظهر محتويات البحث كما فى الصوره المرفقه رقم 2
لكن عند اختيار تاريخ والبحث لا يظهر اي نتائج كمف فى صوره 3
جزيت خيرا
اين الخطا ساعدنى فى مشروعى المتواضع
https://imgur.com/a/5ziFK0F

https://imgur.com/a/fK4omBo

بعد اختيار التاريخ المتاكد من وجود بيانات به تظهر كالتالى
https://imgur.com/a/rzKMjXl
الرد }}}
تم الشكر بواسطة:
#6
مرحباً اخى 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

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

تيحاتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#7
(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()
الرد }}}
تم الشكر بواسطة:
#8
للاسف لم تظبط معى لذلك ارسلت المشروع بصور الاخطاء لعلى اجد لديكم معيني على المشروع اللى طلع عيني دا ارجو التعديل ليعمل البحث ويظهر نتائج البحث
https://ufile.io/a7lrk
ومشكولر الف الف مره للمبدع RABEEA GBAHA
الرد }}}
تم الشكر بواسطة:
#9
بدل الفورمات للتاريخ بهذا الكود 
كود :
       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")
 اذا لم يعمل قم برفع قاعدة البيانات لاعدل لك على المشروع
الرد }}}
تم الشكر بواسطة:
#10
(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.
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم