+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث للتاريخ بالتاكس بكس (/showthread.php?tid=26240)
البحث للتاريخ بالتاكس بكس - العيدروس - 26-08-18
السلام عليكم.اخواني بهاي الكود لما اجي ابحث و اكتب التاريخ لازم اكتبو هيك مثلا 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 SubRE: البحث للتاريخ بالتاكس بكس - asemshahen5 - 26-08-18
If dtsearch.Rows.Count = 0 Then
dasearch New OleDbDataAdapter("SELECT * FROM DEPENSES", conn)
dtsearch.Clear
dasearch.Fill(dtsearch)
DataGridView1.DataSource = dtsearch
End If
dasearch New OleDbDataAdapter("SELECT * FROM DEPENSES", conn)
dtsearch.Clear
dasearch.Fill(dtsearch)
DataGridView1.DataSource = dtsearch
End If
RE: البحث للتاريخ بالتاكس بكس - عابر سبيل 2 - 26-08-18
تفضل الكود بعد التعديل
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 Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
Dim dasearch As New OleDbDataAdapter("SELECT * FROM DEPENSES ", conn)
If IsDate(TextBox1.Text) Then
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
RE: البحث للتاريخ بالتاكس بكس - elgokr - 26-08-18
اهلاً بك اخى العيدروس
بخصوص الاستعلام كل ما عليك فعله هو التالى
استبدل الجزء التالىكود :
SELECT * FROM DEPENSES where DATE_DEPENSES=@dبهذا الكود
كود :
SELECT * FROM DEPENSES where DATE_DEPENSES Like %@d%وبكدة سيقوم بعمل فلتر حرفي وليس كلى فى البحث
واذا كان فارغ سيقوم بعرض جميع البيانات
تحياتى لك
وتمنياتى لك التوفيق
RE: البحث للتاريخ بالتاكس بكس - العيدروس - 26-08-18
شكرا لكم جميعا احبتي في الله.الان بكود الاخ عابر سبيل و elgoker تتم الفلترة جيدة بارك الله فيكم على حسن تعاونكم
RE: البحث للتاريخ بالتاكس بكس - elgokr - 26-08-18
الشكر لله والحمد لله
تحياتى لك
وتمنياتى لك التوفيق