------------------c#源程序---------------- <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SQL" %><html> <script language="C#" runat="server"> protected void Page_Load(Object Src, EventArgs E) { SQLConnection myConnection = new SQLConnection("server=localhost;uid=sa;pwd=;database=pubs"); SQLDataSetCommand myCommand = new SQLDataSetCommand("select * from Authors", myConnection); DataSet ds = new DataSet(); myCommand.FillDataSet(ds, "Authors"); MyDataGrid.DataSource=ds.Tables["Authors"].DefaultView; MyDataGrid.DataBind(); } </script> <body> <h3><font face="Verdana">Simple Select to a DataGrid Control</font></h3> <ASP:DataGrid id="MyDataGrid" runat="server" Width="700" BackColor="#ccccff" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" MaintainState="false" /> </body> </html> ------------#VB源程序--------------- <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SQL" %> <html> <script language="VB" runat="server"> Sub Page_Load(Src As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SQLConnection Dim MyCommand As SQLDataSetCommand MyConnection = New SQLConnection("server=localhost;uid=sa;pwd=;database=pubs") MyCommand = New SQLDataSetCommand("select * from Authors", MyConnection) DS = new DataSet() MyCommand.FillDataSet(ds, "Authors") MyDataGrid.DataSource=ds.Tables("Authors").DefaultView MyDataGrid.DataBind() End Sub </script> <body> <h3><font face="Verdana">Simple Select to a DataGrid Control</font></h3> <ASP:DataGrid id="MyDataGrid" runat="server" Width="700" BackColor="#ccccff" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" MaintainState="false" /> </body> </html> (出处:不详 ) 
|