<%@ Page Language="VB" %>
Function FindByTitle(ByVal search As String) As System.Data.DataSet
Dim connectionString As String = "server='(local)\NetSDK'; trusted_connection=true; Database='pubs'"
Dim sqlConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(connectionString)
Dim queryString As String = "SELECT [titles].[title], [titles].[price], [titles].[notes], [titles].[pubdate] F"& _
"ROM [titles] WHERE ([titles].[title] like @search)"
Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
sqlCommand.Parameters.Add("@search", System.Data.SqlDbType.NVarChar).Value = search
Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)
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)
Dim sTitle As String = TextBox1.Text
DataGrid1.DataSource = FindByTitle(sTitle)
DataGrid1.DataBind()
End Sub
Find: