ASP.NET

<br />
Dim NewDataSet AS Dataset MadData.Cusomer_Lookup(Parameters here)

Public Class MadData<br />
    'get application settings<br />
<br />
<br />
<br />
<br />
    Public connectionString As String = ConfigurationManager.ConnectionStrings("MADConnectionString").ConnectionString<br />
<br />
    Public Function Customer_Lookup(ByVal CustomerType As Integer, ByVal CustomerForename As String, ByVal CustomerSurname As String, ByVal LimitedTradingName As String, ByVal NonTradingName As String, ByVal AddressMobile As String, ByVal Records As Integer, ByVal Query As String) As DataSet<br />
<br />
        'get the entity name to use for the DataSet table<br />
        Dim dbConnection As New SqlConnection(connectionString)<br />
        Dim dbDataSet As New DataSet<br />
<br />
        Try<br />
            'Create Command object for sp<br />
            Dim dbCommand As SqlCommand = New SqlCommand("Customer_Lookup", dbConnection)<br />
            dbCommand.CommandType = CommandType.StoredProcedure<br />
<br />
            'input parameter variables - CustomerType<br />
            Dim dbParameter As SqlParameter = dbCommand.Parameters.Add("@CustomerType", SqlDbType.Int)<br />
            dbParameter.Direction = ParameterDirection.Input<br />
            dbParameter.Value = CustomerType<br />
<br />
            'input parameter variables - CustomerForename<br />
            Dim dbParameter1 As SqlParameter = dbCommand.Parameters.Add("@CustomerForename", SqlDbType.VarChar)<br />
            dbParameter1.Direction = ParameterDirection.Input<br />
            dbParameter1.Value = CustomerForename<br />
<br />
            'input parameter variables - CustomerSurname<br />
            Dim dbParameter2 As SqlParameter = dbCommand.Parameters.Add("@CustomerSurname", SqlDbType.VarChar)<br />
            dbParameter2.Direction = ParameterDirection.Input<br />
            dbParameter2.Value = CustomerSurname<br />
<br />
            'input parameter variables - LimitedTradingName<br />
            Dim dbParameter3 As SqlParameter = dbCommand.Parameters.Add("@LimitedTradingName", SqlDbType.VarChar)<br />
            dbParameter3.Direction = ParameterDirection.Input<br />
            dbParameter3.Value = LimitedTradingName<br />
<br />
            'input parameter variables - NonTradingName<br />
            Dim dbParameter4 As SqlParameter = dbCommand.Parameters.Add("@NonTradingName", SqlDbType.VarChar)<br />
            dbParameter4.Direction = ParameterDirection.Input<br />
            dbParameter4.Value = NonTradingName<br />
<br />
            'input parameter variables - AddressMobile<br />
            Dim dbParameter5 As SqlParameter = dbCommand.Parameters.Add("@AddressMobile", SqlDbType.VarChar)<br />
            dbParameter5.Direction = ParameterDirection.Input<br />
            dbParameter5.Value = AddressMobile<br />
<br />
            'input parameter variables - Records<br />
            Dim dbParameter6 As SqlParameter = dbCommand.Parameters.Add("@Records", SqlDbType.Int)<br />
            dbParameter6.Direction = ParameterDirection.Input<br />
            dbParameter6.Value = Records<br />
<br />
            'input parameter variables - Query<br />
            Dim dbParameter7 As SqlParameter = dbCommand.Parameters.Add("@Query", SqlDbType.VarChar)<br />
            dbParameter7.Direction = ParameterDirection.Input<br />
            dbParameter7.Value = Query & "%"<br />
<br />
            'open the Connection; run the sp; transform to a DataSet<br />
            Dim dbDataAdapter As SqlDataAdapter = New SqlDataAdapter(dbCommand)<br />
            dbDataAdapter.Fill(dbDataSet)<br />
<br />
        Catch ex As System.Exception<br />
<br />
            Throw ex<br />
<br />
<br />
        Finally<br />
            'tidy up<br />
            dbConnection.Close()<br />
            dbConnection.Dispose()<br />
<br />
        End Try<br />
<br />
        Return dbDataSet<br />
<br />
    End Function<br />
<br />
End Class