UC知道ASP连接ACCESS
来源：百度知道 编辑：UC知道 时间：2024/05/05 06:59:50
<%
dim conn '数据库连接
dim connstr '连接字符串
dim db
db="office.mdb"
connstr="Driver={Microsoft Access Driver(*.mdb)};DBQ="&Server.MapPath(db)
Set conn=Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库
sub CloseConn()
conn.Close()
set conn=Nothing
end sub
'替换单引号
function RealString(strSrc)
RealString=Replace(Trim(strRrc),"","")
end function
%>
帮我看一下这段代码有何错误,运行的结果是这样的:
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/conn.asp, 第 20 行
我用的是ACCESS
dim conn '数据库连接
dim connstr '连接字符串
dim db
db="office.mdb"
connstr="Driver={Microsoft Access Driver(*.mdb)};DBQ="&Server.MapPath(db)
Set conn=Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库
sub CloseConn()
conn.Close()
set conn=Nothing
end sub
'替换单引号
function RealString(strSrc)
RealString=Replace(Trim(strRrc),"","")
end function
%>
帮我看一下这段代码有何错误,运行的结果是这样的:
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/conn.asp, 第 20 行
我用的是ACCESS
db="office.mdb"
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
改成以上试试
我给你一段连接代码吧
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("conn/yifenbusiness.mdb") & ";Persist Security Info=False"
%>
连接了之后就可以这样写了：
<%
sql="你的查询语句"
set rs=createobject("adodb.recordset")
rs.open sql,conn,1,1 '如果是写操作就是rs.open sql,conn,3,1
%>