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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 84 16-10-18, 09:18 PM
آخر رد: WAEL ABED
  استفسار عن البحث في مجلد في جهاز أخر بالشبكة المحلية أبووسم 4 118 13-10-18, 04:35 AM
آخر رد: حريف برمجة
  توقف كود البحث باستخدام في الصندوق النصي بناءًا على شرط Hazem1 5 106 06-10-18, 02:01 AM
آخر رد: rnmr
  [سؤال] إستفسار عن البحث في حقول تم تشفيرها princelovelorn 7 116 03-10-18, 07:58 PM
آخر رد: princelovelorn
  [VB.NET] البحث في listview trakktour 2 94 02-10-18, 01:30 AM
آخر رد: trakktour
  البحث في الداتاقريدفيو المتألق9 3 189 29-09-18, 03:35 PM
آخر رد: اسامه الهرماوي
  عملية البحث باستخدام أكثر من Combobox بستخدام تقنية LINQ FatmaAli 2 124 27-09-18, 02:13 PM
آخر رد: FatmaAli
  يُرجى شرح سطر البحث التالي في الداتاجريدفيو Hazem1 7 149 25-09-18, 11:41 PM
آخر رد: elgokr
  [VB.NET] استفسار :- البحث في صفحة html dubai.eig 0 88 24-09-18, 10:42 PM
آخر رد: dubai.eig
Smile [VB.NET] مشكلتي مع البحث في listbox rizakflash8 9 213 24-09-18, 02:13 PM
آخر رد: elgokr

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


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