[zinom]

جرب واتأكد من كلمة (yes) (الي المفروض انها بقت شرط علي مافهمت من الطريقه  ) مكتوبه غلط - والا قاصد تكون كده ؟

اشتغل تمام  ماشتغلش  مثال صغير ترفعه يمكن تلاقي الحل وانتا بتعزل الجزئيه دي عن المشروع علشان ترفعها 

وده الكود بعد التعديل (شوف مضمون رساله الخطأ الي هتظهر من جملة تراي يعد تعديلها  

كود :

      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=@1,password=@2,gender=@3,birthday=@4,Address=@5,Health_Status=@6,password_open_case=@7" &
           " where user_id=@8"
           Dim cmd As New OleDbCommand(updatee, conn)
           cmd.Parameters.AddWithValue("@1", TextBox1.Text) 'كود الصنف
           cmd.Parameters.AddWithValue("@2", TextBox2.Text)
           cmd.Parameters.AddWithValue("@3", ComboBox1.text)
           cmd.Parameters.AddWithValue("@4", DateTimePicker1.Value)
           cmd.Parameters.AddWithValue("@5", TextBox3.Text)
           cmd.Parameters.AddWithValue("@6", TextBox4.Text)
           cmd.Parameters.AddWithValue("@7", TextBox5.Text)
           cmd.Parameters.AddWithValue("@8", My.Settings.deleted.ToString)
           conn.Open()
           cmd.ExecuteNonQuery()
           MsgBox("save success")
           My.Settings.edit = "yess"
           conn.Close()
       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try
       Main.Update()

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

       Me.Close()

(وداءما خلي جملة تراي بالشكل ده علشان تظهرلك رساله بالخطأ - اذا كان فيه خطأ))

كود :

       Try

       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try