[bumb]

السلام عليكم

لدي كود يحفظ في 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.

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

[bumb]

اشكرك اخ ناجي

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

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

[ناجي إبراهيم]

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

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

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

سلام.

[bumb]

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

[elgokr]

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