[علاء الكبابي]

(31-01-20, 06:24 PM)larbihamri كتب : قم بإدخال جملة insert  داخل for

للاسف مش فاهم تبقى ازاي؟

---

(31-01-20, 06:24 PM)larbihamri كتب : قم بإدخال جملة insert  داخل for

عندما اعدت ترتيب الجمل بهذا الشكل
For i As Integer = 0 To dgv1.Rows.Count - 1
            Dim code, nam, qty As String
            Dim price, tot As Double
            code = dgv1.Rows(i).Cells(0).Value
            nam = dgv1.Rows(i).Cells(1).Value
            price = dgv1.Rows(i).Cells(2).Value
            qty = dgv1.Rows(i).Cells(3).Value
            tot = dgv1.Rows(i).Cells(4).Value
            Dim cmd As New OleDbCommand
            cmd = New OleDbCommand("insert into orders_d (id_o, code, iname_o, price_o, qty_o, tot_o) values (@id_o, @code, @iname_o, @price_o, @qty_o, @tot_o)", con)

            cmd.Parameters.Add("@id_o", OleDbType.Integer).Value = txt_nb.Text
            cmd.Parameters.Add("@code", OleDbType.VarChar).Value = code
            cmd.Parameters.Add("@iname_o", OleDbType.VarChar).Value = nam
            cmd.Parameters.Add("@price_o", OleDbType.Currency).Value = price
            cmd.Parameters.Add("@qty_o", OleDbType.VarChar).Value = qty
            cmd.Parameters.Add("@tot_o", OleDbType.Currency).Value = tot
            cmd.ExecuteNonQuery()

        Next
        con.Close()
        txt_nb.Text = max_order() + 1
        dt.Rows.Clear()
ظهرت مشكلة جديدة وهي 
parameter @code has no default value
ويتوقف البرنامج عن العمل رغم ان كل قيمة بتدخل في مكانها الصحيح في الجدول وبيتم حفظ تفاصيل الفاتورة بشكل صحيح