天天看點

asp.net連接配接Access資料庫

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

    <%@ Import NameSpace="System.Data.OleDb" %>

    <script laguage="VB" runat="server">

    Dim myConnection As OleDbConnection

    Dim myCommand As OleDbCommand

    sub page_load(sender as Object,e as EventArgs)

    '1.連接配接資料庫

    dim dbname as string

    dbname=server.mappath("authors.mdb")

    myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="&dbname )

    myConnection.Open()

    la1.text="Connection Opened!"

    '2.添加記錄

    myCommand = New OleDbCommand( "Insert INTO Authors(Authors,country) Values('Simson','usa')", myConnection )

    myCommand.ExecuteNonQuery()

    la2.text="New Record Inserted!"

    '3 更新資料(Access)

    myCommand = New OleDbCommand( "UPDATE Authors SET Authors='Bennett' WHERE Authors = 'Simson'", myConnection )

    la3.text="Record Updated!"

    '4 删除資料(access)

    myCommand = New OleDbCommand( "DELETE FROM Authors WHERE Authors = 'David'", myConnection )

    la4.text="Record Deleted!"

    '5 使用DateGrid顯示資料

    myCommand = New OleDbCommand( "select * FROM Authors", myConnection )

    MyDataGrid.DataSource=myCommand.Executereader()

    MyDataGrid.DataBind()

    end sub

    </script>

    <html>

    <body>

    <asp:label id="la1" runat="server" /><br>

    <asp:label id="la2" runat="server" /><br>

    <asp:label id="la3" runat="server" /><br>

    <asp:label id="la4" runat="server" /><br>

    <ASP:DataGrid id="MyDataGrid" runat="server"

    BorderColor="black"

    BorderWidth="1"

    GridLines="Both"

    CellPadding="3"

    CellSpacing="0"

    Font-Name="Verdana"

    Font-Size="10pt"

    HeaderStyle-BackColor="#aaaadd"

    AlternatingItemStyle-BackColor="#eeeeee"

    >

    </asp:DataGrid>

    </body>

    </html>