تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث للتاريخ بالتاكس بكس
#1
السلام عليكم.اخواني بهاي الكود لما اجي ابحث و اكتب التاريخ لازم اكتبو هيك مثلا 26-08-2018
1 . كيف اقدر ابحث زي ما اكتب هيك مثال 26/08/2018
2 . لما امسح التاريخ من التاكس بكس تبقى نتيجة البحث زي ما هي بالداتا غريد .كيف لما تمسح التاكست بكس ترجع كامل البيانات زي ما كانت بالفورم لود وكأني ما بكتبت بالتاكست بكس.شكرا كثيرا و بارك الله بكم

كود :
   Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
       If IsDate(TextBox1.Text) Then
           Dim conn As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;Data Source=|datadirectory|\MAJOR.accdb ;Jet OLEDB:Database Password=20182018")
           Dim dtsearch As New DataTable
           dtsearch.Clear()
           Dim dasearch As New OleDbDataAdapter("SELECT * FROM DEPENSES where DATE_DEPENSES=@d", conn)
           dasearch.SelectCommand.Parameters.AddWithValue("@d", CDate(TextBox1.Text))
           dasearch.Fill(dtsearch)
           DataGridView1.DataSource = dtsearch
           If dtsearch.Rows.Count = 0 Then
               dasearch = New OleDbDataAdapter("SELECT * FROM DEPENSES", conn)
               dasearch.Fill(dtsearch)
               DataGridView1.DataSource = dtsearch
           End If
       End If
   End Sub
الرد
تم الشكر بواسطة:
#2
If dtsearch.Rows.Count = 0 Then
   dasearch  New OleDbDataAdapter("SELECT * FROM DEPENSES", conn)
   dtsearch.Clear
   dasearch.Fill(dtsearch)
   DataGridView1.DataSource = dtsearch
End If

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: العيدروس
#3
تفضل الكود بعد التعديل
PHP كود :
  Private conn As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;Data Source=|datadirectory|\MAJOR.accdb ;Jet OLEDB:Database Password=20182018")
 
  Private dtsearch As New DataTable

   
Private Sub TextBox1_TextChanged(ByVal sender As ObjectByVal e As EventArgsHandles TextBox1.TextChanged

       Dim dasearch 
As New OleDbDataAdapter("SELECT * FROM DEPENSES "conn)

 
      If IsDate(TextBox1.TextThen
           dasearch
.SelectCommand.CommandText &= " where DATE_DEPENSES=@d"
 
          dasearch.SelectCommand.Parameters.AddWithValue("@d"CDate(TextBox1.Text))
 
      End If

 
      dtsearch.Clear()
 
      dasearch.Fill(dtsearch)
 
      DataGridView1.DataSource dtsearch

   End Sub 
الرد
تم الشكر بواسطة: elgokr , العيدروس , ابراهيم ايبو
#4
اهلاً بك اخى العيدروس

بخصوص الاستعلام كل ما عليك فعله هو التالى
استبدل الجزء التالى
كود :
SELECT * FROM DEPENSES where DATE_DEPENSES=@d

بهذا الكود
كود :
SELECT * FROM DEPENSES where DATE_DEPENSES Like %@d%

وبكدة سيقوم بعمل فلتر حرفي وليس كلى فى البحث
واذا كان فارغ سيقوم بعرض جميع البيانات

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#5
شكرا لكم جميعا احبتي في الله.الان بكود الاخ عابر سبيل و elgoker تتم الفلترة جيدة بارك الله فيكم على حسن تعاونكم
الرد
تم الشكر بواسطة: elgokr , elgokr
#6
الشكر لله والحمد لله

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف يتم البحث عن شاشة بالفعل تعمل وتفعيلها لتصبح فوق الجميع dametucorazon 3 74 10-12-18, 05:47 AM
آخر رد: rmnr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 77 08-12-18, 08:36 PM
آخر رد: masry4u
  البحث داخل الجريد mmali127 4 108 27-11-18, 09:32 AM
آخر رد: mmali127
  [VB.NET] بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل shoma79 3 112 27-11-18, 05:25 AM
آخر رد: shoma79
  البحث بالرقم و بالاسم محمد خيري 4 178 22-11-18, 11:11 PM
آخر رد: محمد خيري
  [سؤال] كود البحث بين تاريخين livealone2002 12 325 03-11-18, 06:18 AM
آخر رد: Rabeea Qbaha
  مشكل في البحث داخل listview trakktour 7 171 30-10-18, 09:06 PM
آخر رد: elgokr
  مساعده فى البحث عن اسم بدلاله رقم vb2010 4 169 28-10-18, 11:22 PM
آخر رد: elgokr
  ما هو كود البحث عن تاريخ باستخدام datetimepicker فى sql server كود vb.net vb2010 2 118 23-10-18, 04:29 PM
آخر رد: ابو يوسف النواوي 2
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 126 16-10-18, 09:18 PM
آخر رد: WAEL ABED

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


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