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

Posted by asp.net videos on Sunday, December 13, 2009 · 1 Comment

Premium .NET Training Video Tutorials

Other Premium Videos Tutorials

Sql Command Select Statement Source Code Example

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

Prerequistes:

Install Visual Web Developer 2008
Install SQL Server Express
Download Northwind Database
Attach Northwind Database to Databases in Sql Express
Attach pubs Database to Databases in Sql Express

Notes:

You can build your own library of syntax examples by using same web site over and over and just add new web forms to it.

Instructions:

Use Visual Web Developer 2008
Create new web site;
- Click File/New Web Site
- Select ASP.NET Website Template
- Select Visual Basic for Language
- name of Web Site could be VBNET_ASPNET_Syntax.
Add New folder named "Database_ADONET"
- Right-click project name in solution explorer;
- add new folder;
- name of folder could be: Database_ADONET
Add Web Form Named SqlCommandSelect to Database_ADONET folder
- Right-click Database_ADONET folder;
- add new item;
- Select Web Form
- Check place code behind in separate file
- Web Form name could be SqlCommandSelect
Click on copy code in code below to copy code into web form SqlCommandSelect.aspx
Click on copy code in second set of code below to copy code into code-behind SqlCommandSelect.aspx.vb
Right-click on SqlCommandSelect.aspx in solution explorer and select view in browser

Step 1: Click on Copy Code to Cut-n-paste code into SqlCommandSelect.aspx

 XML |   copy code | ?  
01 
02 <%@ Page Language="VB" AutoEventWireup="false" CodeFile="SqlCommandSelect.aspx.vb" Inherits="Database_ADONET_SqlCommandSelect" %>
03  
04 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
05  
06 <html>
07 <head>
08 <title>Sql Command Select VB.NET ASP.NET</title>
09 </head>
10 <body>
11     <form id="Form1" runat="server">
12         <p>
13             Find: 
14             <asp:TextBox id="TextBox1" runat="server" Text="*"></asp:TextBox>
15             &nbsp;<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Go"></asp:Button>
16         </p>
17         <p>
18             <asp:DataGrid id="DataGrid1" runat="server" BorderWidth="5px" BorderColor="Black" CellPadding="5">
19                 <HeaderStyle font-size="X-Small" font-names="Arial Narrow" font-bold="True" forecolor="White" backcolor="Black"></HeaderStyle>
20                 <AlternatingItemStyle backcolor="Silver"></AlternatingItemStyle>
21                 <ItemStyle font-size="X-Small" font-names="Arial Narrow"></ItemStyle>
22             </asp:DataGrid>
23         </p>
24     </form>
25 </body>
26 </html>
27

Step 2: Click on Copy Code to Cut-n-paste code into SqlCommandSelect.aspx.vb

 Visual Basic |   copy code | ?  
01 
02 Imports System
03 Imports System.Data
04 Imports System.Data.SqlClient
05  
06 Partial Class Database_ADONET_SqlCommandSelect
07     Inherits System.Web.UI.Page
08  
09     Function FindByTitle(ByVal search As String) As System.Data.DataSet
10         Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("Pubs_ConnectionString").ConnectionString)
11         Dim queryString As String = ""
12  
13         If search = "*" Then
14             queryString = "SELECT [titles].[title], [titles].[price], [titles].[notes], [titles].[pubdate] F" & _
15           "ROM [titles]"
16         Else
17             queryString = "SELECT [titles].[title], [titles].[price], [titles].[notes], [titles].[pubdate] F" & _
18           "ROM [titles] WHERE ([titles].[title] like @search + '%')"
19         End If
20  
21  
22  
23         Dim sqlCmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, con)
24         If search <> "*" Then
25             sqlCmd.Parameters.Add("@search", System.Data.SqlDbType.NVarChar).Value = search
26         End If
27  
28  
29         Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCmd)
30         Dim dataSet As System.Data.DataSet = New System.Data.DataSet
31         dataAdapter.Fill(dataSet)
32  
33         Return dataSet
34     End Function
35  
36     Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
37         Dim sTitle As String = TextBox1.Text
38         DataGrid1.DataSource = FindByTitle(sTitle)
39         DataGrid1.DataBind()
40     End Sub
41  
42 End Class
43  
44

Step 3: Click on Copy Code to Cut-n-paste code into web.config right after the appSettings section

 XML |   copy code | ?  
1 
2 <connectionStrings>
3     <add name="Nortwind_ConnectionString"
4       connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI" />
5     <add name="Pubs_ConnectionString"
6       connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=pubs;Integrated Security=SSPI" />
7   </connectionStrings>
8

C# ASP.NET Sql Command Select Statement Source Code Example C# ASP.NET Sql Command Select Statement Source Code Example using...
VB.NET ASP.NET Sql Command Insert Statement Source Code Example VB.NET ASP.NET Sql Command Insert Statement Source Code Example...
VB.NET ASP.NET Sql Command Delete Statement Source Code Example VB.NET ASP.NET Sql Command Delete Statement Source Code Example...
VB.NET ASP.NET Sql Command Update Statement Source Code Example VB.NET ASP.NET Sql Command Update Statement Source Code Example...
C# ASP.NET Sql Command Delete Statement Source Code Example C# ASP.NET Sql Command Delete Statement Source Code Example...

Related posts brought to you by Yet Another Related Posts Plugin.

Filed under Code Samples · Tagged with asp.net, example, Select Statement, Source code, Sql Command, vb.net

Comments

One Response to “VB.NET ASP.NET Sql Command Select Statement Source Code Example”

Trackbacks

Check out what others are saying about this post...

12/14/2009 Update « Go Code says:
December 13, 2009 at 4:21 pm
[...] VB.NET ASP.NET Sql Command Select Statement Source Code Example … [...]

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

WP-Hashcash by Elliott Back protects you from spam. Please enable javascript and reload this page to add your comment.

.NET	.NET Programming (C# or VB) (Web or Desktop)
Key Supporting Languages	HTML	CSS	JavaScript	SQL Server

AJAX	ASP	Blogging	ColdFusion	mySQL
Perl	PHP	Ruby	Web Design	Web Dev

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

Sql Command Select Statement Source Code Example

Comments

Trackbacks

Speak Your Mind

Sponsored Links

Categories

Archives

01
02	<%@ Page Language="VB" AutoEventWireup="false" CodeFile="SqlCommandSelect.aspx.vb" Inherits="Database_ADONET_SqlCommandSelect" %>
03
04	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
05
06	<html>
07	<head>
08	<title>Sql Command Select VB.NET ASP.NET</title>
09	</head>
10	<body>
11	<form id="Form1" runat="server">
12	<p>
13	Find:
14	<asp:TextBox id="TextBox1" runat="server" Text="*"></asp:TextBox>
15	<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Go"></asp:Button>
16	</p>
17	<p>
18	<asp:DataGrid id="DataGrid1" runat="server" BorderWidth="5px" BorderColor="Black" CellPadding="5">
19	<HeaderStyle font-size="X-Small" font-names="Arial Narrow" font-bold="True" forecolor="White" backcolor="Black"></HeaderStyle>
20	<AlternatingItemStyle backcolor="Silver"></AlternatingItemStyle>
21	<ItemStyle font-size="X-Small" font-names="Arial Narrow"></ItemStyle>
22	</asp:DataGrid>
23	</p>
24	</form>
25	</body>
26	</html>
27

01
02	Imports System
03	Imports System.Data
04	Imports System.Data.SqlClient
05
06	Partial Class Database_ADONET_SqlCommandSelect
07	Inherits System.Web.UI.Page
08
09	Function FindByTitle(ByVal search As String) As System.Data.DataSet
10	Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("Pubs_ConnectionString").ConnectionString)
11	Dim queryString As String = ""
12
13	If search = "*" Then
14	queryString = "SELECT [titles].[title], [titles].[price], [titles].[notes], [titles].[pubdate] F" & _
15	"ROM [titles]"
16	Else
17	queryString = "SELECT [titles].[title], [titles].[price], [titles].[notes], [titles].[pubdate] F" & _
18	"ROM [titles] WHERE ([titles].[title] like @search + '%')"
19	End If
20
21
22
23	Dim sqlCmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, con)
24	If search <> "*" Then
25	sqlCmd.Parameters.Add("@search", System.Data.SqlDbType.NVarChar).Value = search
26	End If
27
28
29	Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCmd)
30	Dim dataSet As System.Data.DataSet = New System.Data.DataSet
31	dataAdapter.Fill(dataSet)
32
33	Return dataSet
34	End Function
35
36	Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
37	Dim sTitle As String = TextBox1.Text
38	DataGrid1.DataSource = FindByTitle(sTitle)
39	DataGrid1.DataBind()
40	End Sub
41
42	End Class
43
44

1
2	<connectionStrings>
3	<add name="Nortwind_ConnectionString"
4	connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI" />
5	<add name="Pubs_ConnectionString"
6	connectionString="Server=(local)\SQLEXPRESS;Initial Catalog=pubs;Integrated Security=SSPI" />
7	</connectionStrings>
8