رسالة خطأ ،، احتاج مساعدتكم - نسخة قابلة للطباعة

رسالة خطأ ،، احتاج مساعدتكم - نسخة قابلة للطباعة

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

رسالة خطأ ،، احتاج مساعدتكم - assuhimi - 21-05-23

بسم الله الرحمن الرحيم
هذه رسالة خطأ تظهر لي عند البحث في مربع البحث ومرة بالغلط ضعطت حرف طاء وكان الكيبورد انجليزي
والرمز المقابل له هو علامة التنصيص الواحدة '
بعدها ظهر الخطأ وسببه علامة التنصيص في البحث بعد كلمة Like

كود :

from techt where usrname like '%" & (Txtsearch.Text) & "%'

هل يوجد طريقة لتلافي الرسالة لو تم ادخال علامة التصيص في مربع البحث ،، شاكر ومقدر

RE: رسالة خطأ ،، احتاج مساعدتكم - ramy alfoly - 21-05-23

كود :

Private Sub TxtName_TextChanged(sender As Object, e As EventArgs) Handles TxtName.TextChanged

        Dim dt As DataTable = nc.daadapt("SELECT * from TechT where usrname Like '%" & Replace(TxtName.Text, "'", "''") & "%'")

        ListBox1.DataSource = dt

        ListBox1.DisplayMember = "usrname"

    End Sub

RE: رسالة خطأ ،، احتاج مساعدتكم - assuhimi - 21-05-23

الاخ رامي شكرا لك على سرعة تجاوبك
حاولت لكن يظهر ان الامر cmd يستخدم للادخال ولايقبل البحث بعبارة select from
انا عندي ليست بوكس اقوم بتعبئتها من خلال جدول ويتم الفلترة من خلال حدث التغيير في تكست بوكس

الكود كامل :

كود :

Private Sub TxtName_TextChanged(sender As Object, e As EventArgs) Handles TxtName.TextChanged

        Dim dt As DataTable = nc.daadapt("SELECT * from TechT where usrname Like '%" & TxtName.Text & "%'")

        ListBox1.DataSource = dt

        ListBox1.DisplayMember = "usrname"

    End Sub

آسف لم انتبه للتعديل الاخير في ردك ،،
الكود يعمل الان ،، ولكن من باب الفضول ماذا لو اردنا البحث او اضافة اسم يحتوي فعلا على علامة
التنصيص الواحدة '
هل سيحدث خطأ ؟؟ شاكر ومقدر مرورك الكريم