VB.NET & System.Data.SqlClient - ExecuteScalar()

Author: admin | Posted: 13-06-2010 | Category: VB.NET & System.Data.SqlClient

VB.NET & System.Data.SqlClient - ExecuteScalar() - How to learn Connector/NET ADO.NET component System.Data.SqlClient namespace is the .NET Framework Data Provider for SQL Server data source, Using the ExecuteScalar method for Executes the query, and returns the first column of the first row in the result set returned by the query (SQL Server 2000,2005,2008 Database)

ShotDev Focus:
- VB.NET & System.Data.SqlClient - ExecuteScalar()

Example

ExecuteScalar.aspx

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.SqlClient"%>
<%@ Page Language="VB" %>
<script runat="server">

Sub Page_Load(sender As Object, e As EventArgs)
Dim myValue As Object
myValue = exExecuteScalar()
lblText.Text = myValue.ToString()
End Sub

Function exExecuteScalar() As Object
Dim objConn As System.Data.SqlClient.SqlConnection
Dim objCmd As System.Data.SqlClient.SqlCommand
Dim strConnString,strSQL As String
Dim myScalar As Object

strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
objConn = New System.Data.SqlClient.SqlConnection(strConnString)
objConn.Open()

strSQL = "SELECT MAX(Used) FROM customer"

objCmd = New System.Data.SqlClient.SqlCommand()
With objCmd
.Connection = objConn
.CommandType = CommandType.Text
.CommandText = strSQL
End With

myScalar = objCmd.ExecuteScalar()

objCmd = Nothing
objConn.Close()
objConn.Close()
objConn = Nothing

Return myScalar
End Function

</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label id="lblText" runat="Server"></asp:Label>
</form>
</body>
</html>

Screenshot

.
.
.
Download this script.