+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استبدال حرف أ او آ ب ا (/showthread.php?tid=32557)
استبدال حرف أ او آ ب ا - atefkhalf2004 - 17-12-19
هناك حقل name في جدول table1 به بداية الاسم حرف أ او آ
كيف
استبدال حرف أ او آ ب ا
if ...... then
update student
end
شكرا
RE: استبدال حرف أ او آ ب ا - اليوم السابع - 17-12-19
(17-12-19, 08:35 AM)atefkhalf2004 كتب : هناك حقل name في جدول table1 به بداية الاسم حرف أ او آ
كيف
استبدال حرف أ او آ ب ا
if ...... then
update student
end
شكرا
علي حد فهمي للسؤال
كود :
Replace("أ", "ا").Replace("آ", "ا")RE: استبدال حرف أ او آ ب ا - atefkhalf2004 - 17-12-19
احتاج كود تحديث قاعدة البيانات
RE: استبدال حرف أ او آ ب ا - atefkhalf2004 - 17-12-19
السيد 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()
RE: استبدال حرف أ او آ ب ا - atefkhalf2004 - 18-12-19
هذا الخطا
Undefined function 'Replace' in expression
.
RE: استبدال حرف أ او آ ب ا - asemshahen5 - 18-12-19
تفضل اخي الكريم :
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
RE: استبدال حرف أ او آ ب ا - atefkhalf2004 - 19-12-19
شكرا لحضرتك كثييييييييييييير