邪恶八进制信息安全团队技术讨论组's Archiver

EvilOctal 2005-7-30 22:12

[转载]整理了一下在ASP.NET中关于数据库的一些操作

文章作者:Em_^HuangZi^

由于我一直都是使用Access的数据库,所以整理的操作都是针对Access的!

1,创建数据库连接
[code]<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.oledb" %>
<%
Dim myConnection As oledbConnection
myconnection = New oledbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
Source=c:\data.mdb" )
myConnection.Open()
%>[/code]

2.添加记录
[code]<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.oledb" %>
<%
Dim myConnection As oledbConnection
Dim myConnection As oledbCommand
myconnection = New oledbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
Source=c:\data.mdb" )
myConnection.Open()
myCommand = New oledbCommand( "Insert INTO Authors ( Authors ) Values
( &#39;Simpson&#39; )",myConnection )
mycommand.ExecuteNonQuery()
myConnection.close()
%>[/code]

3.删除记录
[code]<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.oledb" %>
<%
Dim myConnection As oledbConnection
Dim myConnection As oledbCommand
myconnection = New oledbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
Source=c:\data.mdb" )
myConnection.Open()
myCommand = New oledbCommand( "DELETE FROM Authors WHERE Author = &#39;Simpson&#39;",
myConnection )
mycommand.ExecuteNonQuery()
myConnection.close()
%>[/code]

4.更新记录
[code]<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.oledb" %>
<%
Dim myConnection As oledbConnection
Dim myConnection As oledbCommand
myconnection = New oledbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
Source=c:\data.mdb" )
myConnection.Open()
myCommand = New oledbCommand( "UPDATE Authors SET Author=&#39;Bennett&#39; WHERE
Author = &#39;Simpson&#39;", myConnection )
mycommand.ExecuteNonQuery()
myConnection.close()
%>[/code]

5.数据库查询
[code]<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.oledb" %>
<%
Dim myConnection As oledbConnection
Dim myConnection As oledbCommand
myconnection = New oledbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA
Source=c:\data.mdb" )
myConnection.Open()
myCommand = New oleDbCommand("Insert INTO Authors ( FirstName, LastName ) Values
( @FirstName, @Lastname )", myConnection)
myCommand.Parameters.ADD( New oleDbParameter( "@FirstName",oleDbType.Varchar, 30 ))
myCommand.Parameters( "@FirstName" ).Value = FistName
myCommand.Parameters.ADD( New oleDbParameter( "@LastName",oleDbType.Varchar, 30 ))
myCommand.Parameters( "@LastName" ).Value = LaststName
mycommand.ExecuteNonQuery()
myconnection.Close()
&>[/code]
暂时就这么点了,一些储存过程就是关于SQL的,正在研究当中......

zhengyan 2005-8-1 16:03

不错!适合初学者!
好像还能这样:
-------------------
Dim a As oledbConnection
Dim b As string
b="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" &server.mappath("aaa.mdb")  
a=new oledbConnection(b)
a.open()
下面是command的查询语句!   用server对象的mappath方法获得数据库路径!
------------------------------

页: [1]
© 1999-2008 EvilOctal Security Team