[سعود]

ماعليك احذفها
هذا لكي احفظ مكان الفورم يعني لو نقلت الفورم لليمين او اليسار واغلقت البرنامج سيتم حفظ المكان ليتم استدعاءه عن التشغيل

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

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

---

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

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

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)

[سعود]

حاول تتجنب الاسماء المحجوزة!
مثل date و in  وغيرها
ايضا جرب من غير تاريخ وشوف.

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

شكرا جزيلا اخى سعود والله انك انسان جميل وشخصية محترمة

[سعود]

العفو
الاهم انك توصلت للحل