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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 99 20-02-19, 04:01 PM
آخر رد: elgokr
Information [VB.NET] بحاجة الى اكواد الاضافة و الحذف و التعديل و البحث .. georgos 7 197 15-02-19, 10:52 AM
آخر رد: georgos
  مشكلة كود البحث بين تاريخين احمد129 12 320 11-02-19, 07:56 PM
آخر رد: princelovelorn
  [VB.NET] البحث في RichTextBox dubai.eig 3 171 27-01-19, 02:47 AM
آخر رد: ابراهيم ايبو
  القراءة من ملف text و البحث فيه احمد كبه 2 117 25-01-19, 11:18 AM
آخر رد: احمد كبه
  أكواد البحث في السجلات والحقول ZaerAllail 0 147 14-01-19, 12:13 AM
آخر رد: ZaerAllail
  [سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة dametucorazon 3 226 09-01-19, 11:29 AM
آخر رد: dametucorazon
  [سؤال] البحث بالداتاجريدفيو allo5_800 4 241 24-12-18, 09:32 AM
آخر رد: allo5_800
Rainbow [كود] البحث عن سجل بين تاريخين اسامه الهرماوي 6 267 20-12-18, 03:19 PM
آخر رد: اسامه الهرماوي
  [VB.NET] بعد البحث في مواضيع الماسح الضوئي عذراً لم اجد مسح المستند الى PDF salah4salah@gmail.com 4 256 20-12-18, 01:24 AM
آخر رد: elgokr

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


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