مساعدة كود تعديل لو سمحتم

بعد اذن الأعضاء والمشرفين ممكن طريقة اضافة الخانات التالية

Name.Address.Numtokeel.Yeartokeel.Noatokeel.Numfile

الى هذا الكود فى الجزء الخاص بالـ SavInto.CommandText

Dim n As String = Label4.Text

Dim SavInto As New OleDb.OleDbCommand

Dim ConStr As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

Application.StartupPath & "\mydata.mdb"

Dim Conn As New OleDbConnection(ConStr)

SavInto.Connection = Conn

SavInto.CommandType = CommandType.Text

SavInto.CommandText = "UPDATE Table1 SET name = '" & Trim(TextBox1.Text) & "' , City = '" & Trim(TextBox2.Text) & "' , mobile= '" & Trim(TextBox3.Text) & "' WHERE mobile ='" & n & "'"

Conn.Open()

SavInto.ExecuteNonQuery()

Conn.Close()

MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

Me.Close()

frm.Show()