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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 55 04-10-17, 11:34 PM
آخر رد: ahmed kamal
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 2 85 23-09-17, 10:56 AM
آخر رد: aliday03
  الغاء تنفيذ الادخال عن طريق inputbox mo93 5 189 03-09-17, 01:38 AM
آخر رد: سعود
  تنفيذ كود قبل فتح البرنامج ddemed 17 452 24-06-17, 06:52 PM
آخر رد: silverlight
  [VB.NET] مشكلة عدم تنفيذ الكود + المشروع بالكامل e-coder 0 136 07-06-17, 01:57 PM
آخر رد: e-coder
  السلام عليكم هل يمكنني تنفيذ امر صوتي الى الضغط على button من خلال الصوت mohammed.gadain61 6 327 13-04-17, 01:48 PM
آخر رد: matrixmas
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 328 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة بسيطة جداً timer 3asfa~mdmra 4 305 15-01-17, 10:09 PM
آخر رد: 3asfa~mdmra
  [VB.NET] مشكلة بسيطة جداً بموقت timer 3asfa~mdmra 2 316 30-12-16, 05:03 AM
آخر رد: 3asfa~mdmra
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 259 21-11-16, 11:48 PM
آخر رد: السرور

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


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