تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعده للانتهاء من مرحله كبيره فى البرنامج
#1
تصحيح الكود للانتهاء من مرحلة الفاتوره
مشكلة الكود فى الجزء ده بيدخل اول عنصر متباع وبيكرره فى الاصناف الى بعده 
كود :
ss = "insert into [prosh_older] ([itemid], [qtnitem], [unititem], [totitem], [idpro]) values (@itemid, @qtnitem, @unititem, @totitem, @idpro)"
           md = New OleDb.OleDbCommand(ss, con)
           For u As Integer = 0 To dgvprodac.RowCount - 2
               id_pro = dgvprodac.Rows(u).Cells(0).Value
               qty = dgvprodac.Rows(u).Cells(2).Value
               price = dgvprodac.Rows(u).Cells(3).Value
               amount = dgvprodac.Rows(u).Cells(4).Value
               md.Parameters.Add(New OleDb.OleDbParameter("@itemid", OleDb.OleDbType.Integer)).Value = id_pro
               md.Parameters.Add(New OleDb.OleDbParameter("@qtnitem", OleDb.OleDbType.Integer)).Value = qty
               md.Parameters.Add(New OleDb.OleDbParameter("@unititem", OleDb.OleDbType.Currency)).Value = price
               md.Parameters.Add(New OleDb.OleDbParameter("@totitem", OleDb.OleDbType.Currency)).Value = amount
               md.Parameters.Add(New OleDb.OleDbParameter("@idpro", OleDb.OleDbType.Integer)).Value = id_shirid
               md.ExecuteNonQuery()

الكود كامل 
كود :
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
       Dim cmd As New OleDbCommand(String.Empty, con)
       Dim ss As String
       con.Open()
       For Each r As DataGridViewRow In dgvprodac.Rows
           Dim ad As Integer = Val(r.Cells(0).Value)
           Dim txt As Integer = Val(r.Cells(2).Value)
           cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty -{0} WHERE [id] = {1} ", txt, ad)
           cmd.ExecuteNonQuery()
       Next
       Try
           ss = "INSERT INTO [tabolder] ([prosh], [sailman],[shirid]) VALUES (@date, @sailman, @ID)"
           Dim md As New OleDbCommand(ss, con)
           md.Parameters.AddWithValue("@date", dtolder.Value.Date)
           md.Parameters.AddWithValue("@sailman", TXTGNAME.Text)
           md.Parameters.AddWithValue("@ID", txtnamper.Text)
           'con.Open()
           md.ExecuteNonQuery()
           md.CommandText = "SELECT @@IDENTITY"
           md = New OleDb.OleDbCommand("select max(shirid) from tabolder", con)
           Dim dm As OleDb.OleDbDataReader = md.ExecuteReader
           dm.Read()
           Dim id_shirid As Integer = dm(0)
           dm.Close()
           Dim id_pro, qty As Integer
           Dim price, amount As Single
           'المشكله هنا
           ss = "insert into [prosh_older] ([itemid], [qtnitem], [unititem], [totitem], [idpro]) values (@itemid, @qtnitem, @unititem, @totitem, @idpro)"
           md = New OleDb.OleDbCommand(ss, con)
           For u As Integer = 0 To dgvprodac.RowCount - 2
               id_pro = dgvprodac.Rows(u).Cells(0).Value
               qty = dgvprodac.Rows(u).Cells(2).Value
               price = dgvprodac.Rows(u).Cells(3).Value
               amount = dgvprodac.Rows(u).Cells(4).Value
               md.Parameters.Add(New OleDb.OleDbParameter("@itemid", OleDb.OleDbType.Integer)).Value = id_pro
               md.Parameters.Add(New OleDb.OleDbParameter("@qtnitem", OleDb.OleDbType.Integer)).Value = qty
               md.Parameters.Add(New OleDb.OleDbParameter("@unititem", OleDb.OleDbType.Currency)).Value = price
               md.Parameters.Add(New OleDb.OleDbParameter("@totitem", OleDb.OleDbType.Currency)).Value = amount
               md.Parameters.Add(New OleDb.OleDbParameter("@idpro", OleDb.OleDbType.Integer)).Value = id_shirid
               md.ExecuteNonQuery()
           Next
       Catch ex As Exception
       End Try
       sqlstr = "select max (shirid) +1 from [tabolder] "
       cmd = New OleDbCommand(sqlstr, con)
       txtnamper.Text = cmd.ExecuteScalar()
       con.Close()
       MsgBox("تم حفظ الفاتوره")
       dt.Rows.Clear()
       txttotal.Clear()
       Label15.Text = "..."
   End Sub


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
لا زم جملة insert تدخل في الليلة
ضعها داخل جملة for
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عرض البرنامج بالشكل الكامل عمور2016 9 170 , 01:46 AM
آخر رد: عمور2016
  [VB.NET] كيفية تشفير اكواد البرنامج من السرقة ميدو الفنان 1 53 , 07:17 AM
آخر رد: Anas Mahmoud
  [VB.NET] كيف بامكاني معرفة عدد اللى فاتحين البرنامج بتاعي ميدو الفنان 0 39 21-09-20, 01:09 PM
آخر رد: ميدو الفنان
  [سؤال] ارجو الرد سريعا مايسترو 2 98 19-09-20, 04:12 PM
آخر رد: عبد الرؤوف
  [VB.NET] أرجو مساعدة ..... أريد أرسال رسالة بريد إلكترونى من البرنامج بواسطة الفيجول بيسك رامى محمد 2 106 16-09-20, 03:57 PM
آخر رد: رامى محمد
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 209 13-09-20, 06:05 PM
آخر رد: eman kh
  [VB.NET] مشكلة تعليق البرنامج عند العمل ميدو الفنان 6 194 11-09-20, 09:00 PM
آخر رد: T 1
  [سؤال] ارجو المساعده في كود منه 3 169 30-08-20, 10:38 AM
آخر رد: Anas Mahmoud
  مشكلة في عمل ابديت لجدول بسبب التاريخ ارجو المساعدة stiger 2 202 24-08-20, 04:40 PM
آخر رد: stiger
  اريد عرض اليوم حسب اختيار التاريخ ارجو المساعده الله يبارك فيكم كريم عبودي 4 321 23-08-20, 01:59 PM
آخر رد: اسامه الهرماوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم