简单的ASP.net查询数据库脚本

'关于分页 只有DATASET可以分页

<datagrid 带有参数的Insert

<Columns>

    <asp:BoundColumn DataField="au_id" HeaderText="au_id"></asp:BoundColumn>

        <asp:TemplateColumn HeaderText="Delete">

        <ItemStyle horizontalalign="Center"></ItemStyle>

            <ItemTemplate>

                <asp:CheckBox runat="server" ID="del" />

        </ItemTemplate>

    </asp:TemplateColumn>

</Columns>

--------------------------------------------------------------------------------

<%@ Page Language="vb" Debug="true" %>

<%@ import Namespace =Namespace="System.Data" %>

<%@ import Namespace =Namespace="System.Data.Sqlclient" %>

--------------------------------------------------------------------------------

Sub Dr_Query()sub Dr_Query( sqlstr as string)

        dim myconn as sqlconnection=new sqlconnection("server=localhost;uid=sa;pwd=;database=jason")

        dim mycomm as sqlcommand=new sqlcommand(sqlstr, myconn)

        dim dr as sqldatareader

        myconn.open()

        dr=mycomm.ExecuteReader()

        mydatagrid.datasource=dr

        mydatagrid.databind()

        myconn.close()

end sub

--------------------------------------------------------------------------------

Sub Non_Query()sub Non_Query( sqlstr as string)

    Dim conn as sqlconnection=new sqlconnection("server=localhost;uid=sa;pwd=123456;database=pub")

    Dim CMD As SqlCommand= new SqlCommand(sqlstr,conn)

    CMD.Connection.Open()

    CMD.ExecuteNonQuery()

    CMD.Connection.Close()

end sub

--------------------------------------------------------------------------------

Sub Ds_Query()sub Ds_Query( sqlstr as string)

    dim myconnection as sqlconnection=new sqlconnection("server=localhost;uid=sa;pwd=;database=jason")

    Dim adapter As New SqlDataAdapter()

    Dim DS as DataSet =new DataSet()

    adapter.SelectCommand = new SqlCommand(sqlstr, myconnection)

    myconnection.open()

    adapter.fill(ds,"user")

    mydatagrid.datasource=ds

    mydatagrid.databind()

    myconnection.close()

end sub