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

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

VB.NET & System.Data.OleDb - ExecuteScalar() - How to learn System.Data.OleDb namespace is the .NET Framework Data Provider for OLE DB 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 (Microsoft Access (*.mdb) Database)

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

Example

ExecuteScalar.aspx

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ 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.OleDb.OleDbConnection
Dim objCmd As System.Data.OleDb.OleDbCommand
Dim strConnString,strSQL As String
Dim myScalar As Object

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
objConn = New System.Data.OleDb.OleDbConnection(strConnString)
objConn.Open()

strSQL = "SELECT MAX(Used) FROM customer"

objCmd = New System.Data.OleDb.OleDbCommand()
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.