تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] نتيج تنفيذ كود معلمات قليله جداً المتوقع هو 3
#1
السلام عليكم

لدي كود يحفظ في 3 حداول
الكود يمشي في حفظ البيانات الخاصه بالجدول الأول تمام ولما يجي على الجدول الثاني يوقف وتظهر رساله الخطأ (معلمات قليله جداً المتوقع هو 3)

اليكم الكود

PHP كود :
Private Sub btnSaveInfo_Click(sender As ObjectAs EventArgsHandles btnSaveInfo.Click
        Dim ConnString 
As String "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=.\ApoSYS.ACCDB"
        
Dim ApoSYSconn As New OleDbConnection(ConnString)
        
ApoSYSconn.Open()

        
Dim CMD As New OleDb.OleDbCommand("qNewCustomer"ApoSYSconn)
        
CMD.CommandType CommandType.StoredProcedure

        CMD
.Parameters.Add(New OleDb.OleDbParameter("@CivilRegNum"txtCRN.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name1"txtName1.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name2"txtName2.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name3"txtName3.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@Name4"txtName4.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@MobileNum"txtMobileNo.Text))

        
CMD.ExecuteNonQuery()

        
Dim CMD1 As New OleDb.OleDbCommand("qNewBarwah"ApoSYSconn)
        
CMD1.CommandType CommandType.StoredProcedure

        CMD
.Parameters.Add(New OleDb.OleDbParameter("@Customer"txtCRN.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@BarwahNum"txtBarwahNo.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@Notes"txtNotes.Text))

        
CMD1.ExecuteNonQuery()

        
Dim CMD2 As New OleDb.OleDbCommand("qNewDate"ApoSYSconn)
        
CMD2.CommandType CommandType.StoredProcedure

        CMD
.Parameters.Add(New OleDb.OleDbParameter("@BawahNum"txtBarwahNo.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@DateReg"txtDateReg.Text))
        
CMD.Parameters.Add(New OleDb.OleDbParameter("@DateReceipt"txtDateRecipt.Text))

        
CMD2.ExecuteNonQuery()

        
ApoSYSconn.Close()

        
MsgBox("تم الحفظ")
    
End Sub 
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

ذلك بسبب النسخ و اللصق، ثم نسيت تعديل الأسطر المنسوخة...

السطور التالية:
كود :
CMD.Parameters.Add(New OleDb.OleDbParameter("@Customer", txtCRN.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@BarwahNum", txtBarwahNo.Text))
        CMD.Parameters.Add(New OleDb.OleDbParameter("@Notes", txtNotes.Text))

        CMD1.ExecuteNonQuery()

يجب أن تكون هكذا:
كود :
CMD1.Parameters.Add(New OleDb.OleDbParameter("@Customer", txtCRN.Text))
        CMD1.Parameters.Add(New OleDb.OleDbParameter("@BarwahNum", txtBarwahNo.Text))
        CMD1.Parameters.Add(New OleDb.OleDbParameter("@Notes", txtNotes.Text))

        CMD1.ExecuteNonQuery()

* أي استعمل CMD1 بدل CMD لإضافة البارامترات.

* و كذلك الأمر بالنسبة إلى المجموعة الأخيرة من جمل إضافة البارامترات، أي استعمل CMD2 بدل CMD.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: ربيع
#3
اشكرك اخ ناجي

فعلاً نسيت هذه النقطه

لدي تكست بوكس كيف اجعله حقل تاريخ أي يظهر بجانبه ايقونة التقويم بحيث لا يقبل الا تاريخ
الرد }}}}
تم الشكر بواسطة: ربيع
#4
السلام عليكم...

لماذا لا تستعمل DateTimePicker فهو مخصص لهذا الغرض.

أو يمكنك استعمال TextBox مع ضبط الخاصية ReadOnly (للقراءة-فقط) على True، و بجانبه Button و تحته MonthCalendar مخفي (Visible = False) بحيث عند النقر على الـ Button يتم إظهار الـ MonthCalendar ليختار المستخدم التاريخ الذي يتم نسخه بالكود إلى الـ TextBox مع إخفاء الـ MonthCalendar.

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: ربيع
#5
اشكرك كل الشكر
الرد }}}}
تم الشكر بواسطة: ربيع


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 56 21-11-16, 11:48 PM
آخر رد: السرور
  [VB.NET] تنفيذ إستعلام tifagreet 1 83 18-10-16, 08:55 PM
آخر رد: ابراهيم النعيمي
  [VB.NET] إلغاء تنفيذ الكود tifagreet 5 222 07-10-16, 03:30 PM
آخر رد: tifagreet
  [VB.NET] خطأ أثناء تنفيذ كود الحفظ أسامة السالمي 0 115 10-08-16, 07:21 PM
آخر رد: أسامة السالمي
  كيف تعمل برامج التحميل ؟ لماذا التحميل عن طريقها سريع جداً؟! silverlord 6 883 08-06-16, 03:46 AM
آخر رد: silverlight
  [سؤال] تنفيذ امر عيل صفحات الويب vb.net السويسي 0 111 17-04-16, 11:02 AM
آخر رد: السويسي
  [VB.NET] تنفيذ امر كل وقت محدد ؟ Mido-9 3 204 10-03-16, 01:50 AM
آخر رد: hassan
  عدم تنفيذ الامر بعد تحزيم البرنامج aftfm 1 192 18-02-16, 01:33 PM
آخر رد: aftfm
  مشكلة في تنفيذ مشروع مكتبة Maha attia 1 250 16-02-16, 12:48 AM
آخر رد: boudyonline
  [VB.NET] أستفسـار عند ضغط أنتر تنفيذ أمر معين adel27 6 345 13-02-16, 09:29 PM
آخر رد: adel27

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


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