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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow اين الخبراء من فضلكم Derradji22 3 94 18-11-17, 05:15 PM
آخر رد: ﻣﺒﺘﺪﺉ
Exclamation [Acces2007] مساعدة من الاخوة الخبراء من فضلكم على جناح السرعة Derradji22 0 99 18-11-17, 01:25 AM
آخر رد: Derradji22
  [كود] طلب كود فجول بيسك ضروري mohammedvego 3 154 11-11-17, 01:07 AM
آخر رد: a.ahmed
  ارجو الافادة ضروري 3sab 0 38 10-11-17, 09:19 PM
آخر رد: 3sab
  مساعده فى كود التحكم عن بعد ((بمقابل مادى لو لزم الامر )) mido2010bona 4 789 07-11-17, 10:42 PM
آخر رد: VB.NET
  [سؤال] فقدت ملفات المشروع ( مساعده من فضلكم ) mechengr 2 86 31-10-17, 12:15 AM
آخر رد: أسامة السالمي
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 81 04-10-17, 11:34 PM
آخر رد: ahmed kamal
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 242 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] محتاج مساعدة من فضلكم asadtaif 2 120 15-09-17, 01:01 PM
آخر رد: asadtaif
  [سؤال] سؤال ضروري (الصوره) DF.12 0 98 28-08-17, 03:08 PM
آخر رد: DF.12

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


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