[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, "حفظ")

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
أخي الكريم 
تأكد من الحقول الرقمية والنصية 
لاحظ ان هذه الحقول انت وضعتها رقمية 
" & N_Dossier.Text & "
" & MONTANT.Text & "
فإن كانت رقمية حولها هكذا
" & Convert.ToInt32(N_Dossier.Text) & "
" & Convert.ToInt32(MONTANT.Text) & "
وإن كانت نصية صع لها سنكل كوتيشن مثل البقية
ناحية اخرى من أجل فتح الاتصال اكتب كود الفتح هكذا أي أغلقه ثم افتحه

كود :

If Con.State = ConnectionState.Open Then Con.Close()
               Con.Open()

[wsalem]

(17-02-22, 09:00 PM)ابراهيم ايبو كتب : وإن كانت نصية صع لها سنكل كوتيشن مثل البقية

وليه منصحتو يستخدم الباراميترز

[mounir3403]

(17-02-22, 09:00 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
أخي الكريم 
تأكد من الحقول الرقمية والنصية 
لاحظ ان هذه الحقول انت وضعتها رقمية 
" & N_Dossier.Text & "
" & MONTANT.Text & "
فإن كانت رقمية حولها هكذا
" & Convert.ToInt32(N_Dossier.Text) & "
" & Convert.ToInt32(MONTANT.Text) & "
وإن كانت نصية صع لها سنكل كوتيشن مثل البقية
ناحية اخرى من أجل فتح الاتصال اكتب كود الفتح هكذا أي أغلقه ثم افتحه

كود :

If Con.State = ConnectionState.Open Then Con.Close()
               Con.Open()

بارك الله فيك على المساعدة
الله يحفظك ويزيدك من علمو 
انا تركت نفس الجملة 
وجدت المشكلة في انه يجب ملئ كل الخانات (TEXTBOX) في البرنامج تشتغل الجملة جيدا لو تركت اي وحدة فارغة تطلع رسالة الخطأ : سلسلة الادخال غير صحيحة

---

(17-02-22, 09:46 PM)wsalem كتب :

(17-02-22, 09:00 PM)ابراهيم ايبو كتب : وإن كانت نصية صع لها سنكل كوتيشن مثل البقية

وليه منصحتو يستخدم الباراميترز

بارك الله فيك على اللرد
جربت باستخدام البارامترز نفس الرسالة تظهر , المشكلة كانت في انو لازم املأ كل TEXTBOX والا ماراح تشتغل

[ابو روضة]

(17-02-22, 09:46 PM)wsalem كتب : وليه منصحتو يستخدم الباراميترز

لآننا بنكمّل بعض ، فما لم يتذكره هو ستتذكره

أنت ، وما لم تتذكره أنت سيتذكره غيرك ، وهكذا..

[ابراهيم ايبو]

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

بارك الله فيكم اخوتي Wsalem , أبو روضة , mounir3403

جلّ من لا ينسى أو يسهو .... فقط الله سبحانه وتعالى لا ينسى ولا يسهو 

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

لذا فإن المشاركة والادلاء بالرأي او حل المشكلة او النصح هو واجب على من يملك الإجابة وله خير الجزاء

شكرا على النصيحة سآخذ بها وأحتاط لها دوما إن شاء الله (إن لم أنس)