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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  زر التالي داتاجريدفيور annagui 0 164 31-01-24, 04:53 PM
آخر رد: annagui
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 498 13-12-23, 12:55 AM
آخر رد: العتيق
  [VB.NET] مساعدة فى ترتيب نتائج الاستعلام ZEEN4ZEEN 1 362 08-11-23, 01:34 AM
آخر رد: الحزين اليماني
  [VB.NET] مساعدة فى طريقة كتابة الاستعلام ZEEN4ZEEN 4 435 11-10-23, 03:33 PM
آخر رد: ZEEN4ZEEN
  طلب تصحيح كود ارسال رسائل SMS assuhimi 3 747 09-07-23, 01:41 PM
آخر رد: Shade0001
  هل الاستعلام في php يختلف عن vb.net atefkhalf2004 2 372 22-04-23, 11:18 AM
آخر رد: atefkhalf2004
  كيفية تمرير اسم الجدول في جملة الاستعلام atefkhalf2004 4 715 13-02-23, 10:13 AM
آخر رد: atefkhalf2004
  مساعدة في تعديل كود الاستعلام مصمم هاوي 6 763 30-12-22, 04:22 PM
آخر رد: مصمم هاوي

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


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