[求助]Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

yuan0121 发布于 2007-08-27 09:34， 576 次点击

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 驱动程序的 SQLSetConnectAttr 失败

/main.asp，行 8

<%
Dim fromcitylist
Dim fromcitylist_numRows

Set fromcitylist = Server.CreateObject("ADODB.Recordset")
fromcitylist.ActiveConnection = MM_naer_STRING-------------------------------------- 第八行
fromcitylist.Source = "SELECT distinct xilie FROM sbsj"
fromcitylist.CursorType = 0
fromcitylist.CursorLocation = 2
fromcitylist.LockType = 1
fromcitylist.Open()

fromcitylist_numRows = 0
%>
想问问哪里出了问题啊

9 回复

yuan01212007-08-27 09:41

太着急了啊有哪为好心老大帮我一下啊在线等 QQ79677593

[此贴子已经被作者于2007-8-27 9:41:35编辑过]

ayue2222007-08-27 09:43

MM_naer_STRING 设置了数据库连接嚒 ??

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("数据库地址")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr

yuan01212007-08-27 09:55

不好意思我实在是非常的菜您提供给我下面的那个代码应该插入在什么位置

yuan01212007-08-27 10:01

代码已经插入进去了可是
要发疯了 555555555
斑竹能+我QQ一下吗当面问点问题原谅我太菜了

ayue2222007-08-27 10:07

<%
Dim fromcitylist
Dim fromcitylist_numRows
dim ConnStr,MM_naer_STRING
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("数据库地址")
Set MM_naer_STRING= Server.CreateObject("ADODB.Connection")
MM_naer_STRING.open ConnStr

fromcitylist_numRows = 0
%>

yuan01212007-08-27 10:11

呵呵已经弄好了下一个问题有出现了想把菜单列表与这个纪录集连接上呵呵楼主真是热心肠的人。太感激了
<select name="select" id="select">
<option value="<%=(fromcitylist.fields.Item("xilie").value)%>">请选择产品系列</option>
<% while(NOT fromcitylist.EOF)%>
<%
fromcitylist.moveNext()
wend
%>
</select>

但是里面没有数据库的值

yuan01212007-08-27 10:12

dim ConnStr,MM_naer_STRING
这句我没有加一加上就说出错

yuan01212007-08-27 10:17

吓古求弄出来了谢谢斑竹,非常感谢

#10

ayue2222007-08-27 10:25

<select name="select" id="select">
<% while(NOT fromcitylist.EOF)%>
<option value="<%=(fromcitylist.fields.Item("xilie").value)%>">请选择产品系列</option>
<%
fromcitylist.moveNext()
wend
%>
</select>

显示数据应该放在循环内部......