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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض بعض بيانات الاستعلام في datagrid nourmandour 5 75 أمس, 01:44 PM
آخر رد: elgokr
  [VB.NET] مساعده في تصحيح كود sent number dubai.eig 7 59 20-04-19, 11:34 AM
آخر رد: elgokr
  [VB.NET] مشكلة في الاستعلام اسامه الهرماوي 4 68 18-04-19, 07:05 PM
آخر رد: ابراهيم ايبو
  [VB.NET] [تم الحل] يرجى المساعده في تصحيح الكود dubai.eig 8 141 10-04-19, 01:54 AM
آخر رد: dubai.eig
  [VB.NET] الفرق بين الاستعلام الأول و التاني DT as New DataTable sniperjawadino 2 89 31-03-19, 07:23 PM
آخر رد: بدري
Photo مشكلة فى كود الاستعلام medhat_fouad 3 93 28-03-19, 07:23 PM
آخر رد: medhat_fouad
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 170 20-02-19, 05:48 PM
آخر رد: elgokr
  [VB.NET] الإكثار من فتح و غلق الاستعلام هل يسبب مشاكل ؟؟؟؟؟ sniperjawadino 5 285 25-01-19, 03:22 PM
آخر رد: sniperjawadino
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 405 18-01-19, 11:05 PM
آخر رد: asemshahen5
  بجد دخت في هذا الاستعلام فراس الغزي 5 287 12-01-19, 12:59 AM
آخر رد: Amir_Alzubidy

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


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