تقييم الموضوع :
  • 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
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 91 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  اجو المساعده فى عمل تقرير خالد كامل1 3 293 24-12-23, 04:12 PM
آخر رد: خالد كامل1
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit

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


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