New - Learning By Code Examples - Need Guidance

Hi





I'm learning by going through the tutorials and such and modifying the code to try and learn how to do more and different things.





I have a MSDE Database, and I'm building a query from the WebMatrix Code Builder.





I can get a Select and Where to work on a "Category" colum as String; to return from a text box control (where I enter the name) and on button click.





What I would like to learn how to do and am having trouble is do a select Where "Category" (string) and "Status"(Int) are the same.





I have two Seperate Textboxes after i make the Where / And Query, but I'm not sure i have the button click code right.





I have included the code below - Sorry if this is so basic ;-) - The Sub_Button1 Click is at the end.








Function ShowRecords(ByVal category As String, ByVal status As Integer) As System.Data.DataSet


Dim connectionString As String = "server='(local)'; trusted_connection=true; database='SalesContacts'"


Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionString)





Dim queryString As String = "SELECT [Contact].* FROM [Contact] WHERE (([Contact].[Category] = @Category) AND ("& _


"[Contact].[Status] = @Status))"


Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand


dbCommand.CommandText = queryString


dbCommand.Connection = dbConnection





Dim dbParam_category As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter


dbParam_category.ParameterName = "@Category"


dbParam_category.Value = category


dbParam_category.DbType = System.Data.DbType.String


dbCommand.Parameters.Add(dbParam_category)


Dim dbParam_status As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter


dbParam_status.ParameterName = "@Status"


dbParam_status.Value = status


dbParam_status.DbType = System.Data.DbType.Int32


dbCommand.Parameters.Add(dbParam_status)





Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter


dataAdapter.SelectCommand = dbCommand


Dim dataSet As System.Data.DataSet = New System.Data.DataSet


dataAdapter.Fill(dataSet)





Return dataSet


End Function





Sub Button1_Click(sender As Object, e As EventArgs)


DataGrid1.DataSource = ShowRecords(CStr(TextBox1.Text)&(CInt(TextBox2.Text)))


DataGrid1.DataBind()


End Sub