السلام عليكم
عندي قاعدة بيانات بها عمود للكود خاص لكل موظف
اريد البحث بكود الموظف حيث عند الفلترة تظهر قيمة واحدة فقط
استخدمت الكود بالاستعلام التالي
كود :
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM EMPLOYEDETAILS_TB WHERE EMPLOYE_SHOWHIDE =true AND EMPLOYE_CODE = " & Trim$(Me.TXTSEARCH.Text) & " ORDER BY EMPLOYE_ID", con)
الكود يفلتر بدون مشاكل المشكلة انة لو الاكواد لكل موظف كالاتي مثلا :
e1,e2,e10,e11
حينما ابحث عن موظف كودة مثلا e1
..
عند الفلترة يظهر اي كود يبدا بي الاتي , e12,e10,e11,e1
تعديل
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM EMPLOYEDETAILS_TB WHERE EMPLOYE_SHOWHIDE =true AND EMPLOYE_CODE = @code ORDER BY EMPLOYE_ID", con)
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", Me.TXTSEARCH.Text.Trim())
(20-03-19, 06:47 PM)5000 كتب : [ -> ]تعديل
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM EMPLOYEDETAILS_TB WHERE EMPLOYE_SHOWHIDE =true AND EMPLOYE_CODE = @code ORDER BY EMPLOYE_ID", con)
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", Me.TXTSEARCH.Text.Trim())
هجرب ورد عليك
(20-03-19, 06:47 PM)5000 كتب : [ -> ]تعديل
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM EMPLOYEDETAILS_TB WHERE EMPLOYE_SHOWHIDE =true AND EMPLOYE_CODE = @code ORDER BY EMPLOYE_ID", con)
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", Me.TXTSEARCH.Text.Trim())
طيب الكود اشتغل بس مش فاهم trim عملت اية في الكود يريت الايضاح
Trim تحذف المسافات إن وجدت قبل النص و بعده مثل
"e1 " تصيح "e1"
" e1" تصيح "e1"
" e1 " تصيح "e1"
إنها نفس Trim$ التي وضعها أنت ولكن بطريقة VB.NET
(20-03-19, 07:13 PM)5000 كتب : [ -> ]Trim تحذف المسافات إن وجدت قبل النص و بعده مثل
"e1 " تصيح "e1"
" e1" تصيح "e1"
" e1 " تصيح "e1"
فهمت كدة
كل الشكر والتقدير
اسال الله ان يعلمك ماينفعك
في جزء بسيط بعد تصحيح الكود بالطريقة دية الكو د لو في مسافة عند البحث لايحذف الفراغات مثلا لو بحث عن e1 وتم كتابتها بالبحث e 1 لا يتم البحث كيف اتجاهل الفراغ
كود :
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM EMPLOYEDETAILS_TB WHERE EMPLOYE_SHOWHIDE =true AND EMPLOYE_CODE ='" & Trim$(Me.TXTSEARCH.Text.Trim()) & "' ORDER BY EMPLOYE_ID", con)
Dim code = Replace(TXTSEARCH.Text, " ", "")
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", code)
استخدم الباراميتر لتمرير البيانات وذلك من أجل حماية برنامج من الإختراق
