OleDbDataAdapter

<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<Script Language=VB Runat=Server>
   Sub Page_Load(Sender As Object, e As EventArgs)
      Dim dtConn As OleDbConnection
      Dim dtCmd As OleDbDataAdapter
      Dim dtSet As DataSet
      Dim sSQL As String
      Dim dv,dv2 As DataView
      sSQL = "Select * From 学生成绩表;"

      dtConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Sample.mdb"))

      dtCmd = New OleDbDataAdapter(sSql, dtConn)

   
      dtSet = New DataSet
      dtCmd.Fill(dtSet)
      dv=New DataView(dtSet.Tables(0))
      dv.RowFilter="数学>=90"
      dv2=New DataView(dtSet.Tables(0))
      dv2.RowFilter="数学<90"
      myDataGrid.DataSource=dv
      myDataGrid.DataBind()
      my2DataGrid.DataSource=dv2
      my2DataGrid.DataBind()
    ENd Sub
    
    
</Script>
<body>

    <h3><font face="Verdana">使用DataView自定义显示的数据</font></h3>

    <form runat=server>
     <h3><font face="Verdana">数学成绩大于等于90的学生信息</font></h3>


      <ASP:DataGrid id="myDataGrid" runat="server"
        BorderColor="black"
        BorderWidth="1"
        GridLines="Both"
        CellPadding="3"
        CellSpacing="0"
        Font-Name="Verdana"
        Font-Size="8pt"
        HeaderStyle-BackColor="#aaaadd"
      />
 <h3><font face="Verdana">数学成绩小于等于90的学生信息</font></h3>

      <ASP:DataGrid id="my2DataGrid" runat="server"
        BorderColor="black"
        BorderWidth="1"
        GridLines="Both"
        CellPadding="3"
        CellSpacing="0"
        Font-Name="Verdana"
        Font-Size="8pt"
        HeaderStyle-BackColor="#aaaadd"
      />

  </form>


</body>
</html>

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值