• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

ASP连接Access数据库的几种方法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1. 相对与比较老的环境,建议使用第二个

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以上的机器,建议用此方法,效率更高

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) 

3.

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、附上一个经常用的sqlserver与access通用的连接数据库代码

<% 
Const DataBaseType=1 
If DataBaseType=0 then 
DBPath="/ogeek/news.asp" 
SqlNowString = "Now()" 
ystr=true 
nstr=false 
suiji="rnd(id)" 
Else 
'如果是SQL数据库,请认真修改好以下数据库选项 
DataServer = "wwwogeeknet" '数据库服务器IP 
DataUser = "ogeeknet" '访问数据库用户名 
DataBaseName = "ogeeknet" '数据库名称 
DataBasePsw = "密码" '访问数据库密码 
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 "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":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)
%> 

到此这篇关于ASP连接Access数据库的几种方法的文章就介绍到这了,更多相关ASP连接Access数据库内容请搜索极客世界以前的文章或继续浏览下面的相关文章希望大家以后多多支持极客世界!


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
asp经典入门教程 在ASP中使用SQL 语句第1/2页发布时间:2022-02-05
下一篇:
asp连接SQL和Access数据代码(asp里的随机函数)发布时间:2022-02-05
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap