منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :

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

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

كود :

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

الاخ رامي شكرا لك على سرعة تجاوبك
حاولت لكن يظهر ان الامر 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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

assuhimi

ramy alfoly

assuhimi