منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ عند البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ عند البحث (/showthread.php?tid=18173)

خطأ عند البحث - khalid475 - 27-11-16

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

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

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

في كلاس 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.


وشكرا

RE: خطأ عند البحث - khalid475 - 28-11-16

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