تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تصحيح الاستعلام التالي
#1
السلام عليكم

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

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


كود :
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
الرد
تم الشكر بواسطة:
#2
تعديل

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())
الرد
تم الشكر بواسطة: محمد اسماعيل , حريف برمجة
#3
(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 عملت اية في الكود يريت الايضاح
الرد
تم الشكر بواسطة:
#4
Trim تحذف المسافات إن وجدت قبل النص و بعده مثل
"e1      " تصيح "e1"
"      e1" تصيح "e1"
"   e1   " تصيح "e1"

إنها نفس Trim$ التي وضعها أنت ولكن بطريقة VB.NET
الرد
تم الشكر بواسطة: حريف برمجة
#5
(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)
الرد
تم الشكر بواسطة:
#6
Dim code = Replace(TXTSEARCH.Text, " ", "")
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", code)

استخدم الباراميتر لتمرير البيانات وذلك من أجل حماية برنامج من الإختراق
الرد
تم الشكر بواسطة: محمد اسماعيل , حريف برمجة
#7
(20-03-19, 07:33 PM)5000 كتب : Dim code = Replace(TXTSEARCH.Text, " ", "")
DataAdapter.SelectCommand.Parameters.AddWithValue("@code", code)

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

تمام Rolleyes
الرد
تم الشكر بواسطة:



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


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