ADODB.Recordset 错误

l285791700 2008-12-02 05:22:55



<tr> 

                      <td height="27" class="STYLE2">名烟名酒精品区</td>

                    </tr>

                    <tr> 

                      <td bgcolor="#EAEAEA"><img src="ima/spacer.gif" width="1" height="5"></td>

                    </tr>

                    <tr> 

                      <td height="412">

					  <% if rs3.recordcount<>0 then %>

					  <table width="100%" border="0" cellspacing="5" cellpadding="0">

					  <%

					  i=0

					  while not rs3.eof 

					  if i mod 4=0 then response.write "<tr>"

					  %>

                            <td><table width="100%" border="0" cellspacing="0" cellpadding="5">

                                <tr> 

                                  <td align="center"><table width="100" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">

                                      <tr> 

                                        <td bgcolor="#FFFFFF"><a href="ggym/spxxxx.asp?bh=<% =rs3("bh") %>"><img src="<% =mid(rs3("tp1"),4) %>" alt="<% =rs3("mc") %>" name="" width="120" height="123" border="0"></a></td>

                                      </tr>

					

                                    </table></td>

                                </tr>

                                <tr> 

                                  <td align="center" class="zjj1"><p><a href="ggym/spxxxx.asp?bh=<% =rs3("bh") %>">

                                    <% =gshwz(rs3("mc"),10,8) %>

                                    </a></p>

                                    <p><font color="#003366">市场价:

                                      <% =formatnumber(rs3("scj"),2) %>

                                    </font><font color="#FF6600">元</font><br>

                                      会员价:<font color="#FF6600">

                                      <% =formatnumber(rs3("hyj"),2) %>

                                    </font><font color="#FF6600">元</font></p></td>

                                </tr>

                              </table></td>

						  <%

						  if i mod 4=3 then response.write "</tr>"

						  i=i+1

						  rs3.movenext

						  wend

						  %>

                        </table>

                          <%

						  else

						  %>

                          <table width="100%" border="0" cellspacing="5" cellpadding="50">

                          <tr>

                            <td align="center"><strong>正在更新中...</strong></td>

                          </tr>

                          </table>

                          <%

						  end if

						  %>					  </td>

                    </tr>

市场价:

ADODB.Recordset 错误 '800a0cc1'

在对应所需名称或序数的集合中，未找到项目。

/index.asp，行 491

...全文

42 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

ahhshan 2008-12-02

打赏
举报

回复

帮顶

filec75 2008-12-02

打赏
举报

回复

帮顶

l285791700 2008-12-02

打赏
举报

回复

这是什么意思啊 ~~！！

主要介绍了adodb.recordset.open(rs.open)方法参数详解,需要的朋友可以参考下

数据库SQLServer，测试程序显示出错信息：”ADODB.Recordset 错误 “800a0e78” 对象关闭时，不允许操作” 独立测试数据库链接，显示出错信息：用户 “sa” 登录失败。原因: 未与信任 SQL Server 连接相关联。这一问题一般是由于SQL Server未集成Windows身份验证导致的，所以解决方案为： 1、打开SQL Server企业管理器。 2、选择服务器名称上右键，选择“属性”，然后打开“安全性”选项卡。 3、在选项卡中，选择身份验证为“SQL Server和 Windows ” 4、重启SQLSERVER，问题解决。

ADODB.Stream (0x800A0BBC)---上传文件时发生错误--找不到上传的目录 (0x80020009)---当前rs指针所指向记录的字段值为NULL，不能使用 ADODB.Field (0x80020009)---当前rs指针所指向记录的字段值为NULL，不能输出 ADODB.Field (0x800A0BCD)---没有找到相关记录,不能用rs("字段")取值 ADODB.Recordset (0x800A0BB9)---没有打开数据库(没有打开conn)(rs已经打开一个表,不能再用rs打开别的表) ADODB.Recordset (0x800A0BCD)---记录指针已经指向表尾，不能再执行rs.movenext指令 ADODB.Recordset (0x800A0C93)---更改或添加完记录没有更新(rs.更新)就关闭链接(rs.close) ADODB.Recordset (0x800A0CB3)---数据库操作错误(表在读的方式打开不能添加数据） ADODB.Recordset (0x800A0CC1)---数据库操作错误(在打开的表中找不到指定的字段） ADODB.Recordset (0x800A0E78)---数据库操作错误（rs没有打开表不能用rs.close结束)(rs已经关闭,不能再用rs读取数据) ADODB.Recordset (0x800A0E79)---数据库操作错误（rs已经打开一个表,不能再打开别的表) ADODB.Recordset (0x800A0E7D)---打开表错误（缺少参数）(有可能是忘了写",conn,1,1")

IIS无法访问asp！解决办法！今天打开电脑发现IIS无法访问asp页面。提示：Server Application Error 然后就有了下面的一段话。 The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance. 在网上查了查解决方案如下: 首先是asp程序，死循环，要求：看一下你的页面定义同名rs是不是太多了,比如Set rs=Server.CreateObject("ADODB.Recordset") 如果太多,有可能会服务器被所住,解决办法, 1、取不一样的名字，如Set rs1=Server.CreateObject("ADODB.Recordset") Set rs2=Server.CreateObject("ADODB.Recordset") 2、把Set rs=Server.CreateObject("ADODB.Recordset")放在页面最顶部，每个都可以调用，把其他多余的删掉或者：在页面中显式地释放资源： rs.close set rs=nothing conn.close set conn=nothing

vb学生管理系统源代码部分代码 Public UserName As String Public txtSQL As String 'use to store record SQLsentence Public dream As ADODB.Recordset 'use to store record object Public Msgtext As String '用来存放返回信息 Public OK As Boolean ' 'Public db As String Public Sub highlight() With Screen.ActiveForm If (TypeOf .ActiveControl Is TextBox) Then .ActiveControl.SelStart = 0 .ActiveControl.SelLength = Len(.ActiveControl) End If End With End Sub Sub Main() 'Dim Login As New Login 'Login.Show vbModal 'f Not Login.OK Then 'Login Failed so exit app ' End 'End If 'Unload studentmdi ' Set login = New login login.Show End Sub Public Function connectstring() As String connectstring = "Provider=Microsoft.jet.OLEDB.3.51;Data source=f:\schoolgroup\school.mdb" End Function Public Function ExecuteSQL(ByVal SQL As String, Msgstring As String) As ADODB.Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open connectstring If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then cnn.ExecuteSQL Msgstring = sTokens(0) & "query successful" Else Set rst = New ADODB.Recordset rst.Open Trim(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst Msgstring = "查询到" & rst.RecordCount & " 条记录" End If executeSQL_exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: Msgstring = "查询错误：" & err.Description Resume executeSQL_exit End Function Public Function Testtxt(txt As String) As Boolean If Trim(txt) = "" Then Testtxt = False Else Testtxt = True End If End Function

3,055

社区成员

8,066

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章