CREATE PROCEDURE dbo.sp_GetCustomer @Country nvarchar(10), @PostalCode nvarchar(10) AS BEGIN SELECT * FROM Customers WHERE Country = @Country and PostalCode = @PostalCode END GO <pre> The test program's code: <pre> Dim aSqlParms = New ArrayList aSqlParms.Add(New SqlParameter("@Country", "France")) aSqlParms.Add(New SqlParameter("@PostalCode", "67000")) Stuff.StoredProcExample2("sp_GetCustomer", "Customers", aSqlParms)And the code to call the SP:
Public Sub StoredProcExample2(ByVal sProcName As String, ByVal sTable As String, ByRef aParameters As ArrayList) ' Create a new Connection Dim oConnection As SqlConnection oConnection = New SqlConnection("data source=(local);initial catalog=Northwind; user id=kevin; password=googler1") oConnection.Open() Dim oDataSet = New DataSet Dim oSqlAdapter = New SqlDataAdapter(sProcName, oConnection) oSqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure Dim oParms As New SqlParameter For Each oParms In aParameters oSqlAdapter.SelectCommand.Parameters.Add(oParms) Next Dim iRowCount As Integer iRowCount = oSqlAdapter.Fill(oDataSet, sTable) MsgBox(iRowCount) Dim oDataRow As DataRow Dim sString As String For Each oDataRow In oDataSet.Tables(sTable).Rows sString = sString & oDataRow("CustomerId") & ControlChars.CrLf & _ sString = sString & oDataRow("CompanyName") & ControlChars.CrLf & _ sString = sString & oDataRow("Country") & ControlChars.CrLf & _ sString = sString & oDataRow("PostalCode") MsgBox(sString) sString = "" Next oConnection.Close() End Sub>Kevin,