17-02-22, 06:32 PM
السلام عليكم ورحمة الله
اخواني انا عندي قاعدة بيانات اكسس فيجوال ستوديو 2015 .. لما اضيف زر الحفظ يشتغل عادي لما اغلق البرنامج وادخل تظهر رسالة خطأ
لكن زر التعديل يشتغل عادي Erreur de syntaxe dans l'instruction INSERT INTO.
اخواني انا عندي قاعدة بيانات اكسس فيجوال ستوديو 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, "حفظ")