المشاركات : 10
المواضيع 4
الإنتساب : Feb 2017
السمعة :
1
الشكر: 8
تم شكره 8 مرات في 2 مشاركات
السلام عليكم ورحمة الل وبركاته
اريد ان اقوم بترحيل مجموعة من المشتريات عبر الداتا جريد او الليست فيو وعند الضغط على زر حفظ يتم حفظ البيانات واجراء التعديلات في الجداول التي تحتوي على تلك الاصناف وزيادة الكمية
وارجو ان احظى بالحل من قبلكم وتقبلو خالص الشكر
المشاركات : 10
المواضيع 4
الإنتساب : Feb 2017
السمعة :
1
الشكر: 8
تم شكره 8 مرات في 2 مشاركات
17-03-17, 05:25 PM
(آخر تعديل لهذه المشاركة : 17-03-17, 05:30 PM {2} بواسطة ahmed99.)
رجو شرح كيفية ترحيل فاتورة الشراء الى قاعدة البيانات من الداتاجريد مع تعديل كميات المنتجات في جدول المنتجات وفي حالة وجود منتجات جديدة في الفاتورة يتم اضافتها مسبقا
وارجو تصحيح الكود التالي
لان العميلة تتم ولكن عند الضغط مرة اخرى يضهر خطاء في الكود التالي
Dim nu, con, s, o As Integer
ds.Clear()
Dim pro, kn As String
For i = 0 To DataGridView1.RowCount - 1
nu = DataGridView1.Rows(i).Cells(0).Value
pro = DataGridView1.Rows(i).Cells(3).Value
Cmd.Parameters.Add(New OleDbParameter("nu", OleDbType.Integer)).Value =
Conn.Open()
Cmd.ExecuteNonQuery()
sqls = "update product set product = produc, kind = knd, cont = con where num = " & nu
Cmd = New OleDbCommand(sqls, Conn)
cm = New OleDbCommandBuilder(Da)
Da.Fill(ds, "product")
kn = DataGridView1.Rows(i).Cells(4).Value
con = DataGridView1.Rows(i).Cells(5).Value
Cmd.Parameters.Add(New OleDbParameter("produc", OleDbType.VarChar)).Value = pro
Cmd.Parameters.Add(New OleDbParameter("knd", OleDbType.VarChar)).Value = kn
Cmd.Parameters.Add(New OleDbParameter("con", OleDbType.Integer)).Value = con
Conn.Close()
Next
المشاركات : 150
المواضيع 1
الإنتساب : Mar 2017
السمعة :
12
الشكر: 211
تم شكره 171 مرات في 94 مشاركات
أخي أحمد، أين المشروع لنعدل عليه
المشاركات : 150
المواضيع 1
الإنتساب : Mar 2017
السمعة :
12
الشكر: 211
تم شكره 171 مرات في 94 مشاركات
ما فهمت مشروعك وخصوصا ما فيه غير جدول واحد
ما فهمته