تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف نضع شرط لهذا الكود abumuhannadzym 12 332 09-10-16, 10:36 PM
آخر رد: abumuhannadzym
  ضروري يا اخوان لازم اسلم المشروع , فيجوال بيسك مع الواقع mudz 1 103 06-09-16, 06:06 AM
آخر رد: %Eman%
Sad [سؤال] سؤال ضروري anasmoner 12 232 21-08-16, 03:25 AM
آخر رد: anasmoner
  [مشروع] استكمال لهذا المشروع yasob 5 121 23-07-16, 02:45 PM
آخر رد: الوادي
  سؤال ضروري romy mohamed 2 158 08-06-16, 02:51 AM
آخر رد: محمد كريّم
  [VB.NET] محتاج مساعده ضروري لو سمحتم البراء محمد 3 199 08-04-16, 06:22 PM
آخر رد: البراء محمد
  [سؤال] ضروري مساعدتكم في برنامج سوق الكتروني انوار القصيم 16 500 15-03-16, 01:28 PM
آخر رد: hassan
Photo طلب ضروري خاص بحفظ صورة كخلفية للفورم فىmy.setting Last Warrior 4 960 26-02-16, 11:10 AM
آخر رد: hashim
  عدم تنفيذ الامر بعد تحزيم البرنامج aftfm 1 192 18-02-16, 01:33 PM
آخر رد: aftfm
  محتاج مثال علي كريستال ريبورت من فضلكم Medo555 1 215 03-02-16, 08:37 PM
آخر رد: جميل علي

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


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