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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 191 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] محتاج مساعدة من فضلكم asadtaif 2 80 15-09-17, 01:01 PM
آخر رد: asadtaif
  [سؤال] سؤال ضروري (الصوره) DF.12 0 75 28-08-17, 03:08 PM
آخر رد: DF.12
  [سؤال] لاصحاب الخبره في فيجوال ستوديو 2010 سؤال ضروري eng_yuyu 1 122 14-07-17, 06:47 PM
آخر رد: silverlight
  حل لهذا الكود ddemed 10 267 01-07-17, 02:11 AM
آخر رد: ddemed
  اتحلت معظم المشاكل في المشروع ويبقي الاتي --من فضلكم المساعدة فيها khaled12345 8 261 30-05-17, 10:47 PM
آخر رد: khaled12345
  احتاج لمساعدة سريعة ضروري جدا ramimohammed 3 202 30-05-17, 04:01 PM
آخر رد: alma2
  اريد هذا الكود من فضلكم fouadhdfouad 8 338 12-04-17, 12:14 AM
آخر رد: abdualla
  [VB.NET] من فضلكم ساعدوني zinab ali 2 201 10-04-17, 03:04 PM
آخر رد: zinab ali
Photo اريد هذا الكود من فضلكم fouadhdfouad 2 171 10-04-17, 12:25 AM
آخر رد: fouadhdfouad

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


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