[محمد اسماعيل]

السلام عليكم

عندي قاعدة بيانات بها عمود للكود خاص لكل موظف
اريد البحث بكود الموظف حيث عند الفلترة تظهر قيمة واحدة فقط

استخدمت الكود بالاستعلام التالي 

كود :

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

[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())

هجرب ورد عليك

---

(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 عملت اية في الكود يريت الايضاح

[5000]

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)

[5000]

Dim code = Replace(TXTSEARCH.Text, " ", "")
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", code)

استخدم الباراميتر لتمرير البيانات وذلك من أجل حماية برنامج من الإختراق

[محمد اسماعيل]

(20-03-19, 07:33 PM)5000 كتب : Dim code = Replace(TXTSEARCH.Text, " ", "")
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", code)

استخدم الباراميتر لتمرير البيانات وذلك من أجل حماية برنامج من الإختراق

تمام