<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Html>
<Body BgColor="White">
<H3>使用 ADO+, 结合 DataGrid -- ADO+.aspx <HR></H3>
<asp: DataGrid HeaderStyle-BackColor="Cyan" id="Grid1" runat="server"/>
</Body>
</Html>
<script Language="VB" runat="server">
Sub Page_Load(Src As Object, e As EventArgs)
Grid1.DataSource = CreateDataView( "pubs", "Authors" )
Grid1.DataBind()
End Sub
Function CreateDataView( Db As String, Table As String ) As DataView
Dim ConnStr, SQL As String
ConnStr = "server=hnby-dom;uid=sa;pwd=;database="&Db
Dim Conn As SqlConnection
Dim Cmd As SqlDataAdapter
Conn = new SqlConnection(ConnStr)
Cmd = New SqlDataAdapter( "Select * from " & Table, ConnStr )
Dim ds As DataSet = new DataSet()
Cmd.Fill(ds, Table)
CreateDataView = new DataView(ds.Tables(Table))
End Function
</script>
和使用 ADO+(一)不同,这里用到一个函数CreateDataView,你可以单独吧这个函数做到一个包含页面里。
------------------------------------------------
以上在win2000server,win2000professional,sql6.0,Microsoft .NET Framework SDK beta2测试通过。
实例:http://202.102.247.235/aspx/ ADO2.aspx
seover="window.status='正文--使用
ADO+(二),
设定
DataGrid 的
外观';return true">
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<!-- <%@ Page Trace="True" %> -->
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Html>
<Body BgColor="White">
<H3>使用 ADO+, 结合 DataGrid -- ADO+.aspx <HR></H3>
<asp: DataGrid HeaderStyle-BackColor="Cyan" id="Grid1" runat="server"/>
</Body>
</Html>
<script Language="VB" runat="server">
Sub Page_Load(Src As Object, e As EventArgs)
Grid1.DataSource = CreateDataView( "pubs", "Authors" )
Grid1.DataBind()
End Sub
Function CreateDataView( Db As String, Table As String ) As DataView
Dim ConnStr, SQL As String
ConnStr = "server=hnby-dom;uid=sa;pwd=;database="&Db
Dim Conn As SqlConnection
Dim Cmd As SqlDataAdapter
Conn = new SqlConnection(ConnStr)
Cmd = New SqlDataAdapter( "Select * from " & Table, ConnStr )
Dim ds As DataSet = new DataSet()
Cmd.Fill(ds, Table)
CreateDataView = new DataView(ds.Tables(Table))
End Function
</script>
和使用 ADO+(一)不同,这里用到一个函数CreateDataView,你可以单独吧这个函数做到一个包含页面里。
------------------------------------------------
以上在win2000server,win2000professional,sql6.0,Microsoft .NET Framework SDK beta2测试通过。
实例:http://202.102.247.235/aspx/ ADO2.aspx
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>