تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] من فضلكم ضروري اجد حل عندكم لهذا الامر
#1
السلام عليكم ورحمة الله وبركاتة الاخوة الكرام اتمنا ان اجد عندكم الحل لهذة المشكلة اقوم بتصميم برنامج علي الفيجول بيزك لتسجيل المبيعات وعند تسجيل فاتورة بيع بها اكتر من صنف ب استخدام (for) يحدث هذا الخطاء ({"Procedure or function add_ditels_fatorasel has too many arguments specified."} ) مع العلم انه عند التنفيذ بصنف واحد فقط لا يحدث خطاء



هذا الكود المطلوب تنفيذة
Dim con As New SqlConnection

Private Sub fatora()
con.ConnectionString = ("Data Source=.\SQLEXPRESS;Initial Catalog=DBTest;Integrated Security=True")
Dim com2 As New SqlCommand
com2.CommandType = CommandType.StoredProcedure
com2.Connection = con
Dim i As Integer
Dim DGV As New FORM_ORDERS

For i = 0 To DGV.DataGridView1.Rows.Count - 1 Step 1
If i > DGV.DataGridView1.Rows.Count - 1 Then
Exit For
End If



com2.CommandText = ("add_ditels_fatorasel")


'عملية حفظ اصناف الفاتورة في جدول تفاصيل المبيعات
com2.Parameters.AddWithValue("@seril_pro", DGV.DataGridView1.Rows(i).Cells(0).Value)



com2.Parameters.AddWithValue("@name_pro", DGV.DataGridView1.Rows(i).Cells(1).Value)


com2.Parameters.AddWithValue("@Quint_pro", DGV.DataGridView1.Rows(i).Cells(2).Value)


com2.Parameters.AddWithValue("@discount", DGV.DataGridView1.Rows(i).Cells(5).Value)


com2.Parameters.AddWithValue("@nettotal_pro", DGV.DataGridView1.Rows(i).Cells(6).Value)


com2.Parameters.AddWithValue("@id_fators", DGV.textnumber.Text)



If con.State = ConnectionState.Open Then con.Close()

con.Open()
com2.ExecuteNonQuery()


Next i

com2.Dispose()
con.Close()

End Sub

End Class
الرد }}}
تم الشكر بواسطة:
#2
ظع الكود لتتم معالجته
الرد }}}
تم الشكر بواسطة: a_almisery
#3
(07-03-15, 05:40 AM)alktab كتب : ظع الكود لتتم معالجته
السلام عليكم هذة هو الكود المطلوب معالجتة
Dim con As New SqlConnection

Private Sub fatora()
con.ConnectionString = ("Data Source=.\SQLEXPRESS;Initial Catalog=DBTest;Integrated Security=True")
Dim com2 As New SqlCommand
com2.CommandType = CommandType.StoredProcedure
com2.Connection = con
Dim i As Integer
Dim DGV As New FORM_ORDERS

For i = 0 To DGV.DataGridView1.Rows.Count - 1 Step 1
If i > DGV.DataGridView1.Rows.Count - 1 Then
Exit For
End If



com2.CommandText = ("add_ditels_fatorasel")


'عملية حفظ اصناف الفاتورة في جدول تفاصيل المبيعات
com2.Parameters.AddWithValue("@seril_pro", DGV.DataGridView1.Rows(i).Cells(0).Value)



com2.Parameters.AddWithValue("@name_pro", DGV.DataGridView1.Rows(i).Cells(1).Value)


com2.Parameters.AddWithValue("@Quint_pro", DGV.DataGridView1.Rows(i).Cells(2).Value)


com2.Parameters.AddWithValue("@discount", DGV.DataGridView1.Rows(i).Cells(5).Value)


com2.Parameters.AddWithValue("@nettotal_pro", DGV.DataGridView1.Rows(i).Cells(6).Value)


com2.Parameters.AddWithValue("@id_fators", DGV.textnumber.Text)



If con.State = ConnectionState.Open Then con.Close()

con.Open()
com2.ExecuteNonQuery()


Next i

com2.Dispose()
con.Close()

End Sub

End Class
الرد }}}
تم الشكر بواسطة:
#4
ياليت اضافة الاكواد لاحدى الوسوم
كود :
ur code here
الرد }}}
تم الشكر بواسطة:
#5
(08-03-15, 12:33 PM)سعود كتب : ياليت اضافة الاكواد لاحدى الوسوم

كود :
ur code here
اعتزر لقلت خبرتي في ذلك اتمنا ان يكون الكود كذلك مفهوم
كود :
Private Sub fatora()
        con.ConnectionString = ("Data Source=.\SQLEXPRESS;Initial Catalog=DBTest;Integrated Security=True")
        Dim com2 As New SqlCommand
        com2.CommandType = CommandType.StoredProcedure
        com2.Connection = con
        Dim i As Integer
        Dim DGV As New FORM_ORDERS

        For i = 0 To DGV.DataGridView1.Rows.Count - 1 Step 1
            If i > DGV.DataGridView1.Rows.Count - 1 Then
                Exit For
            End If



            com2.CommandText = ("add_ditels_fatorasel")


            'عملية حفظ اصناف الفاتورة في جدول تفاصيل المبيعات
            com2.Parameters.AddWithValue("@seril_pro", DGV.DataGridView1.Rows(i).Cells(0).Value)



            com2.Parameters.AddWithValue("@name_pro", DGV.DataGridView1.Rows(i).Cells(1).Value)


            com2.Parameters.AddWithValue("@Quint_pro", DGV.DataGridView1.Rows(i).Cells(2).Value)


            com2.Parameters.AddWithValue("@discount", DGV.DataGridView1.Rows(i).Cells(5).Value)


            com2.Parameters.AddWithValue("@nettotal_pro", DGV.DataGridView1.Rows(i).Cells(6).Value)


            com2.Parameters.AddWithValue("@id_fators", DGV.textnumber.Text)



            If con.State = ConnectionState.Open Then con.Close()

            con.Open()
            com2.ExecuteNonQuery()


        Next i

        com2.Dispose()
        con.Close()

    End Sub

    End Class
الرد }}}
تم الشكر بواسطة:
#6
هل تتعامل مع الاجراء المحزن؟

كود :
com2.CommandType = CommandType.StoredProcedure
هذا الكود للتعامل مع الاجراءات المخزنة وبقية الكود اجراء عادي .
اذا لم تكن اضفت اجراء داخل قاعدة البيانات فقم بحذف هذا السطر واستبدله بـ commandtype.text
الرد }}}
تم الشكر بواسطة:
#7
(09-03-15, 07:29 AM)سعود كتب : هل تتعامل مع الاجراء المحزن؟


كود :
com2.CommandType = CommandType.StoredProcedure
هذا الكود للتعامل مع الاجراءات المخزنة وبقية الكود اجراء عادي .
اذا لم تكن اضفت اجراء داخل قاعدة البيانات فقم بحذف هذا السطر واستبدله  بـ commandtype.text

نعم هناك اجراء مخزن في قاعدة البيانات من نوع sqlserver
الرد }}}
تم الشكر بواسطة:
#8
شوف الموضوع
الرد }}}
تم الشكر بواسطة:
#9
بيقول لك : انه في باراميتر زياده في الكود أو في الاجراء

لكن نصيحة :
طالما انت بتتعامل مع سيكوال سيرفر داتابيس ,,, سيبك من ADO.Net ومشاكلها
تعامل مع Entity
LINQ TO SQL

بس
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad ممكن حل لهذا المشكل melad2002 0 239 30-01-24, 08:01 PM
آخر رد: melad2002
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  [VB.NET] السلام عليكم من فضلكم ما هذا الخطأ علما أنني أستعمل الدالة format لتغيير شكل التاريخ Aminsoft 0 492 21-11-22, 01:15 PM
آخر رد: Aminsoft
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 2 663 01-11-22, 10:16 AM
آخر رد: محمدعبدالسلام
  لدي سؤال من فضلكم في موضوع الاستاد الفضل shwehdi4pc في كيفية حماية البرنامج محمدعبدالسلام 0 485 30-10-22, 10:56 PM
آخر رد: محمدعبدالسلام
  [VB.NET] الغاء الامر عماد سلمان منذر 1 515 10-10-22, 08:44 AM
آخر رد: أبووسم
  اخواني الاعزاء لدي سؤال من فضلكم abdalwahd 3 599 09-10-22, 04:29 PM
آخر رد: abdalwahd
  [VB.NET] ارجو المساعدة ضروري حسام سلام 3 645 24-08-22, 04:27 PM
آخر رد: asmarsou
  من فضلكم المساعدة:mdf ازاى اتصل به على نفس الجهاز dr.programming 7 1,153 16-05-22, 01:07 PM
آخر رد: DR.YASER
  [سؤال] محتاج خط qr code ضروري من فضلكم CoderMM 5 1,518 15-12-21, 03:52 AM
آخر رد: AmrSobhy

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


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