تقييم الموضوع :
  • 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.

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

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

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

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

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

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: ربيع , elgokr
#5
اشكرك كل الشكر
الرد }}}
تم الشكر بواسطة: ربيع
#6
الاخ ناجي إبراهيم ما قصر
بالتوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
  مشكلة في تنفيذ البرنامج 'microsoft.ace.oledb.12.0' provider is not registered um_noor20 6 554 13-09-23, 10:05 AM
آخر رد: um_noor20
  تنفيذ اسكربت من خلال فيجوال بيسك atefkhalf2004 4 718 16-03-23, 09:49 PM
آخر رد: atefkhalf2004
  [VB.NET] كيف يمكن تنفيذ امر داخل الباور شل zooz313 2 775 17-12-22, 02:25 PM
آخر رد: kebboud
  [VB.NET] كيفية تنفيذ كود معين كل يوم او يومين ميدو الفنان 6 1,270 10-10-22, 08:18 PM
آخر رد: ميدو الفنان
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 1 1,108 29-09-22, 09:55 AM
آخر رد: mohamedassim
  [سؤال] تنفيذ الكود بعد مده زمنيه محدده حسن الجلب 5 1,301 22-08-22, 04:32 AM
آخر رد: سعود

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


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