06-10-16, 02:40 PM
السلام عليكم ورحمة الله وبركاته
يا جماعة الخير
كنت عايز كود مثلا لو عايز أبحث عن اسم إسلام
يطلعلي الاسم حتى لو مكتبتش الهمزة
يا جماعة الخير
كنت عايز كود مثلا لو عايز أبحث عن اسم إسلام
يطلعلي الاسم حتى لو مكتبتش الهمزة
الصفحات : 1 2
06-10-16, 02:40 PM
06-10-16, 10:27 PM
اين انتم يا جماعة الخير
06-10-16, 10:44 PM
لا تستعجل على رزقك
ولكن التعامل في البحث سيكون بحروف مختلفه
ولكن التعامل في البحث سيكون بحروف مختلفه
06-10-16, 10:52 PM
مشكلة اللغة العربية في البحث هو ان الكمبيوتر سوف يفترض ان حرف أ مختلف عن الحرف إ مختلف عن الحرف ا
لذلك انت تحتاج اولا الي مصفوفة يكون بها بعض الحروف التي سوف تستخدم لمقارنة البيانات
حتي تستطيع عمل Validation للكلمات المراد البحث عنها
لذلك انت تحتاج اولا الي مصفوفة يكون بها بعض الحروف التي سوف تستخدم لمقارنة البيانات
حتي تستطيع عمل Validation للكلمات المراد البحث عنها
06-10-16, 11:54 PM
نفرض ان التكست الخاص بالبحث = TextBox1
اسم الجدول = tpl1
حقل الاسم = username
اسم الجدول = 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 & "%'"
Next08-10-16, 12:18 PM
بعد تطبيق الكود لا يعمل
08-10-16, 03:30 PM
ارفق مثال للتعديل عليه .
08-10-16, 05:12 PM
(08-10-16, 03:30 PM)حريف برمجة كتب : [ -> ]ارفق مثال للتعديل عليه .
مرفق مثال أخي
08-10-16, 05:33 PM
الجدول TB_cust
حقل الاسم cust_name
test and tell me
حقل الاسم cust_name
كود :
"Select * from TB_cust where Cust_name Like '%" & Trim(TextBox2.Text) & "%'"test and tell me
08-10-16, 05:53 PM
(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الصفحات : 1 2