[salamandal]

مشكور الاخ الجارح
وهذه المشاركة لعرض الكود السابق بشكل اوضح

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Using conn As New OleDb.OleDbConnection(connectionString)
conn.Open()
Dim sql As String = "UPDATE annagui SET nom = ?, prenom = ?, date_de_naissance = ?, " & _
"lieu_de_naissance = ?, sex = ?, numero_passport = ?, " & _
"date_validation = ?, date_expired = ?, age = ?, cin = ?, " & _
"numero_cin = ?, autre_nationalite = ?, nom_pere = ?, " & _
"nom_grand_pere = ?, nom_mere = ?, prenom_mere = ?, " & _
"profession = ?, qualite = ?, email = ?, adresse_uae = ?, " & _
"tel_uae = ?, etat_civil = ?, nom_epou = ?, prenom_epou = ?, " & _
"validation = ?, expired = ?, remarque = ?, r_sex = ?, r_etat = ? " & _
"WHERE id = ?"

Using cmd As New OleDb.OleDbCommand(sql, conn)
cmd.Parameters.AddWithValue("@nom", TextBox2.Text)
cmd.Parameters.AddWithValue("@prenom", TextBox3.Text)
cmd.Parameters.AddWithValue("@date_de_naissance", DateTimePicker1.Value.ToString("dd/MM/yyyy"))
' ... أضف باقي الباراميترات هنا ...
cmd.Parameters.AddWithValue("@id", TextBox1.Text)

Dim rowsAffected As Integer = cmd.ExecuteNonQuery()

If rowsAffected > 0 Then
MsgBox("تم تحديث البيانات بنجاح", vbInformation, "تحديث")
Form2.load_data()
Else
MsgBox("لم يتم تحديث أي سجل. تأكد من صحة معرف السجل.", vbInformation, "تحديث")
End If
End Using
End Using
Catch ex As Exception
MessageBox.Show("حدث خطأ أثناء تحديث البيانات: " & ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub