Viewing source for Recipe1307vb.aspx
<%@ Page Language="vb" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script language="vb" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim PubsConnection As SqlConnection
Dim PubsAdapter As SqlDataAdapter
Dim PubsDataSet As DataSet
PubsConnection = New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
PubsAdapter = New SqlDataAdapter("select * from Publishers", PubsConnection)
PubsDataSet = New DataSet()
Try
PubsConnection.Open()
PubsAdapter.Fill(PubsDataSet, "Publishers")
PublisherDataGrid.DataSource = PubsDataSet
PublisherDataGrid.DataMember = "Publishers"
PublisherDataGrid.DataBind()
Catch PubsException As SqlException
PubsExceptionLabel.Text = PubsException.Message
Finally
PubsConnection.Close()
End Try
End Sub
</script>
<html>
<head>
<title>DataBinding to a DataGrid</title>
</head>
<body>
<asp:DataGrid id="PublisherDataGrid" EnableViewState="false" runat="server" CellSpacing="1" GridLines="None" CellPadding="3" BackColor="White" ForeColor="Black" Font-Size="X-Small" Font-Names="Verdana" HeaderStyle-BackColor="Black" HeaderStyle-ForeColor="White" HeaderStyle-Font-Bold="True" AlternatingItemStyle-BackColor="LightSteelBlue" ItemStyle-BackColor="#DEDFDE" />
<asp:Label id="PubsExceptionLabel" EnableViewState="false" runat="server" />
</body>
</html>