ASP連接Access數(shù)據(jù)庫的幾種方法

更新時間：2020年09月04日 23:46:38 投稿：mdxy-dxy

學(xué)習(xí)程序很大一部分需要與數(shù)據(jù)庫連接操作，這里簡單的整理下asp連接access的一些代碼，方便需要的朋友

1. 相對與比較老的環(huán)境，建議使用第二個

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION") 
DBPath = Server.MapPath("customer.mdb") 
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath 
SQL="select * from auth where id='" & user_id &"'" 
SET uplist=dbconnection.EXECUTE(SQL)

2.win2003以上的機(jī)器，建議用此方法，效率更高

set dbconnection=Server.CreateObject("ADODB.Connection") 
DBPath = Server.MapPath("customer.mdb") 
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath 
SQL="select * from auth where id='" & user_id &"'" 
SET uplist=dbconnection.EXECUTE(SQL)

DBPath = Server.MapPath("customer.mdb") 
set session("rs")=Server.CreateObject("ADODB.Recordset") 
' rs=Server.CreateObject("ADODB.Recordset") 
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath 
SQL="select * from auth where id='" & user_id &"'" 
session("rs").Open sql,connstr,1,3

4. 建odbc源xxx

set conn=server.createobject("Adodb.connection") 
conn.open "DSN=xxx;UID=;PWD=;Database=customer

5、附上一個經(jīng)常用的sqlserver與access通用的連接數(shù)據(jù)庫代碼

<% 
Const DataBaseType=1 
If DataBaseType=0 then 
DBPath="/jb51/news.asp" 
SqlNowString = "Now()" 
ystr=true 
nstr=false 
suiji="rnd(id)" 
Else 
'如果是SQL數(shù)據(jù)庫，請認(rèn)真修改好以下數(shù)據(jù)庫選項 
DataServer = "wwwjb51net" '數(shù)據(jù)庫服務(wù)器IP 
DataUser = "jb51net" '訪問數(shù)據(jù)庫用戶名 
DataBaseName = "jb51net" '數(shù)據(jù)庫名稱 
DataBasePsw = "密碼" '訪問數(shù)據(jù)庫密碼 
SqlNowString = "getdate()" 
ystr=1 
nstr=0 
suiji="newid()" 
End if 
On Error Resume Next 
If DataBaseType = 1 Then 
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename 
Else 
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) 
End If 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.open ConnStr 
If Err Then Err.Clear:Set conn = Nothing:Response.Write "數(shù)據(jù)庫連接出錯，請檢查Conn.asp文件中的數(shù)據(jù)庫參數(shù)設(shè)置。":Response.End 
%>

完整測試代碼

Microsoft Access Driver

<%
db="1.mdb"
dim conn,db 
dim connstr 
on error resume next 
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
set conn=server.createobject("ADODB.CONNECTION") 
if err then 
err.clear 
else 
conn.open connstr 
end if 

t=timer()
for i=0 to 1000
	Set Res=Conn.Execute("select (Select top 1 name from [aa] where id=1) as oldname,(Select top 1 name from [aa] where id=2) as newname from [aa]")
	aa=Res("oldname")
	bb=Res("newname")
	Res.close
	set Res=nothing
next
response.write "用時:"&(timer()-t)
%>

microsoft.jet.oledb.4.0

<%
db="1.mdb"
dim conn,db 
dim connstr 
on error resume next 
connstr="provider=microsoft.jet.oledb.4.0;data source="+server.mappath(""&db&"")
set conn=server.createobject("ADODB.CONNECTION") 
if err then 
err.clear 
else 
conn.open connstr 
end if 

t=timer()
for i=0 to 1000
	Set Res=Conn.Execute("select (Select top 1 name from [aa] where id=1) as oldname,(Select top 1 name from [aa] where id=2) as newname from [aa]")
	aa=Res("oldname")
	bb=Res("newname")
	Res.close
	set Res=nothing
next
response.write "用時:"&(timer()-t)
%>

到此這篇關(guān)于ASP連接Access數(shù)據(jù)庫的幾種方法的文章就介紹到這了,更多相關(guān)ASP連接Access數(shù)據(jù)庫內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: