请教使用VB.net开发asp.net中如何使用DATAGRID访问SQL_server数据

占1楼，找段代码看看，几乎就是一样的东西

解决方案 »

  1.   

    <%@ Page Language="vb" Debug=true%>
    <%@ Import Namespace="System.Data" %>
    <%@ Import Namespace="System.Data.SqlClient" %>
    <HTML>
    <HEAD>
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    <script language="VB" runat="server">
    dim pageSi as integer = 3
        Sub Page_Load(Sender As Object, E As EventArgs)         Dim DS As DataSet
            Dim MyConnection As SqlConnection
            Dim MyCommand As SqlDataAdapter

            MyConnection = New SqlConnection("data source=(local);database=oa;uid=niit;pwd=niit")
            MyCommand = New SqlDataAdapter("select * from motif", MyConnection)        DS = new DataSet()
            MyCommand.Fill(ds, "作者")        MyDataGrid.DataSource=ds.Tables("作者").DefaultView
            MyDataGrid.DataBind()
            myconnection.close()
        End Sub
        
    sub PageIndexChanged(sender as Object ,e as DataGridPageChangedEventArgs)
    MyDataGrid.CurrentPageIndex = e.NewPageIndex
    MyDataGrid.DataBind()
    end sub </script>
    <LINK REL="stylesheet" TYPE="text/css" HREF="Sty.css">
    </HEAD>
    <body MS_POSITIONING="GridLayout">
    <form id="form1" method="post" runat="server">
    <table width="777" align="center" border="1">
    <tr>
    <td>&nbsp;</td>
    </tr>
    <tr>
    <td>登录名：<asp:TextBox ID="txtName" Width="120" Runat="server" />&nbsp;&nbsp;&nbsp;密码：<asp:TextBox ID="txtPasswrod" Width="120" Runat="server" TextMode="Password" />
    &nbsp;&nbsp;<asp:Button ID="BtSubmit" Text="&nbsp;提&nbsp;交&nbsp;" Runat="server" />&nbsp;&nbsp;<asp:Button ID="BtReg" Text="&nbsp;注&nbsp;册&nbsp;" Runat="server" />&nbsp;<% response.write("共" & pageSi & "页") %>
    </td>
    </tr>
    <tr>
    <td>&nbsp;</td>
    </tr>
    </table>
    <table width="777" align="center" border="1">
    <tr width="100%">
    <td>
    <ASP:DATAGRID id="MyDataGrid" runat="server" AutoGenerateColumns="False" AllowPaging="True" PageSize="3"
    Width="100%" OnPageIndexChanged="PageIndexChanged" HeaderStyle-BackColor="#ffcc99" HeaderStyle-HorizontalAlign="Center">
    <HeaderStyle HorizontalAlign="Center" BackColor="#FFCC99"></HeaderStyle>
    <PagerStyle NextPageText="下一页" PrevPageText="上一页"></PagerStyle>
    <Columns>
    <asp:TemplateColumn HeaderText="主题">
    <ItemTemplate>
    <a href="list.aspx?pub_id=<%# DataBinder.Eval(Container, "DataItem.vmotifid")%>&pub_Mofit=<%# DataBinder.Eval(Container, "DataItem.vMofit") %>&pub_Author=<%# DataBinder.Eval(Container, "DataItem.vAuthor") %>&pub_Datetime=<%# DataBinder.Eval(Container, "DataItem.dDatetime") %>">
    <%# DataBinder.Eval(Container, "DataItem.vMofit") %>
    </a>
    </ItemTemplate>
    </asp:TemplateColumn>
    <asp:BoundColumn DataField="vAuthor" HeaderText="作者">
    <ItemStyle Width="10%"></ItemStyle>
    </asp:BoundColumn>
    <asp:BoundColumn DataField="iCount" HeaderText="回复">
    <ItemStyle Width="5%"></ItemStyle>
    </asp:BoundColumn>
    <asp:BoundColumn DataField="dDatetime" SortExpression="desc" HeaderText="发布时间">
    <ItemStyle Width="15%"></ItemStyle>
    </asp:BoundColumn>
    <asp:BoundColumn DataField="vRevertAuthor" HeaderText="最后回复">
    <ItemStyle Width="10%"></ItemStyle>
    </asp:BoundColumn>
    </Columns>
    </ASP:DATAGRID>
    </td>
    </tr>
    </table>
    </form>
    </body>
    </HTML>