文章作者：Em_^HuangZi^

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

1,创建数据库连接

复制内容到剪贴板

代码:

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

2.添加记录

复制内容到剪贴板

代码:

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

3.删除记录

复制内容到剪贴板

代码:

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

4.更新记录

复制内容到剪贴板

代码:

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

5.数据库查询

复制内容到剪贴板

代码:

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

暂时就这么点了,一些储存过程就是关于SQL的,正在研究当中......

不错！适合初学者！
好像还能这样：
－－－－－－－－－－－－－－－－－－－
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方法获得数据库路径！
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－