مشكلة في استعلام اضافة بيانات الى القاعدة

السلام عليكم ..

بما أن الحقل BeneficiaireCantinne من نوع بيانات Yes/No فلا داعي لوضع علامة تنصيص للحقل أي السطر ما قبل الأخير يجب أن يكون كالتالي:

            "','" & TxtProfPere.Text & "','" & TxtProfMere.Text & "'," & CheckCantinne.Checked & ",'" & TxtDistance.Text & _

لو كنت تعمل على مشروع ضخم و فيه استعلامات كثيرة فلماذا لا تستخدم مولدات كود ... Code Generation و يوجد العديد منها و يمكنك بناء مولد خاص بك حسب طريقة العمل التي تتبعها ...

جربت لكن لم يعلم الاستعلام

اخوك مبتدئ يعني لم افهم كلامك عن مولد الكود

المشروع ليس ضخم لن البيانات كثيرة متنوعة

اعطيني رابط يفيدني بارك الله فيك

وجزاك الله خيرا

اقتباس

جربت لكن لم يعلم الاستعلام

طيب جرب الكود التالي : حيث يظهر رسالة الخطأ , كي نعرف أين الخطأ , هل بنوع البيانات أو بالاتصال بالقاعدة أو مشكلة بالمفاتيح الرئيسية و الثانوية أو ... الخ

Try

SavInto.CommandText = "INSERT INTO EtatSociale2eme(Nom,NumAff,DateNaissance,DateScolarisation,NombreFreres,NomPere,NomMere,ProfessionPere,ProfessionMere,BeneficiaireCantinne,DistanceEcole,PremiereAnnee,DeusiemmeAnnee,Sex)" & _
            "values ('" & TxtNom.Text & "','" & TxtNUmAff.Text & "','" & TxtDateNaissance.Text & "','" & TxtDateAff.Text & _
            "','" & TxtNombreFreres.Text & "','" & TxtNomPere.Text & "'  ,'" & TxtNomMere.Text & _
            "','" & TxtProfPere.Text & "','" & TxtProfMere.Text & "'," & CheckCantinne.Checked & ",'" & TxtDistance.Text & _
           "','" & TxtScolarisation1.Text & "','" & TxtScolarisation2.Text & "','" & ComboBox1.Text & "')"


        Catch ex As Exception
                       Console.WriteLine(SavInto.CommandText)
            MessageBox.Show(ex.Message)

        End Try

أو يمكنك استخدام طريقة البارمترات , هي طريقة طويلة ... لكنها قليلة الأخطاء و تعطي كود قابل للقراءة :

Dim dbPath As String = "C:\MyDB.mdb"
        Dim dbConnectionString As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source={0};Persist Security Info=False", dbPath)
        connection = New OleDbConnection(dbConnectionString)
        connection.Open()
        command = New OleDbCommand()
        command.CommandType = CommandType.Text
        command.CommandText = "INSERT INTO Person (Name , Family , Gender) VALUES(@Name , @Family , @Gender)"

        command.Parameters.Add(New OleDbParameter("@Name", OleDbType.VarChar, 255))
        command.Parameters("@Name").Value = "Hello"

        command.Parameters.Add(New OleDbParameter("@Family", OleDbType.VarChar, 255))
        command.Parameters("@Family").Value = "World"

        command.Parameters.Add(New OleDbParameter("@Gender", OleDbType.Boolean, 1))
        command.Parameters("@Gender").Value = True

        command.Connection = connection
        command.ExecuteNonQuery()

اقتباس

اخوك مبتدئ يعني لم افهم كلامك عن مولد الكود

يسمى أحيانا Code Generation أو Object Relation Mapping : ORM و فكرته تعتمد على أننا نحدد له قاعدة البيانات و الجدول أو الجداول المطلوبة و يقوم بتوليد (كتابة) عبارات الــ insert و الــ Update و الــ Delete و بعضها يقوم بإنشاء الفورم (النافذة) لك و يضع عليها خانات النص و اللافتات Textbox and labels , بعضها يعتمد قالب Templates و يمكنك كتابة قوالب جديدة و بعضها ثابت .

أمثلة :

MyGeneration و يعتمد على القوالب

Comparison_of_code_generation_tools

llblGen

dalgen

nhib-gen

CslaGen

جزاك الله خيرا

الكود الذي اقترحته كبديل لم افهم منه سيئا لكن جربت هذا و عرفت مكان الخطأ

كقد كان في combobox1 لم اعرف اصلاحه

وهو الذي ترا ه في الاخير واقف النفيذ

و فماد رسالة الخطا اضا تم تشغيل السطر الاخيرهي

*انه لا يمكن ان يكون قيمتين لنقس الحقل*

 Dim con As New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "/db1.accdb")
    	Dim cmd As New OleDbCommand("insert into EtatSociale2eme(Nom,NumAff,DateNaissance,DateAff,NombreFreres ,NomPere,NomMere,ProfessionPere,ProfessionMere,DistanceEcole,PremiereAnnee,DeusiemmeAnnee,BeneficiaireCantinne) values (?,?,?,?,?,?,?,?,?,?,?,?,?)", con)
    	cmd.Parameters.Clear()
    	cmd.Parameters.AddWithValue("@Nom", OleDbType.VarChar).Value = Trim(TxtNom.Text)
    	cmd.Parameters.AddWithValue("@NumAff", OleDbType.VarChar).Value = Trim(TxtNUmAff.Text)
    	cmd.Parameters.AddWithValue("@DateNaissance", OleDbType.VarChar).Value = Trim(TxtDateNaissance.Text)
    	cmd.Parameters.AddWithValue("@DateAff", OleDbType.VarChar).Value = Trim(TxtDateAff.Text)
    	cmd.Parameters.AddWithValue("@NombreFreres", OleDbType.VarChar).Value = Trim(TxtNombreFreres.Text)
    	cmd.Parameters.AddWithValue("@NomPere", OleDbType.VarChar).Value = Trim(TxtNomPere.Text)
    	cmd.Parameters.AddWithValue("@NomMere", OleDbType.VarChar).Value = Trim(TxtNomMere.Text)
    	cmd.Parameters.AddWithValue("@ProfessionPere", OleDbType.VarChar).Value = Trim(TxtProfPere.Text)
    	cmd.Parameters.AddWithValue("@ProfessionMere", OleDbType.VarChar).Value = Trim(TxtProfMere.Text)
    	cmd.Parameters.AddWithValue("@BeneficiaireCantinne", OleDbType.Boolean).Value = CheckCantinne.Checked
    	cmd.Parameters.AddWithValue("@DistanceEcole", OleDbType.VarChar).Value = Trim(TxtDistance.Text)
    	cmd.Parameters.AddWithValue("@PremiereAnnee", OleDbType.VarChar).Value = Trim(TxtScolarisation1.Text)
    	cmd.Parameters.AddWithValue("@DeusiemmeAnnee", OleDbType.VarChar).Value = Trim(TxtScolarisation2.Text)
    	' cmd.Parameters.AddWithValue("@Sex", OleDbType.VarChar).Value = Trim(ComboBox1.Text)

    	con.Open()
    	cmd.ExecuteNonQuery()
    	con.Close()
    	MsgBox("تم الحفظ بنجاح تام")

اقتباس

الكود الذي اقترحته كبديل لم افهم منه سيئا

أنا اقترحت كودين الأول فيه عبارة TRY CATCH و هي لالتقاط الاستثناءات (Exception) (الأخطاء) و إظهار الرسالة منها .

و الكود الثاني هو طريقة تمرير البارمترات Parameter و أنت نستخدمها cmd.Parameters.AddWithValue و هذا جيد ..

اقتباس

انه لا يمكن ان يكون قيمتين لنقس الحقل

اتمنى لو نسخت رسالة الخطأ الأصلية (بالفرنسية أو الإنكليزية) .. لكن هل الحقل Sex عليه فهرس Index أو يمنع تكرار البيانات No Duplicate

... لم أعرف المشكلة بالضبط ..

بانتظار ردور من الخبراء ..

بالنسبة لاقتراحك الاول اعطاني خطأ

هنا

Catch ex As Exception

Console.WriteLine(SavInto.CommandText)

MessageBox.Show(ex.Message)

وهو يضع سطرا تحت هذه العبارة

SavInto.CommandText و يقول انه غير معرف رغم انه معرف من قبل لذلك لم اطل في تجربته و جربت الكود الثاني المقترح

************

هذا الجزء من البرنامج ليسهل الكلام

عن تشعيل البرنامج اضغط على خلايا الداتا قريد لتنتقل الى فورم التعديل و الاضافة

اضافة الى المشكل السابق : عدم تسجيل قيم الكومبو بكس في الداتا

هناك مشكل في نقل السطر الذي اريد التعديل عليه الى فورم التعديل

البرنامج في المرفقات

WindowsApplication1.7z

ولازلت انتظر

اقتباس

يقول انه غير معرف رغم انه معرف من قبل لذلك

يجب تعريف المتحول خارج عبارة Try حتى نستطيع أن نصل إليه في قسم الــ CATCH و لكن طالما أنه يعمل الآن , فهذا جيد .

عند نصميم الجدول كان الحقل NumAff من نوع Number- Numerique و حجمه في حصائص الحقل في الجدول في الأسفل Field Size = Byte

و الــ Byte يقابل OleDbType.UnsignedTinyInt و ليس VarChar كما كتبت :

cmd.Parameters.AddWithValue("@NumAff", OleDbType.UnsignedTinyInt).Value = Trim(TxtNUmAff.Text)

و نفس المشكلة مع الحقل NomberFreres و DistanceEcole و PremiereAnnee و DeusiemmeAnnee .

ويجب إدخاله على الفورم كرقم و عدم تركه فارغ .. و يمكن وضع قيمة مبدئية له بــ صفر من خصائص الــ TextBox في الــ Form Designer

اقتباس

عدم تسجيل قيم الكومبو بكس في الداتا

لأن الحقل الأخير المسمى Sex غير مذكور في عبارة الــ Insert .

        Dim con As New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "/db1.accdb")
        Dim cmd As New OleDbCommand("insert into EtatSociale2eme(Nom,NumAff,DateNaissance,DateAff,NomberFreres ,NomPere,NomMere,ProfessionPere,ProfessionMere,DistanceEcole,PremiereAnnee,DeusiemmeAnnee,BeneficiaireCantinne , Sex) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?)", con)

        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@Nom", OleDbType.VarChar).Value = Trim(TxtNom.Text)
        cmd.Parameters.AddWithValue("@NumAff", OleDbType.UnsignedTinyInt).Value = Trim(TxtNUmAff.Text)
        cmd.Parameters.AddWithValue("@DateNaissance", OleDbType.VarChar).Value = Trim(TxtDateNaissance.Text)
        cmd.Parameters.AddWithValue("@DateAff", OleDbType.VarChar).Value = Trim(TxtDateAff.Text)
        cmd.Parameters.AddWithValue("@NomberFreres", OleDbType.UnsignedTinyInt).Value = Trim(TxtNombreFreres.Text)
        cmd.Parameters.AddWithValue("@NomPere", OleDbType.VarChar).Value = Trim(TxtNomPere.Text)
        cmd.Parameters.AddWithValue("@NomMere", OleDbType.VarChar).Value = Trim(TxtNomMere.Text)
        cmd.Parameters.AddWithValue("@ProfessionPere", OleDbType.VarChar).Value = Trim(TxtProfPere.Text)
        cmd.Parameters.AddWithValue("@ProfessionMere", OleDbType.VarChar).Value = Trim(TxtProfMere.Text)
        cmd.Parameters.AddWithValue("@BeneficiaireCantinne", OleDbType.Boolean).Value = CheckCantinne.Checked
        cmd.Parameters.AddWithValue("@DistanceEcole", OleDbType.UnsignedTinyInt).Value = Trim(TxtDistance.Text)
        cmd.Parameters.AddWithValue("@PremiereAnnee", OleDbType.UnsignedTinyInt).Value = Trim(TxtScolarisation1.Text)
        cmd.Parameters.AddWithValue("@DeusiemmeAnnee", OleDbType.UnsignedTinyInt).Value = Trim(TxtScolarisation2.Text)
        cmd.Parameters.AddWithValue("@Sex", OleDbType.VarChar).Value = Trim(ComboBox1.Text)

        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("تم الحفظ بنجاح تام")
        Effacer()
        FormEtaSocial2.updatTheDataBase()

اقتباس

هناك مشكل في نقل السطر الذي اريد التعديل عليه الى فورم التعديل

أنه ينقل بشكل صحيح و يوجد طريقة أخرى :

Dim drView As DataRowView = FormEtaSocial2.GridEtaSocial2.SelectedRows(0).DataBoundItem
        Dim dr As DataRow = drView.Row
        FormEtaSocialModifier2.TxtNum.Text = dr("Num").ToString()
' do that for all text boxes
        Me.Hide()
        FormEtaSocialModifier2.ShowDialog(FormEtaSocial2)

و نطبق الكلام على كل الــ TextBox الموجودة ..

و بالنسبة لإظهار الفورم استخدم ShowDialog بدلا من Show حتى يظهر الفورم بالأمام .

        Me.Hide()
        FormEtaSocialModifier2.ShowDialog(FormEtaSocial2)

جزاك الله خيرا

حل مشكل الكمبوبوكس

لكن لم انتبه لمشكل آخر

الصورة تمثل الخطأين الموجودين

بالنسبة للخطأ الاول :

مسجت العمود من القاعدة وأعدت ادراجه لكنه لم يعمل بقي يعطي تلك القمية رعم انه نوعه في القاعدة

number /octe

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

الذي قلت عنه انه يشتغل معك, لكنه لم يشتغل معي

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

بارك الله فيك

و جزاك الله خيرا

بالنسبة للمشكل الثاني تم حله

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

و الان عدلت في الخاصية ليقوم الضغط على خلية واجدة بتنشيط السطر كله

لكن بقي المشكل الاول عالقا

اقتباس

الضعط على زر تعديل الذي قلت عنه انه يشتغل معك, لكنه لم يشتغل معي

أنا ضغطت على زر التعديل فلم يعطي رسالة خطأ .. فظننت أنه يعمل ..

الآن ذهبت إلى الفورم FormEtaSocialModifier2 فوجدت زر التعديل ليس فيه أي كود و يجب أن يكون فيه الكود التالي :

Private Sub BtnSauvgarde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSauvgarde.Click

        Dim con As New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "/db1.accdb")
        Dim cmd As New OleDbCommand("UPDATE  EtatSociale2eme  SET Nom=@Nom, NumAff=@NumAff, DateNaissance=@DateNaissance, DateAff=@DateAff, NomberFreres=@NomberFreres, NomPere=@NomPere, NomMere=@NomMere, ProfessionPere=@ProfessionPere, ProfessionMere=@ProfessionMere, BeneficiaireCantinne=@BeneficiaireCantinne, DistanceEcole=@DistanceEcole, PremiereAnnee=@PremiereAnnee, DeusiemmeAnnee=@DeusiemmeAnnee, sex=@sex WHERE Num =@Num", con)

        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@Nom", OleDbType.VarChar).Value = Trim(TxtNom.Text)
        cmd.Parameters.AddWithValue("@NumAff", OleDbType.UnsignedTinyInt).Value = Trim(TxtNUmAff.Text)
        cmd.Parameters.AddWithValue("@DateNaissance", OleDbType.VarChar).Value = Trim(TxtDateNaissance.Text)
        cmd.Parameters.AddWithValue("@DateAff", OleDbType.VarChar).Value = Trim(TxtDateAff.Text)
        cmd.Parameters.AddWithValue("@NomberFreres", OleDbType.UnsignedTinyInt).Value = Trim(TxtNombreFreres.Text)
        cmd.Parameters.AddWithValue("@NomPere", OleDbType.VarChar).Value = Trim(TxtNomPere.Text)
        cmd.Parameters.AddWithValue("@NomMere", OleDbType.VarChar).Value = Trim(TxtNomMere.Text)
        cmd.Parameters.AddWithValue("@ProfessionPere", OleDbType.VarChar).Value = Trim(TxtProfPere.Text)
        cmd.Parameters.AddWithValue("@ProfessionMere", OleDbType.VarChar).Value = Trim(TxtProfMere.Text)
        cmd.Parameters.AddWithValue("@BeneficiaireCantinne", OleDbType.Boolean).Value = CheckCantinne.Checked
        cmd.Parameters.AddWithValue("@DistanceEcole", OleDbType.UnsignedTinyInt).Value = Trim(TxtDistance.Text)
        cmd.Parameters.AddWithValue("@PremiereAnnee", OleDbType.UnsignedTinyInt).Value = Trim(TxtScolarisation1.Text)
        cmd.Parameters.AddWithValue("@DeusiemmeAnnee", OleDbType.UnsignedTinyInt).Value = Trim(TxtScolarisation2.Text)
        cmd.Parameters.AddWithValue("@Sex", OleDbType.VarChar).Value = Trim(ComboBox1.Text)

        cmd.Parameters.AddWithValue("@Num", OleDbType.Numeric).Value = TxtNum.Text

        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("تم الحفظ بنجاح تام")

        'Effacer()
        'FormEtaSocial2.updatTheDataBase()
    End Sub

أما سبب أن حقل "البعد عن المدرسة " يأخذ القيمة 255 فهو أنه يجب وضع الحقول حسب ترتيب وجودها في قاعدة البيانات في الأكسس

نحن كنا نستخدم الترتيب التالي لأخر خمسة حقول و هو خطأ :

DistanceEcole,PremiereAnnee,DeusiemmeAnnee,BeneficiaireCantinne , Sex)

بينما المفروض

 BeneficiaireCantinne, DistanceEcole, PremiereAnnee, DeusiemmeAnnee, sex )

و كي تعرف الترتيب الصحيح للحقول نأخذ Query جديد و نضيف إليه الجدول ثم ثفتح القوائم المنسدلة فتظهر الحقول حسب الترتيب (الداخلي) لقاعدة البيانات .. كما في الصورة المرفقة ..

و بالتالي يكون الكود :

Dim con As New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "/db1.accdb")
        Dim cmd As New OleDbCommand("INSERT INTO EtatSociale2eme ( Nom, NumAff, DateNaissance, DateAff, NomberFreres, NomPere, NomMere, ProfessionPere, ProfessionMere, BeneficiaireCantinne, DistanceEcole, PremiereAnnee, DeusiemmeAnnee, sex ) VALUES ( @Nom, @NumAff, @DateNaissance, @DateAff, @NomberFreres, @NomPere, @NomMere, @ProfessionPere, @ProfessionMere, @BeneficiaireCantinne, @DistanceEcole, @PremiereAnnee, @DeusiemmeAnnee, @sex )", con)

        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@Nom", OleDbType.VarChar).Value = Trim(TxtNom.Text)
        cmd.Parameters.AddWithValue("@NumAff", OleDbType.UnsignedTinyInt).Value = Trim(TxtNUmAff.Text)
        cmd.Parameters.AddWithValue("@DateNaissance", OleDbType.VarChar).Value = Trim(TxtDateNaissance.Text)
        cmd.Parameters.AddWithValue("@DateAff", OleDbType.VarChar).Value = Trim(TxtDateAff.Text)
        cmd.Parameters.AddWithValue("@NomberFreres", OleDbType.UnsignedTinyInt).Value = Trim(TxtNombreFreres.Text)
        cmd.Parameters.AddWithValue("@NomPere", OleDbType.VarChar).Value = Trim(TxtNomPere.Text)
        cmd.Parameters.AddWithValue("@NomMere", OleDbType.VarChar).Value = Trim(TxtNomMere.Text)
        cmd.Parameters.AddWithValue("@ProfessionPere", OleDbType.VarChar).Value = Trim(TxtProfPere.Text)
        cmd.Parameters.AddWithValue("@ProfessionMere", OleDbType.VarChar).Value = Trim(TxtProfMere.Text)
        cmd.Parameters.AddWithValue("@BeneficiaireCantinne", OleDbType.Boolean).Value = CheckCantinne.Checked
        cmd.Parameters.AddWithValue("@DistanceEcole", OleDbType.UnsignedTinyInt).Value = Trim(TxtDistance.Text)
        cmd.Parameters.AddWithValue("@PremiereAnnee", OleDbType.UnsignedTinyInt).Value = Trim(TxtScolarisation1.Text)
        cmd.Parameters.AddWithValue("@DeusiemmeAnnee", OleDbType.UnsignedTinyInt).Value = Trim(TxtScolarisation2.Text)
        cmd.Parameters.AddWithValue("@Sex", OleDbType.VarChar).Value = Trim(ComboBox1.Text)

        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("تم الحفظ بنجاح تام")
        Effacer()
        FormEtaSocial2.updatTheDataBase()

حزاك الله خيرا أخي حسام ونفع بك الاسلام والمسلمين و اسكن والديك فيسح جنانه و حميع المسلمين

الكود الان يعمل كاملا بشكل جيد

بالنسبة لزر التعديل لم اكن واضعا به الكود لاني لم اصل الى مرحلته فقد تعثر من البداية من نقل المعلومات التي يتوجب التعديل عليها ولم اصل الى كود التعديل لكني كتبته قبلا هو ليس به اي مشكل الا مشكل الرقم 255 وقد تم حله بفضل الله ثم بفضلك

جزاك الله خيرا

اقتباس

حزاك الله خيرا أخي حسام ونفع بك الاسلام والمسلمين و اسكن والديك فيسح جنانه و حميع المسلمين

بارك الله بك أخي ... و جزاك الله كل خير ... و يسر الله لك علمك ...