تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من فضلكم نوع الخطأ في الكود
#1
عند الحفظ ياتي هذا الخطأ ، مساعدة من فضلكم

كود :
Public Sub Insert_Sale_Details_Tbl()
       For i As Integer = 0 To dgvSale.Rows.Count - 1
           Dim Cmd As New SqlCommand
           With Cmd
               .Connection = Con
               .CommandType = CommandType.Text
               .CommandText = "Insert Into sale_Details_Tbl ( Sale_ID,Prd_ID,SalePrice,Qty,TotalAmount)values(@Sale_ID,@Prd_ID,@SalePrice,@Qty,@TotalAmount)"
               .Parameters.Clear()
               .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = Sale_ID.Text
               .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = dgvSale.Rows(i).Cells(0).Value
               .Parameters.AddWithValue("@SalePrice", SqlDbType.Decimal).Value = dgvSale.Rows(i).Cells(4).Value
               .Parameters.AddWithValue("@Qty", SqlDbType.Int).Value = dgvSale.Rows(i).Cells(5).Value
               .Parameters.AddWithValue("@TotalAmount", SqlDbType.Decimal).Value = dgvSale.Rows(i).Cells(6).Value
           End With
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Cmd.ExecuteNonQuery()
           Con.Close()

           Cmd = Nothing

       Next
       MsgBox("تم إضافة فاتورة المبيعات بنجاح ", MsgBoxStyle.Information, "حفظ")
   End Sub



------------------------
منكم أتعلم
------------------------

الرد }}}
تم الشكر بواسطة:
#2
استخدم Integer.Parse

كود :
              .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = Integer.Parse(Sale_ID.Text)
الرد }}}
تم الشكر بواسطة: sofiane-phy , sofiane-phy
#3
(26-09-20, 06:42 PM)Anas Mahmoud كتب : استخدم Integer.Parse

كود :
              .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = Integer.Parse(Sale_ID.Text)

نفس الخطأ يتكرر ، هل من حل آخر بارك الله فيك ؟
------------------------
منكم أتعلم
------------------------

الرد }}}
تم الشكر بواسطة:
#4
اقصد في جميع البرامترات ، لايصح ان تخبره بان قيمة البرامتر هي integer وتعطيها له string

جرب هكذا ، لم اجربه كتبته في النوت باد
كود :
Public Sub Insert_Sale_Details_Tbl()
      For i As Integer = 0 To dgvSale.Rows.Count - 1

dim SaleID As integer = Integer.Parse(Sale_ID.Text)
dim Prd_ID As integer = Integer.Parse(dgvSale.Rows(i).Cells(0).Value)
dim SalePrice As Decimal = Decimal .Parse(dgvSale.Rows(i).Cells(4).Value)
dim Qty As integer = Integer.Parse(dgvSale.Rows(i).Cells(5).Value)
dim TotalAmount As Decimal = Decimal .Parse(dgvSale.Rows(i).Cells(6).Value)

          Dim Cmd As New SqlCommand
          With Cmd
              .Connection = Con
              .CommandType = CommandType.Text
              .CommandText = "Insert Into sale_Details_Tbl ( Sale_ID,Prd_ID,SalePrice,Qty,TotalAmount)values(@Sale_ID,@Prd_ID,@SalePrice,@Qty,@TotalAmount)"
              .Parameters.Clear()
              .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = SaleID
              .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = Prd_ID
              .Parameters.AddWithValue("@SalePrice", SqlDbType.Decimal).Value = SalePrice
              .Parameters.AddWithValue("@Qty", SqlDbType.Int).Value = Qty
              .Parameters.AddWithValue("@TotalAmount", SqlDbType.Decimal).Value = TotalAmount
          End With
          If Con.State = 1 Then Con.Close()
          Con.Open()
          Cmd.ExecuteNonQuery()
          Con.Close()

          Cmd = Nothing

      Next
      MsgBox("تم إضافة فاتورة المبيعات بنجاح ", MsgBoxStyle.Information, "حفظ")
  End Sub
الرد }}}
#5
(26-09-20, 08:26 PM)Anas Mahmoud كتب : اقصد في جميع البرامترات ، لايصح ان تخبره بان قيمة البرامتر هي integer وتعطيها له string

جرب هكذا ، لم اجربه كتبته في النوت باد
كود :
Public Sub Insert_Sale_Details_Tbl()
      For i As Integer = 0 To dgvSale.Rows.Count - 1

dim SaleID As integer = Integer.Parse(Sale_ID.Text)
dim Prd_ID As integer = Integer.Parse(dgvSale.Rows(i).Cells(0).Value)
dim SalePrice As Decimal = Decimal .Parse(dgvSale.Rows(i).Cells(4).Value)
dim Qty As integer = Integer.Parse(dgvSale.Rows(i).Cells(5).Value)
dim TotalAmount As Decimal = Decimal .Parse(dgvSale.Rows(i).Cells(6).Value)

          Dim Cmd As New SqlCommand
          With Cmd
              .Connection = Con
              .CommandType = CommandType.Text
              .CommandText = "Insert Into sale_Details_Tbl ( Sale_ID,Prd_ID,SalePrice,Qty,TotalAmount)values(@Sale_ID,@Prd_ID,@SalePrice,@Qty,@TotalAmount)"
              .Parameters.Clear()
              .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = SaleID
              .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = Prd_ID
              .Parameters.AddWithValue("@SalePrice", SqlDbType.Decimal).Value = SalePrice
              .Parameters.AddWithValue("@Qty", SqlDbType.Int).Value = Qty
              .Parameters.AddWithValue("@TotalAmount", SqlDbType.Decimal).Value = TotalAmount
          End With
          If Con.State = 1 Then Con.Close()
          Con.Open()
          Cmd.ExecuteNonQuery()
          Con.Close()

          Cmd = Nothing

      Next
      MsgBox("تم إضافة فاتورة المبيعات بنجاح ", MsgBoxStyle.Information, "حفظ")
  End Sub

دائما متألق كعادتك ، جزاك الله خيرا ، ادامك الله الصحة و العافية
------------------------
منكم أتعلم
------------------------

الرد }}}
تم الشكر بواسطة: Anas Mahmoud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  شرح عن الخطأ attempted to read or write Adel27213 3 384 05-01-24, 01:01 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 238 27-10-23, 04:05 PM
آخر رد: AhmedEissa
  [كود] ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 AhmedEissa 9 501 21-10-23, 11:44 PM
آخر رد: Ahmed5
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

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


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