.NET (Core and Framework)

ALTER PROCEDURE [dbo].[Search_Licenses_By_Number]
@LicenseNumber int,
@CentralRegistryNumber int,
@LicenseNameArabic nvarchar(MAX),
@LicenseNameEnglish nvarchar(MAX),
@LegalForm nvarchar(MAX),
@ExpiryDate Date,
@LicenseOwner nvarchar(MAX),
@LicenseOwnerNationality nvarchar(MAX),
@LicenseType nvarchar(50),
@LicenseActivities nvarchar(MAX),
@LicenseAddress nvarchar(MAX),
@Phone nvarchar(20),
@Fax nvarchar(20),
@Email nvarchar(MAX),
@LicenseStatus nvarchar(20)
as

begin

Select LicenseNumber, CentralRegistryNumber, LicenseNameArabic, LicenseNameEnglish, LegalForm, ExpiryDate, LicenseOwner, LicenseOwnerNationality, LicenseType, LicenseActivities, LicenseAddress, Phone, Fax, Email, LicenseStatus from LicensesTbl 
Where LicenseNumber = @LicenseNumber
End

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

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

Dim retval As Integer = p.Search_Licenses_By_Number(txtLicensesNumber.Text)

khalid4775 wrote:

i have this code in data layer

VB

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

Friend Function Search_Licenses_By_Number(ByRef cmd As SqlCommand, ByRef dr As SqlDataReader, ByVal LicenseNumber As Integer)
                Dim retval As Integer
                cmd = New SqlCommand("Search_Licenses_By_Number")
                cmd.Parameters.Add("@LicenseNumber", LicenseNumber, SqlDbType.Int)
                cmd.Parameters.Add("@CentralRegistryNumber", SqlDbType.Int)
                cmd.Parameters.Add("@LicenseNameArabic", SqlDbType.NVarChar)
                cmd.Parameters.Add("@LicenseNameEnglish", SqlDbType.NVarChar)
                cmd.Parameters.Add("@LegalForm", SqlDbType.NVarChar)
                cmd.Parameters.Add("@ExpiryDate", SqlDbType.Date)
                cmd.Parameters.Add("@LicenseOwner", SqlDbType.NVarChar)
                cmd.Parameters.Add("@LicenseOwnerNationality", SqlDbType.NVarChar)
                cmd.Parameters.Add("@LicenseType", SqlDbType.NVarChar)
                cmd.Parameters.Add("@LicenseActivities", SqlDbType.NVarChar)
                cmd.Parameters.Add("@LicenseAddress", SqlDbType.NVarChar)
                cmd.Parameters.Add("@Phone", SqlDbType.NVarChar)
                cmd.Parameters.Add("@Fax", SqlDbType.NVarChar)
                cmd.Parameters.Add("@Email", SqlDbType.NVarChar)
                cmd.Parameters.Add("@LicenseStatus", SqlDbType.NVarChar)
                retval = dm.executeReader(cmd, dr)
                Return retval
            End Function

Member 12809412 wrote:

I Don't know much about SKYPE4COMLib

The Term Papers wrote:

Looking for friends here.