asp.net与access连接的代码

最新推荐文章于 2025-08-19 14:03:46 发布

原创最新推荐文章于 2025-08-19 14:03:46 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp.net #access #button #datagrid #server #数据库

网页制作专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个使用ASP.NET连接Access数据库的例子，演示了如何加载、插入、更新和删除记录。通过具体代码展示了数据库操作的基本流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

连接access的代码：default.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml " >
<head runat="server">
    <title>无标题页</title>
</head>
<body>
    <form id="form1" runat="server">
    <div><center><h3>数据库联系</h3>
        <p>
            <asp:DataGrid ID="DataGrid1" runat="server" BackColor="White" BorderColor="#3366CC"
                BorderStyle="None" BorderWidth="1px" CellPadding="4">
                <FooterStyle BackColor="#99CCCC" ForeColor="#003399" />
                <SelectedItemStyle BackColor="#009999" Font-Bold="True" ForeColor="#CCFF99" />
                <PagerStyle BackColor="#99CCCC" ForeColor="#003399" HorizontalAlign="Left" Mode="NumericPages" />
                <ItemStyle BackColor="White" ForeColor="#003399" />
                <HeaderStyle BackColor="#003399" Font-Bold="True" ForeColor="#CCCCFF" />
            </asp:DataGrid> </p>
    </center>

    </div>
                               
                               
                               
          
        <asp:Label ID="Label1" runat="server"></asp:Label>
          
        <asp:Button ID="Button1" runat="server" Text="插入一条新纪录" /><br />
        <br />
                               
                               
                               
          
        <asp:Label ID="Label2" runat="server"></asp:Label>
           
        <asp:Button ID="Button2" runat="server" Text="更新新纪录" /><br />
                          <br />
                               
                               
                               
          
        <asp:Label ID="Label3" runat="server"></asp:Label>
            
        <asp:Button ID="Button3" runat="server" Text="删除新纪录" />
    </form>
</body>
</html>

default.aspx.vb的代码
Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim conn As New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=D:/数据库/ss.mdb")
        Dim cmd As New Data.OleDb.OleDbCommand("select * from username", conn)
        conn.Open()
        Dim dr As Data.OleDb.OleDbDataReader = cmd.ExecuteReader()
        DataGrid1.DataSource = dr
        DataGrid1.DataBind()
End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn As New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=D:/数据库/ss.mdb")
        Dim cmd As New Data.OleDb.OleDbCommand("insert into username(username,mima)values('张宇','张宇')", conn)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        Label1.Text = "已经添加成功!"
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim conn As New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=D:/数据库/ss.mdb")
        Dim cmd As New Data.OleDb.OleDbCommand("update username set mima='王二' where username='李四'", conn)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        Label2.Text = "已经更新成功!"
    End Sub
    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim conn As New Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=D:/数据库/ss.mdb")
        Dim cmd As New Data.OleDb.OleDbCommand("Delete From username Where mima='zhangsan'", conn)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        Label2.Text = "已经删除成功!"
    End Sub
End Class