منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - نتيج تنفيذ كود معلمات قليله جداً المتوقع هو 3

السلام عليكم

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

اليكم الكود

PHP كود :
Private Sub btnSaveInfo_Click(sender As Object, e As EventArgs) Handles 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 

السلام عليكم...

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

السطور التالية:

كود :
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.

نرجو الاستفادة و السلام.

اشكرك اخ ناجي

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

لدي تكست بوكس كيف اجعله حقل تاريخ أي يظهر بجانبه ايقونة التقويم بحيث لا يقبل الا تاريخ

السلام عليكم...

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

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

سلام.

اشكرك كل الشكر

الاخ ناجي إبراهيم ما قصر
بالتوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

bumb

ناجي إبراهيم

bumb

ناجي إبراهيم

bumb

elgokr