文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
ASP.NET编程中url编码的转换
Asp.net把UTF-8编码转换为GB2312编码
如何用vb.net获取网页源代码2
如何用vb.net获取网页源代码
VB.Net中关于数组赋值
Imports 语句
Imports 语句分析
VB.NET入门--Imports 语句
asp.net连接Access数据库
Asp.net如何连接Access数据库
ASP.NET技巧:access下的分页方案
ASP.net的ACCESS数据分页方案
ASP.NET与ACCESS结合建设网站的经验总..
编译asp.net文件为dll文件
ASP.NET的错误处理机制
ASP.NET 2.0编程小技巧两则
ASP.NET 2.0发送电子邮件全面剖析之二
ASP.NET 2.0中发送电子邮件剖析之一
如何充分利用ASP.NET 2.0预编译
如何改变asp.net项目名称
轻松加密ASP.NET 2.0 Web程序配置信息
Visual Studio.NET常见问题解答
ASP.Net中将图片数据保存到XML文档
ASP.NET中随机数的产生
提高ASP.Net应用程序性能的十大方法
ASP.NET中利用cookies保持客户端信息
ASP.NET热点问题解答14个
用ASP.NET加密Cookie数据(2)
用ASP.NET加密Cookie数据(1)
ASP.NET中在线用户统计


技术教程 -> ASP.NET教程 ->  
asp.net连接Access数据库
来源:转载   人气:1545   录入时间:2007-11-8
    <%@ 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 )
   myCommand.ExecuteNonQuery()
   la3.text="Record Updated!"
   
   
   
   @#4 删除数据(access)
   myCommand = New OleDbCommand( "DELETE FROM Authors WHERE Authors = @#David@#", myConnection )
   myCommand.ExecuteNonQuery()
   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>
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987