Mega Code Archive
OleDBCommand Execute Reader (VB net)
<![CDATA[
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="vb" runat="server">
Sub Page_Load()
dim strConnection as string = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConnection += "Data source=C:\northwind.mdb;"
dim strSQL as string = "Select LastName, City, Country from employees;"
dim objConnection as new OLEDBConnection(strConnection)
dim objCommand as new OLEDBCommand(strSQL,objConnection)
objConnection.Open()
dgEmps.DataSource = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
dgEmps.DataBind()
end sub
</script>
<html>
<body>
<h2>Using ExecuteReader to create a table</h2>
<asp:datagrid id="dgEmps"
runat="server"
CellPadding="3"
Font-Name="arial"
Font-Size="8pt"
HeaderStyle-BackColor="#dcdcdc"
HeaderStyle-ForeColor="blue"
/>
</body>
</html>
]]>