您的位置：首页 > 编程语言 > ASP

ASP.NET操作Access数据库

2008-06-24 16:15 363 查看

<%@ 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()

'2.添加记录

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

myCommand.ExecuteNonQuery()

'3 更新数据(Access)

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

myCommand.ExecuteNonQuery()

'4 删除数据（access）

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

myCommand.ExecuteNonQuery()

'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>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航