تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استبدال حرف أ او آ ب ا
#1
هناك حقل  name في جدول  table1   به  بداية الاسم   حرف أ   او  آ
كيف
استبدال حرف أ   او  آ  ب   ا
if  ......  then
update   student
end
شكرا
الرد }}}
تم الشكر بواسطة:
#2
(17-12-19, 08:35 AM)atefkhalf2004 كتب : هناك حقل  name في جدول  table1   به  بداية الاسم   حرف أ   او  آ
كيف
استبدال حرف أ   او  آ  ب   ا
if  ......  then
update   student
end
شكرا

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

كود :
Replace("أ", "ا").Replace("آ", "ا")
الرد }}}
تم الشكر بواسطة: محمد كريّم , محمد كريّم , asemshahen5
#3
احتاج كود تحديث قاعدة البيانات
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
السيد 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()
الرد }}}
تم الشكر بواسطة: asemshahen5
#5
هذا الخطا
Undefined function 'Replace' in expression
.
الرد }}}
تم الشكر بواسطة: asemshahen5
#6
تفضل اخي الكريم :

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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 dtdt1 As New DataTable
        dt
.Clear()
 
       Dim da = New OleDb.OleDbDataAdapter(reqconn)
 
       da.Fill(dt)
 
       Dim NameXT As String String.Empty
 
       For i 0 To dt.Rows.Count 1
            If InStr
(1dt.Rows(i)("NameXT").ToString"أ") = Or InStr(1dt.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(StrSQLconn)
 
               dt1.Clear()
 
               da.Fill(dt1)
 
           End If
 
       Next
        MsgBox
("تمت عملية التعديل بنجاح ...")
 
       Conn.Close()
 
   End Sub 
الرد }}}
تم الشكر بواسطة: محمد كريّم , محمد كريّم
#7
شكرا لحضرتك كثييييييييييييير
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استبدال نتيجة الاستعلام بقيمة اخرى المتألق9 1 593 26-05-22, 01:30 AM
آخر رد: نيمو
  [سؤال] كيف استبدال جميع أيقونات الفورمز مرة واحدة؟ abomo3ath 5 1,550 18-07-21, 10:51 PM
آخر رد: ابو انس
  استبدال حرف بحرف في حقل بقاعدة sql atefkhalf2004 5 1,303 12-07-21, 12:35 PM
آخر رد: atefkhalf2004
  [VB.NET] استبدال الصورة داخل ملف الورد احمد 2021 2 1,574 07-03-21, 10:17 AM
آخر رد: احمد 2021
  استبدال علامتى التنصيص ابو روضة 4 2,244 31-03-19, 04:18 AM
آخر رد: ابو روضة
  [VB.NET] استبدال رمز معين بسطر جديد waelalmsry75 2 1,584 07-02-19, 02:57 PM
آخر رد: waelalmsry75
  استبدال قيم checkbox في الكريستال ريبورت بكلمات أخرى جيولوجي مبتدئ 1 2,081 03-12-18, 01:07 AM
آخر رد: ahmedmansour
  [سؤال] استبدال النسخة القديمة بالنسخة المحدثة ابو يوسف النواوي 2 1 1,424 22-10-18, 05:52 PM
آخر رد: rnmr
  [سؤال] كيف يتم استبدال إشارة مرجعية موجودة في ملف وورد من خلال برنامجي ؟ السندبااد 2 2,163 17-08-16, 10:56 AM
آخر رد: السندبااد
  كيف يمكن استبدال webbrowser cookies bidaya 3 2,022 19-04-16, 10:46 AM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم