[mounir3403]

السلام عليكم ورحمة الله 

اخواني انا عندي قاعدة بيانات  اكسس  فيجوال  ستوديو 2015 .. لما اضيف زر الحفظ يشتغل عادي لما اغلق البرنامج وادخل تظهر رسالة خطأ

لكن زر التعديل يشتغل عادي Erreur de syntaxe dans l'instruction INSERT INTO.

كود :

Private Sub SimpleButton6_Click(sender As Object, e As EventArgs) Handles SimpleButton6.Click

       Dim cmd As New OleDb.OleDbCommand
       cmd.Connection = con
       cmd.CommandType = CommandType.Text
       cmd.CommandText = "insert into DM_PROM(N_Dossier,IDANTIFIAN,NOM,PRENOM,EPOS,PERE,MERE,NAISSANCE,ADRESSE,ACTIVITE,MONTANT,DATEDEPOT,NOM_ARAB)values(" & N_Dossier.Text & ",'" & IDANTIFIAN.Text & "','" & NOM.Text & "','" & PRENOM.Text & "','" & EPOS.Text & "','" & PERE.Text & "','" & MERE.Text & "',#" & NAISSANCE.Value.ToString("dd/MM/yyyy") & "#,'" & ADRESSE.Text & "','" & ACTIVITE.Text & "'," & MONTANT.Text & ",#" & DATEDEPOT.Value.ToString("dd/MM/yyyy") & "#,'" & NOM_ARAB.Text & "' )"
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()

       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")