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

هناك حقل name في جدول table1 به بداية الاسم حرف أ او آ
كيف
استبدال حرف أ او آ ب ا
if ...... then
update student
end
شكرا

(17-12-19, 08:35 AM)atefkhalf2004 كتب : [ -> ]هناك حقل name في جدول table1 به بداية الاسم حرف أ او آ
كيف
استبدال حرف أ او آ ب ا
if ...... then
update student
end
شكرا

علي حد فهمي للسؤال

كود :

Replace("أ", "ا").Replace("آ", "ا")

احتاج كود تحديث قاعدة البيانات

السيد 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()

هذا الخطا
Undefined function 'Replace' in expression
.

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

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 

شكرا لحضرتك كثييييييييييييير