[احمد عبد الحكيم]

اشكرك شكرا جزيلا اخى العزيز سعود مبدع دائما
وخير موجيب للاسئلة الصعبة فا ارجو اننى قد لا اكون ازعجتك

---

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

هذا كود حفظ الجدول الاول

PHP كود :

Dim cm As New OleDbCommand("", Con)
        cm.CommandText = "insert into buy2  (buyID, date, cusid, cus, address, phone, driv, assis, carid, carnam, carqan, carnum, invtol, mdfo, baky) VALUES (@buyid,@date,@cusid,@cus,@address,@phone,@driv,@assis,@carid,@carnam,@carqan,@carnum,@invtol,@mdfo,@baky)"
        cm.Parameters.AddWithValue("@buyid", TextBox1.Text)
        cm.Parameters.AddWithValue("@date", DateTimePicker1.Text)
        cm.Parameters.AddWithValue("@cusid", ComboBox1.Text)
        cm.Parameters.AddWithValue("@cus", txtNam.Text)
        cm.Parameters.AddWithValue("@address", txtAddr.Text)
        cm.Parameters.AddWithValue("@phone", txtPhon.Text)
        cm.Parameters.AddWithValue("@driv", ComboBox5.Text)
        cm.Parameters.AddWithValue("@assis", ComboBox6.Text)
        cm.Parameters.AddWithValue("@carid", ComboBox3.Text)
        cm.Parameters.AddWithValue("@carnam", txtCnam.Text)
        cm.Parameters.AddWithValue("@carqan", txtCq.Text)
        cm.Parameters.AddWithValue("@carnum", txtCnum.Text)
        cm.Parameters.AddWithValue("@invtol", txtbilltotal.Text)
        cm.Parameters.AddWithValue("@mdfo", txtBlance.Text)
        cm.Parameters.AddWithValue("@baky", txttotalBill.Text)

        oncon()
        Try
            cm.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
        End Try 


وهذا هو كود حفظ الداتا جريد

PHP كود :

 For r = 0 To DataGridView1.Rows.Count - 2
            cm.Parameters.Clear()
            cm.CommandText = "insert into buy2  (invono, date, invsuc, invsun, invqu, invprc, invsal) VALUES (@in,@date,@itemid,@itemN,@q,@pric,@tot)"

            cm.Parameters.AddWithValue("@in", DataGridView1.Rows(r).Cells(0).Value)
            cm.Parameters.AddWithValue("@date", DataGridView1.Rows(r).Cells(1).Value)
            cm.Parameters.AddWithValue("@itemid", DataGridView1.Rows(r).Cells(2).Value)
            cm.Parameters.AddWithValue("@itemN", DataGridView1.Rows(r).Cells(3).Value)
            cm.Parameters.AddWithValue("@q", DataGridView1.Rows(r).Cells(4).Value)
            cm.Parameters.AddWithValue("@pric", DataGridView1.Rows(r).Cells(5).Value)
            cm.Parameters.AddWithValue("@tot", DataGridView1.Rows(r).Cells(6).Value)


            oncon()
            Try
                cm.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            End Try

        Next 


   


  dag.rar (الحجم : 12.32 ك ب / التحميلات : 28)