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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الكود الجديد لا يعمل بالبرنامج بعد نقل البرنامج الى جهاز اخر فيجوال بيسك 2017 mustafa mohamed 3 118 , 07:37 AM
آخر رد: E100
  [SQL] مشكلة بطئ سرعة البرنامج المتصل بقاعدة بيانات على النت mmaalmesry 4 235 24-11-21, 12:23 PM
آخر رد: mmaalmesry
  مشكلة عند فتح البرنامج Lathe1 0 106 22-11-21, 12:20 PM
آخر رد: Lathe1
  سؤال في الفيجوال بيسك ارجو المساعدة abdalaziz224 3 304 13-11-21, 03:16 PM
آخر رد: kaled2025
  احتاج كود لأنشاء امر الدفع و ربط جهاز الدفع الإلكتروني او الشبكي مع البرنامج mohamedgadain61 3 531 26-09-21, 08:31 PM
آخر رد: mohamedgadain61
  لماذا تختفي القيم المسندة للاعدادات عند نقل البرنامج ابو انس 3 360 20-09-21, 10:21 PM
آخر رد: alfaiz678
  مشكلة في نقل البرنامج الى جهاز اخر سيف الشمال 8 949 19-09-21, 03:13 PM
آخر رد: سيف الشمال
  [VB.NET] كيفية اضافة ال public key token في البرنامج Codack 0 337 07-09-21, 07:30 PM
آخر رد: Codack
  [VB.NET] مشكلة عند تشغيل البرنامج AMAZ1972AMAZ 1 437 14-08-21, 08:26 PM
آخر رد: اسامه الهرماوي
  سؤال عن جعل البرنامج بلغتين ابو انس 6 901 25-07-21, 08:47 PM
آخر رد: ابو انس

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


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