[atefkhalf2004]

السيد asemshahen5
برجاء مساعدتي

If Conn.State = 1 Then Conn.Close()
Dim req As String = "SELECT student.id , student.name FROM student "
Conn.Open()
Dim ds3 As New DataSet
ds3.Clear()
cmd3 = New OleDbCommand(req, Conn)
cmd2 = New OleDbCommand(req, Conn)
da = New OleDb.OleDbDataAdapter(req, Conn)
da.SelectCommand = cmd3
da.Fill(ds3, "student")
DR3 = cmd3.ExecuteReader



Do While DR3.Read
If InStr(1, DR3.Item("name").ToString, "أ") = 1 Then

DR3.Item("name").ToString.Replace("أ", "ا")
MsgBox(DR3.Item("name").ToString)
الكود المطلوب يكون
'cmd2.CommandText = "UPDATE student set name=name"
'cmd2.ExecuteNonQuery()
' i += 1

End If

Loop
Conn.Close()