منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - شباب كيفية حفظ بيانات الداتا جريد بطريقة Parameters

الصفحات : 1 2 3 4

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

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

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

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

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 

[attachment=7070]

[attachment=7071]

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

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

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

الصفحات : 1 2 3 4

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

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

سعود

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

سعود