新微赢技术网

标题: [求助] 关于数据库连接问题 [打印本页]

作者: √死胖子 时间: 2010-1-12 00:56
标题: [求助] 关于数据库连接问题
<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'-----------下以是网站全站信息-----------
set res=server.CreateObject("adodb.recordset")
sql="select top 1 * from company"

res.open sql,con,1,1'这是第九行。

if not res.eof then
dim web_name,web_address,web_url,web_tel,web_fax,web_email
web_name=res("web_name")                         '网站名称
web_address=res("web_address")                   '公司地址
web_url=res("web_url")                            '公司网址
web_tel=res("web_tel")                            '公司电话
web_fax=res("web_fax")                            '公司传真
web_email=res("web_email")
gywn=res("gywn")
companyhao=res("companyhao")                '公司邮箱
end if
res.close
%>

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/bbs/conn.asp, 第 9 行

作者: ═━灆涩━═ 时间: 2010-1-12 00:56
大意哦~

作者: tp寶寶^ō^ 时间: 2010-1-12 00:56
谢啊！

我改好了。。

如下变更
<%
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
dim strSql,rs
strSql="select top 1 * from company"
Set rs=db.Execute(strSql)
dim web_name,web_address,web_url,web_tel,web_fax,web_email
web_name=rs("web_name")                         '网站名称
web_address=rs("web_address")                   '公司地址
web_url=rs("web_url")                            '公司网址
web_tel=rs("web_tel")                            '公司电话
web_fax=rs("web_fax")                            '公司传真
web_email=rs("web_email")
gywn=rs("gywn")
companyhao=rs("companyhao")                '公司邮箱
rs.close
%>

作者: 罗米欧 时间: 2010-1-12 00:56
将
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
改为
db.open "provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("data/bbs.mdb")
看看

作者: ︶ㄣ⒏懂緈諨 时间: 2010-1-12 00:56
你建立的是db数据库连接可下面打开的是con
Dim db
set db=server.createobject("Adodb.Connection")
db.open "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

'-----------下以是网站全站信息-----------
set res=server.CreateObject("adodb.recordset")
sql="select top 1 * from company"

res.open sql,con,1,1'这是第九行。

作者: 30岁就改变 时间: 2010-1-12 00:57
LS正解

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)