document.write('Imports System
');
document.write('Imports System.Data
');
document.write('Imports System.Data.SqlClient
');
document.write('
');
document.write('Public Class Commands
');
document.write('
');
document.write(' Public Function GetCustomer(ByVal connection As SqlConnection, _
');
document.write(' ByVal customerId As Integer) As SqlCommand
');
document.write('
');
document.write(' Dim command As SqlCommand = New SqlCommand(connection)
');
document.write('
');
document.write(' command.CommandText = "GetCustomer"
');
document.write(' command.CommandType = CommandType.StoredProcedure
');
document.write('
');
document.write(' command.Parameters.Add("@CustomerID", SqlDbType.Int)
');
document.write(' command.Parameters("@CustomerID") = customerId
');
document.write('
');
document.write(' Return command
');
document.write('
');
document.write(' End Function
');
document.write('
');
document.write('End Class');