[asadtaif]

السلام عليكم

معي هذا الكود للتعديل على بيانات المستخدم في القاعدة أريد أعرف وين الخطأ فيه ؟ أم أن بيانات المستخدم لا يمكن تعديلها في وضع runtime

أريد كود مشابه أو حل لتعديل بيانات المستخدم

كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Try
           Dim dbsource As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\database\Database112.mdb"
           Dim conn = New OleDbConnection(dbsource)
           Dim updatee As String = "Update Users set username ='" & TextBox1.Text & "', password = '" & TextBox2.Text & "', gender ='" & ComboBox1.SelectedItem.ToString & "', birthday ='" & DateTimePicker1.Value & "', Address ='" & TextBox3.Text & "', Health_Status ='" & TextBox4.Text & "', password_open_case ='" & TextBox5.Text & "' where user_id=" & My.Settings.deleted.ToString() & ";"
           Dim cmd As New OleDbCommand(updatee, conn)


           conn.Open()
           cmd.ExecuteNonQuery()
           MsgBox("save success")
           My.Settings.edit = "yess"
           conn.Close()
       Catch ex As Exception
           MsgBox("error")
       End Try
       Main.Update()

       Main.Show()
       Main.Update()
       Main.Refresh()

       Me.Close()
   End Sub