在asp中怎么连接Access数据库

 我来答
育知同创教育
2016-08-09 · 百度知道合伙人官方认证企业
育知同创教育
1【专注:Python+人工智能|Java大数据|HTML5培训】 2【免费提供名师直播课堂、公开课及视频教程】 3【地址:北京市昌平区三旗百汇物美大卖场2层,微信公众号:yuzhitc】
向TA提问
展开全部
asp连接access数据库的方法:
1、设置数据库连接方式:
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)
2、设置连接数据库
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
3、建立odbc数据源
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer
4、附上一个经常用的sqlserver与access通用的连接数据库代码:
<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/jb51/news.asp"
SqlNowString = "Now()"
ystr=true
nstr=false
suiji="rnd(id)"
Else
'如果是SQL数据库,请认真修改好以下数据库选项
DataServer = "wwwjb51net" '数据库服务器IP
DataUser = "jb51net" '访问数据库用户名
DataBaseName = "jb51net" '数据库名称
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
%>
百度网友577f80d
2016-08-09 · TA获得超过791个赞
知道小有建树答主
回答量:1352
采纳率:66%
帮助的人:527万
展开全部
<%
response.Charset="GB2312"
Dim ConnStr,DataType
Dim ServerName,UserName,PassWord,DatabaseName
ServerName = "127.0.0.1" '设置数据库服务器地址,当为Access数据库时忽略
UserName = "sa" '设置数据库服务器用户名,当为Access数据库时忽略
PassWord = "" '设置数据库服务器密码,当为Access数据库时忽略
DatabaseName = "dbname" '设置数据库服务器数据库名,当为Access数据库时设置路径及文件名
DataType="SqlServer" '设置数据库类型 (SqlServer,Mysql,Access)
if DataType="SqlServer" then
ConnStr = "Provider=Sqloledb;Data Source="&ServerName&";User ID="&UserName&";Password="&PassWord&";Initial Catalog="&DatabaseName&";"
elseif DataType="Mysql" then
Connstr="Driver={Mysql ODBC 3.51 Driver};Server="&ServerName&";UID="&UserName&";PassWord="&PassWord&";Database="&DatabaseName&";"
elseif DataType="Access" then
Connstr="DBQ="+Server.Mappath(""&DatabaseName&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(""&DatabaseName&"")
end if
On Error Resume Next
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接错误,请稍后再试!"
Response.End
End If
%>
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式