[khalid475]

السلام عليكم ورحمة الله وبركاته 

أعزائي يوجد خطأ يظهر عند تنفيذ إجراء مخزن 

أولا الأكواد :

في كلاس Data Layer 

كود :

Friend Function Search_Licenses_By_Number(ByRef dr As SqlDataReader, ByVal LicenseNumber As Integer) As Integer
           Dim retval As String
           Dim cmd As New SqlCommand("Search_Licenses_By_Number")
           cmd.Parameters.AddWithValue("@LicenseNumber", LicenseNumber)
           retval = dm.executeReader(cmd, dr)
           Return retval
       End Function

ثانيا في كلاس  Business Layer 

كود :

Public Function Search_Licenses_By_Number(ByVal LicenseNumber As Integer) As String
           p.Search_Licenses_By_Number(dr, LicenseNumber)
           Return p.Search_Licenses_By_Number(dr, LicenseNumber)
       End Function

ثالثا كود زر البحث : 

كود :

Dim retval As String = p.Search_Licenses_By_Number(txtLicensesNumber.Text)
       cmd.Parameters("@CentralRegistryNumber").Value = CentralRegistryNumber.Text
       cmd.Parameters("@LicenseNameArabic").Value = txtLicensesNameArabic.Text
       cmd.Parameters("@LicenseNameEnglish").Value = txtLicensesNameEnglish.Text
       cmd.Parameters("@LegalForm").Value = LegalForm.Text
       cmd.Parameters("@ExpiryDate").Value = ExpiryDate.Value
       cmd.Parameters("@LicenseOwner").Value = LicenseOwner.Text
       cmd.Parameters("@LicenseOwnerNationality").Value = LicenseOwnerNationality.Text
       cmd.Parameters("@LicenseType").Value = txtLicensesType.Text
       cmd.Parameters("@LicenseActivities").Value = LicenseActivities.Text
       cmd.Parameters("@LicenseAddress").Value = txtLicensesAddress.Text
       cmd.Parameters("@Phone").Value = LicensePhone.Text
       cmd.Parameters("@Fax").Value = LicenseFax.Text
       cmd.Parameters("@Email").Value = LicenseEmail.Text
       cmd.Parameters("@LicenseStatus").Value = LicStatus.Text

الخطأ يظهر في هذا السطر : 

كود :

       cmd.Parameters("@CentralRegistryNumber").Value = CentralRegistryNumber.Text

جملة الخطأ هي : 
An SqlParameter with ParameterName '@CentralRegistryNumber' is not contained by this SqlParameterCollection.


وشكرا

[khalid475]

هل يوجد حــل ؟؟