[asemshahen5]

تفضل اخي الكريم :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=data.accdb;Jet OLEDB:Database Password=;")
        If Conn.State = 1 Then Conn.Close()
        Dim req As String = "SELECT id, NameXT FROM student "
        Conn.Open()
        Dim dt, dt1 As New DataTable
        dt.Clear()
        Dim da = New OleDb.OleDbDataAdapter(req, conn)
        da.Fill(dt)
        Dim NameXT As String = String.Empty
        For i = 0 To dt.Rows.Count - 1
            If InStr(1, dt.Rows(i)("NameXT").ToString, "أ") = 1 Or InStr(1, dt.Rows(i)("NameXT").ToString, "آ") = 1 Then
                NameXT = dt.Rows(i)("NameXT").ToString.Replace("أ", "ا").Replace("آ", "ا")
                Dim StrSQL As String = "UPDATE student SET NameXT='" & NameXT & "' Where id=" & dt.Rows(i)("id")
                da = New OleDb.OleDbDataAdapter(StrSQL, conn)
                dt1.Clear()
                da.Fill(dt1)
            End If
        Next
        MsgBox("تمت عملية التعديل بنجاح ...")
        Conn.Close()
    End Sub