منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تصحيح الاستعلام التالي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تصحيح الاستعلام التالي (/showthread.php?tid=29084)

تصحيح الاستعلام التالي - محمد اسماعيل - 20-03-19

السلام عليكم

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

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


كود :
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

RE: تصحيح الاستعلام التالي - 5000 - 20-03-19

تعديل

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

RE: تصحيح الاستعلام التالي - محمد اسماعيل - 20-03-19

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

RE: تصحيح الاستعلام التالي - 5000 - 20-03-19

Trim تحذف المسافات إن وجدت قبل النص و بعده مثل
"e1      " تصيح "e1"
"      e1" تصيح "e1"
"   e1   " تصيح "e1"
إنها نفس Trim$ التي وضعها أنت ولكن بطريقة VB.NET

RE: تصحيح الاستعلام التالي - محمد اسماعيل - 20-03-19

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


RE: تصحيح الاستعلام التالي - 5000 - 20-03-19

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

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

RE: تصحيح الاستعلام التالي - محمد اسماعيل - 20-03-19

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

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

تمام Rolleyes