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

(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

(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