Progress Monitor for IdealProgrammer.com

Take Swift, Intelligent, Massive, Planned, Loving, Effective (S.I.M.P.L.E.) Action to Transform Self into Ideal

Skip Repetitive Navigational Links

Home

News

Presenters

Contact

Please login

VB.NET ASP.NET Sql Command Select Statement Source Code Example

Description: Illustrates using Sql Command Select Statement in VB.NET ASP.NET.

Example Webform Code:

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="SqlCommandSelect.aspx.vb" Inherits="Database_ADONET_SqlCommandSelect" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html>
<head>
<title>Sql Command Select VB.NET ASP.NET</title>
</head>
<body>
    <form id="Form1" runat="server">
        <p>
            Find: 
            <asp:TextBox id="TextBox1" runat="server" Text="*"></asp:TextBox>
             <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Go"></asp:Button>
        </p>
        <p>
            <asp:DataGrid id="DataGrid1" runat="server" BorderWidth="5px" BorderColor="Black" CellPadding="5">
                <HeaderStyle font-size="X-Small" font-names="Arial Narrow" font-bold="True" forecolor="White" backcolor="Black"></HeaderStyle>
                <AlternatingItemStyle backcolor="Silver"></AlternatingItemStyle>
                <ItemStyle font-size="X-Small" font-names="Arial Narrow"></ItemStyle>
            </asp:DataGrid>
        </p>
    </form>
</body>
</html>

Example Code Behind:

Imports System
Imports System.Data
Imports System.Data.SqlClient
 
Partial Class Database_ADONET_SqlCommandSelect
    Inherits System.Web.UI.Page
 
    Function FindByTitle(ByVal search As String) As System.Data.DataSet
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("Pubs_ConnectionString").ConnectionString)
        Dim queryString As String = ""
 
        If search = "*" Then
            queryString = "SELECT [titles].[title], [titles].[price], [titles].[notes], [titles].[pubdate] F" & _
          "ROM [titles]"
        Else
            queryString = "SELECT [titles].[title], [titles].[price], [titles].[notes], [titles].[pubdate] F" & _
          "ROM [titles] WHERE ([titles].[title] like @search + '%')"
        End If
 
 
 
        Dim sqlCmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, con)
        If search <> "*" Then
            sqlCmd.Parameters.Add("@search", System.Data.SqlDbType.NVarChar).Value = search
        End If
 
 
        Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCmd)
        Dim dataSet As System.Data.DataSet = New System.Data.DataSet
        dataAdapter.Fill(dataSet)
 
        Return dataSet
    End Function
 
    Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim sTitle As String = TextBox1.Text
        DataGrid1.DataSource = FindByTitle(sTitle)
        DataGrid1.DataBind()
    End Sub
 
End Class

Example Connection String:

<connectionStrings>
    <add name="Nortwind_ConnectionString"
      connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI" />
    <add name="Pubs_ConnectionString"
      connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=pubs;Integrated Security=SSPI" />
  </connectionStrings>