component.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 21 行

<%@ Import Namespace="Component" %> 
<%@ Import Namespace="System.Data" %> 
<%@ Import Namespace="System.Data.SqlClient" %>

<Script language="VB" runat="server">
  Public Sub Page_Load()
    Dim c As New Simple()

    Dim d As New DataSet()
    d = c.LoadDataSet()

    datagrid1.DataSource = d.Tables("products").DefaultView
    datagrid1.DataBind()
  End Sub
</Script>

<form runat="server">
  <font size="6">
    <asp:DataGrid runat="server" id="datagrid1"/>
  </font>
</form>