تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل على كود بحث
#11
(14-03-22, 10:23 AM)EMADSS كتب :
(12-03-22, 06:22 PM)Emam emam كتب : اخي الكريم هل تقصد انك عاوز تبحث عن الاسم مع اهمال الهمزات
يعني لما تكتب احمد يطلعلك أحمد و إحمد و آحمد و احمد
هل هذا ما تقصده؟

نعم اخي هذا ما اريد

تفضل اخي جرب وان شاء الله هيظبط معاك

PHP كود :
Public Function CheckFN(ByVal dt As DataTableByVal Inputword As String)
 
       Dim countword As Integer
        For s 
As Integer 0 To dt.Rows.Count 1
            If dt
.Rows(s).Item(0) = Inputword Then
                countword 
countword 1
            End 
If
 
       Next
        Return countword
    End 
Function


 
   Sub InPutdt(InputChar As StringOutputChar As String)
 
       For s As Integer 0 To dt.Rows.Count 1
            If CheckFN
(dtdt.Rows(s).Item(0).replace(InputCharOutputChar)) = 0 Then
                dt
.Rows.Add(dt.Rows(s).Item(0).replace(InputCharOutputChar))
 
           End If
 
       Next
    End Sub


    Public Sub Load_ByName
(ByVal Name As String)
 
       Dim cmd As New SqlCommand("select * from Table where 
                                    Name Like @Name "
connSQL)
 
       cmd.Parameters.Add("Name"SqlDbType.NVarChar).Value "%" Name "%"
 
       connSQL.Open()
 
       dt2.Load(cmd.ExecuteReader)
 
       connSQL.Close()
 
       cmd Nothing
    End Sub


'ضع هذا السطر في حدث اللود
dt.Columns.Add("Col_Name")




Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dt.Clear()
        dt2.Clear()

        dt.Rows.Add(TextBox1.Text)
        InPutdt("ا", "أ")
        InPutdt("ا", "إ")
        InPutdt("ا", "آ")

        InPutdt("أ", "ا")
        InPutdt("أ", "إ")
        InPutdt("أ", "آ")

        InPutdt("إ", "ا")
        InPutdt("إ", "أ")
        InPutdt("إ", "آ")

        InPutdt("آ", "ا")
        InPutdt("آ", "أ")
        InPutdt("آ", "إ")

        InPutdt("ي", "ى")
        InPutdt("ى", "ي")

        For s As Integer = 0 To dt.Rows.Count - 1
            Load_ByName(dt.Rows(s).Item(0))
        Next
        DataGridView1.DataSource = (dt2)
        
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#12
مشاركة لاخواني اكتب مااعرفه بهذا الخصوص و عساني فهمت المطلوب بشكل جيد
الرد }}}
تم الشكر بواسطة: Emam emam


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 69 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 349 05-08-23, 02:29 PM
آخر رد: moh61

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


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