تقييم الموضوع :
  • 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
الشكر لله والحمد لله

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث عن نص معين داخل صفحة ويب وعرضة Basil Abdallah 1 105 , 11:11 AM
آخر رد: اليوم السابع
  كود البحث في الكرد فيو moh developer 1 108 15-10-20, 05:46 PM
آخر رد: abdou
Exclamation [سؤال] جملة البحث abarrak 4 146 14-10-20, 03:00 PM
آخر رد: abarrak
  أريد كود البحث بال combobox Hazem Kamel 3 234 13-10-20, 01:17 AM
آخر رد: Hazem Kamel
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 365 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] تعديل في عملية البحث abu7shihab 4 343 11-09-20, 08:20 PM
آخر رد: T 1
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 607 07-09-20, 12:28 AM
آخر رد: محمد العامر
  السلام عليكم ممكن توضيح بسيط بخصوص البحث داخل الليست بوكس اليوم السابع 5 418 21-08-20, 01:40 PM
آخر رد: اليوم السابع
  [سؤال] سؤال في طرق البحث المختلفه منه 2 322 08-08-20, 04:17 AM
آخر رد: asemshahen5
  لي أيام أحاول اعرض نتائج البحث في التقرير المهنا 3 435 08-08-20, 12:52 AM
آخر رد: المهنا

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


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