出100分向高手求救:ASP.NET language="VB" 分页失败

<%@ Import Namespace="System.Data" %> 
     <%@ Import NameSpace="System.Data.SqlClient" %> 
  <%@ import namespace="System.ComponentModel" %>
  
     <script language="VB" runat="server"> 
      sub page_load(sender as Object,e as EventArgs) 
   Dim myConnection As SqlConnection 
   Dim myCommand As SqlCommand 
   Dim ds as DataSet
   
   dim menukind as string
   
   
   dim sql as string
  
   myConnection = New SqlConnection( "server=aaa;database=pubs;uid=sa;pwd=123") 
   myConnection.Open() 
  
   sql="select menu as menucn ,address from test "
   myCommand = New SqlCommand( sql, myConnection ) 
  
   MyDataGrid.DataSource=myCommand.ExecuteReader() 
   MyDataGrid.DataBind()
  
      end sub 
     </script> 
<html> 
     <body>
  <form runat="server">
          
     <ASP:DataGrid id="MyDataGrid" runat="server" 
  AutoGenerateColumns="false"  
  EnableViewState=""
  ShowHeader=""
  
  HorizontalAlign="center"
     BorderColor="black" 
     BorderWidth="1" 
     CellPadding="3" 
     CellSpacing="0" 
     Font-Name="Verdana" 
     Font-Size="10pt" 
     GridLines="Both" 
     HeaderStyle-BackColor="#aaaadd" 
  AlternatingItemStyle-BackColor="#eeeeee" 
  
  PagerStyle-Mode="Numericpages"           // 以下几行为设置分页的
  AllowCustomPaging="true"
  AllowPaging="true"
  pagesize="2"
     > 
   <Columns>
            <asp:HyperLinkColumn
                 HeaderText="第一行"
     DataNavigateUrlField="address"
                 DataNavigateUrlFormatString="www.{0}"
                 DataTextField="menucn"
                 Target="_blank"/>
         </Columns>
   
   <Columns>
            <asp:HyperLinkColumn
                 HeaderText="第二行"
                 DataTextField="address"/>
         </Columns>
   
     </asp:DataGrid> 
  
  </form>  
     </body> 
     </html> 运行结果:第一行 第二行 
客户资料 www.163.com 
联系人 www.126.com 
1 
正确的应该有2页的,可是以上程序运行后，怎么最后一行只显示1,而没有显示2的?而且点击1也没有连接，应该如何设置呢？

解决方案 »

  1.   

    为什么下面的程序,C#,ACCESS数据库就可以这样分页呢?是不是只有ADOConnection才能这样分页呢?<% @ Page Language="C#" %>
    <% @ Import Namespace="System.Data" %>
    <% @ Import Namespace="System.Data.ADO" %>
    <Script Language="C#" Runat="Server">
    public void Page_Load(Objectsrc,EventArgs e)
    {
    //联结语句
    string MyConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:/test/test.mdb;";
    string strComm = "select * from UserList order by id";//打开一个联结
    ADOConnectionMyConnection = new ADOConnection(MyConnString);//打开两个DataSetCommand
    ADODataSetCommandMyComm = new ADODataSetCommand(strComm,MyConnection);DataSetMyDataSet = new DataSet();//把UserList,BookList表存入DataSet
    MyComm.FillDataSet(MyDataSet,"UserList");DataGrid1.DataSource = MyDataSet.Tables["UserList"].DefaultView;
    DataGrid1.DataBind();}
    </script>
    <html>
    <head>
    <title></title>
    </head>
    <body>
    <form runat="server">
    <ASP:DataGrid id="DataGrid1" runat="server"
    AllowPaging="True"
    PageSize="5"
    PagerStyle-HorizontalAlign="Right"
    BorderColor="black"
    BorderWidth="1"
    GridLines="Both"
    CellPadding="3"
    CellSpacing="0"
    Font-Name="Verdana"
    Font-Size="8pt"
    HeaderStyle-BackColor="#aaaadd"
    AlternatingItemStyle-BackColor="#eeeeee"
    />
    </form>
    </body>
    </html>运行结果:http://www.pconline.com.cn/pcedu/empolder/wz/asp/10111/12521.html 中的图11-4