爱学记
asp.net web连接数据库 asp.net连接Access数据库
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)
连接数据库 dim dbname as string dbname=server mappath( authors mdb ) myConnection = New OleDbConnection( PROVIDER=Microsoft Jet OLEDB ;DATA Source= &dbname ) myConnection Open() la text= Connection Opened!
添加记录 myCommand = New OleDbCommand( Insert INTO Authors(Authors country) Values( Simson usa ) myConnection ) myCommand ExecuteNonQuery() la text= New Record Inserted!
更新数据(Access) myCommand = New OleDbCommand( UPDATE Authors SET Authors= Bennett WHERE Authors = Simson myConnection ) myCommand ExecuteNonQuery() la text= Record Updated!
删除数据（access） myCommand = New OleDbCommand( DELETE FROM Authors WHERE Authors = David myConnection ) myCommand ExecuteNonQuery() la text= Record Deleted!
使用DateGrid显示数据 myCommand = New OleDbCommand( select * FROM Authors myConnection ) MyDataGrid DataSource=myCommand Executereader() MyDataGrid DataBind()
end sub </script> <> <body> <asp:label id= la runat= server /><br> <asp:label id= la runat= server /><br> <asp:label id= la runat= server /><br> <asp:label id= la runat= server /><br> <ASP:DataGrid id= MyDataGrid runat= server BorderColor= black BorderWidth= GridLines= Both CellPadding= CellSpacing= Font Name= Verdana Font Size= pt HeaderStyle BackColor= #aaaadd AlternatingItemStyle BackColor= #eeeeee > </asp:DataGrid>
lishixinzhi/Article/program/net/201311/15614
微信收款码
支付宝收款码