Public Function GetStaffInfo(ByVal StaffSearch As StaffSearchData) As SqlDataReader Dim conn As SqlConnection = New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ToString) Dim cmd As SqlCommand = New SqlCommand("Sp_GetStaffInfo_New", conn) cmd.CommandType = Data.CommandType.StoredProcedure conn.Open() cmd.Parameters.Add("@StaffId", Data.SqlDbType.NVarChar, 50) cmd.Parameters.Add("@LastName", Data.SqlDbType.NVarChar, 50) cmd.Parameters.Add("@FirstName", Data.SqlDbType.NVarChar, 50) cmd.Parameters.Add("@MiddleName", Data.SqlDbType.NVarChar, 50) cmd.Parameters.Add("@IsActive", Data.SqlDbType.NVarChar, 50) cmd.Parameters.Add("@IsDeleted", Data.SqlDbType.NVarChar, 50) cmd.Parameters.Add("@Practiceid", Data.SqlDbType.NVarChar, 50) cmd.Parameters.Add("@Orderby", Data.SqlDbType.NVarChar, 250) cmd.Parameters.Item("@StaffId").Value = StaffSearch.StaffId cmd.Parameters.Item("@LastName").Value = StaffSearch.LastName cmd.Parameters.Item("@FirstName").Value = StaffSearch.FirstName cmd.Parameters.Item("@MiddleName").Value = StaffSearch.MiddleName cmd.Parameters.Item("@IsActive").Value = StaffSearch.IsActive cmd.Parameters.Item("@IsDeleted").Value = StaffSearch.IsDeleted cmd.Parameters.Item("@Practiceid").Value = StaffSearch.Practiceid cmd.Parameters.Item("@Orderby").Value = StaffSearch.Orderby Dim Rec As SqlDataReader = cmd.ExecuteReader(Data.CommandBehavior.CloseConnection) Return Rec End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)