منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود البحث عن الاسم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=17566)

الصفحات: 1 2

كود البحث عن الاسم - المبرمج العبقري - 06-10-16

السلام عليكم ورحمة الله وبركاته
يا جماعة الخير
كنت عايز كود مثلا لو عايز أبحث عن اسم إسلام
يطلعلي الاسم حتى لو مكتبتش الهمزة

RE: كود البحث عن الاسم - المبرمج العبقري - 06-10-16

اين انتم يا جماعة الخير

RE: كود البحث عن الاسم - هاوي1995 - 06-10-16

لا تستعجل على رزقك
ولكن التعامل في البحث سيكون بحروف مختلفه

RE: كود البحث عن الاسم - silverlight - 06-10-16

مشكلة اللغة العربية في البحث هو ان الكمبيوتر سوف يفترض ان حرف أ مختلف عن الحرف إ مختلف عن الحرف ا
لذلك انت تحتاج اولا الي مصفوفة يكون بها بعض الحروف التي سوف تستخدم لمقارنة البيانات
حتي تستطيع عمل Validation للكلمات المراد البحث عنها

RE: كود البحث عن الاسم - حريف برمجة - 06-10-16

نفرض ان التكست الخاص بالبحث = TextBox1
اسم الجدول = tpl1
حقل الاسم = username


كود :
For Each s As String In TextBox1.Text 
     s = Regex.Replace(s, "[أإآا]", "[أإآا]") 
     s = Regex.Replace(s, "[هة]", "[هة]") 
     s = Regex.Replace(s, "[ىي]", "[ىي]") 
     s = Regex.Replace(s, "[وؤ]", "[وؤ]") 
   txt &= s 
SQL = "select * from tpl1 where username like '%" & txt & "%'" 
Next


RE: كود البحث عن الاسم - المبرمج العبقري - 08-10-16

بعد تطبيق الكود لا يعمل

RE: كود البحث عن الاسم - حريف برمجة - 08-10-16

ارفق مثال للتعديل عليه .

RE: كود البحث عن الاسم - المبرمج العبقري - 08-10-16

(08-10-16, 03:30 PM)حريف برمجة كتب : ارفق مثال للتعديل عليه .

مرفق مثال أخي

RE: كود البحث عن الاسم - محمد سلمان - 08-10-16

الجدول TB_cust
حقل الاسم cust_name



كود :
"Select * from TB_cust where Cust_name Like  '%" & Trim(TextBox2.Text) & "%'"


test and tell me

RE: كود البحث عن الاسم - حريف برمجة - 08-10-16

(08-10-16, 05:12 PM)المبرمج العبقري كتب :
(08-10-16, 03:30 PM)حريف برمجة كتب : ارفق مثال للتعديل عليه .

مرفق مثال أخي

الصق الكود كامل للبوتن 1


كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton2.Checked = True Then
            DataAdapter1 = New OleDbDataAdapter("Select * From table1 Where id Like '%" & Trim$(TextBox1.Text) & "%'", Conn)

        ElseIf RadioButton1.Checked = True Then

            For Each s As String In TextBox1.Text
                s = Regex.Replace(s, "[أإآا]", "[أإآا]")
                s = Regex.Replace(s, "[هة]", "[هة]")
                s = Regex.Replace(s, "[ىي]", "[ىي]")
                s = Regex.Replace(s, "[وؤ]", "[وؤ]")
                Dim txt As String = s

                DataAdapter1 = New OleDbDataAdapter("Select * From table1 Where name Like '%" & txt & "%'", Conn)
            Next

        End If

        Dim i As Integer
        On Error Resume Next
        i = DataGridView1.CurrentRow.Index
        TextBox_view.Text = DataGridView1.Item(1, i).Value

        DataSet1.Clear()
        DataAdapter1.Fill(DataSet1, "table1") ' انبحث بأستخذاوالرقم

        DataGridView1.DataSource = DataSet1
        DataGridView1.DataMember = "table1"
        DataGridView1.Refresh()
    End Sub