关于ado对象应用的问题,非常的不理解，！？？？？查询不到记录。

solonet 2003-05-13 01:07:21
关于ado对象应用的问题
以下是ASP程序，运行后查询不到记录，但不会出错，这是为什么？。

<HTML>
<HEAD><title>数据库查询</title>
</HEAD>
<body>
<img src="../images/pic001.gif">
<hr>
<%
Response.Write "馈线档案: "
set adocon = Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Oracle ODBC Driver};server=192.168.0.209;uid=petmis;pwd=A536067B;database=petmis"
set rx=server.createobject("adodb.Recordset")
sqlstr = "select * from gy_kxda"
rx.open sqlstr,adocon,3,3
'set rx= adocon.Execute(sqlstr)
Response.Write "<br>"
%>
<table border=1>
<%
i = 1
While Not rx.EOF
if i=1 then
%>
<tr>
<td><b>序号</b></td>
<td><b>馈线编码</b></td>
<td><b>馈线名称</b></td>
<td><b>地区码</b></td>
</tr>
<% end if %>
<tr>
<td><center><% = i %> </center></td>
<td><% = rx("kxbm") %> </td>
<td><% = rx("kxmc") %> </td>
<td><% = rx("dqm") %> </td>
</tr>
<%
i = i + 1
rx.Movenext
Wend
rx.Close
Set rx = Nothing
%>
</table><p>
<hr>

<center>
<tr>
<td align="center" colspan="3">
<input type="button" value="关闭窗口" class="button_def" onclick="javascript:window.close();" onMouseOut="javascript:this.style.background='#ffcc00';">
  
</td>
</tr>
</center>
</body></html>
...全文
105 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
bitipierce 2003-05-15
  • 打赏
  • 举报
 回复

我怀疑是不同的数据库的问题!

搂住用的是Ocracle?
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复
应该是标的问题了
重新建一个表将数据导入新表里试一下
solonet 2003-05-13
  • 打赏
  • 举报
 回复
只改掉表名就可以查到别的内容。
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复
重新建一个表将数据导入新表里试一下
这个页面能查出其他表内容吗,
solonet 2003-05-13
  • 打赏
  • 举报
 回复
这根数据库有没有关系啊？就这个表gy_kxda,那怎么改呢？用其它表都可以查的。
solonet 2003-05-13
  • 打赏
  • 举报
 回复
还是不行的。SORRY！
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复
提前
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复


set adocon = Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Oracle ODBC Driver};server=192.168.0.209;uid=petmis;pwd=A536067B;database=petmis"
改为


connstr="Driver={Oracle ODBC Driver};server=192.168.0.209;uid=petmis;pwd=A536067B;database=petmis"
Set adocon = Server.CreateObject("ADODB.Connection")
adocon.Open connstr
solonet 2003-05-13
  • 打赏
  • 举报
 回复
改啦，还是同上，行15
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复
或rx.open sqlstr,adocon,3,1
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复
rx.open sqlstr,adocon,1,1
solonet 2003-05-13
  • 打赏
  • 举报
 回复
改成chichuli_4(clf)说的那样，、但出现如下错误信息:

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/bdz/qqq.asp，行15

//////////////////////////////////我补充的：行15是指
rx.open sqlstr,adocon,3,3

solonet 2003-05-13
  • 打赏
  • 举报
 回复

改成chichuli_4(clf)说的那样，出现如下错误：



Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/bdz/qqq.asp，行15
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复
<HTML>
<HEAD><title></title>
</HEAD>
<body>

<%
set adocon = Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Oracle ODBC Driver};server=192.168.0.209;uid=petmis;pwd=A536067B;database=petmis"
set rx=server.createobject("adodb.Recordset")
sqlstr = "select top 1 * from gy_kxda"
rx.open sqlstr,adocon,3,3

%>
<table border=1>
<%
if Not rx.EOF then
%>
<tr>
<td><% = rx("kxbm") %> </td>
</tr>
<%
end if
rx.Close
Set rx = Nothing
%>
</table>

</body></html>
solonet 2003-05-13
  • 打赏
  • 举报
 回复
怎么个简单法？
chichuli_4(clf) 谢谢你。
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复
做一简单页面能选出内容吗
solonet 2003-05-13
  • 打赏
  • 举报
 回复

如果加上楼上老兄说的response.write rx("kxbm"),运行后出错，如下：


Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242 错误 '80020009'

发生意外。

/bdz/qqq.asp，行0
cqfeng 2003-05-13
  • 打赏
  • 举报
 回复
直接在
rx.open sqlstr,adocon,3,3
后面加response.write rx(....)看能不能显示出来记录
solonet 2003-05-13
  • 打赏
  • 举报
 回复
这个数据库是在MIS中应用得好好的。是用PB+ORALCE

还有，就是，我把gy_kxda表改成其它表，就可以查询出来，这是为什么？
chichuli_4 2003-05-13
  • 打赏
  • 举报
 回复

先试一下面能显出内容吗?
如果能---
你的语句有问题
如果不能----
说明你的数据库有问题




<HTML>
<HEAD><title>数据库查询</title>
</HEAD>
<body>
<img src="../images/pic001.gif">
<hr>
<%
Response.Write "馈线档案: "
set adocon = Server.CreateObject("ADODB.Connection")
adocon.Open "Driver={Oracle ODBC Driver};server=192.168.0.209;uid=petmis;pwd=A536067B;database=petmis"
set rx=server.createobject("adodb.Recordset")
sqlstr = "select top 10 * from gy_kxda"
rx.open sqlstr,adocon,3,3
'set rx= adocon.Execute(sqlstr)
Response.Write "<br>"
%>
<table border=1>
<%
While Not rx.EOF

%>
<tr>
<td><b>序号</b></td>
<td><b>馈线编码</b></td>
<td><b>馈线名称</b></td>
<td><b>地区码</b></td>
</tr>

<tr>

<td><% = rx("kxbm") %> </td>
<td><% = rx("kxmc") %> </td>
<td><% = rx("dqm") %> </td>
</tr>
<%
rx.Movenext
Wend
rx.Close
Set rx = Nothing
%>
</table><p>
<hr>

<center>
<tr>
<td align="center" colspan="3">
<input type="button" value="关闭窗口" class="button_def" onclick="javascript:window.close();" onMouseOut="javascript:this.style.background='#ffcc00';">
  
</td>
</tr>
</center>
</body></html>
加载更多回复（4）
.net文献 英文原文+中文翻译（1万字）
ADO.NET 结构与概述.doc Overview of the Architecture of ADO.doc
C#做的学生成绩管理系统
这是用C#做的学生成绩管理系统，不叫包括基本的查询成绩，修改成绩等等基本的操作，还可以修改数据库（SQL）里面的数据，还可以注册登录帐号，这个资源不仅有完整的代码，还有运行窗口，还有数据库在里面。
大学项目设计C#仓库管理系统+完整项目源代码
大学项目设计C#仓库管理系统+完整项目源代码，适合新手了解，WINFORM程序，用到了很多小技术，由于文件过大。所以数据库和文档分开传了，大家看下我同时传的其他文件有的，谢谢。
Windows高性能并发IOCP之DELPHI实现
DELPHI实现的完整端口全例子，有SQL查询、上传文件、下载文件，并附有完成端口性能测试工具。服务器中还有ADO连接池、Logger日志的完整实现，可以作为学习服务端编程和完成端口的例子。
学生管理系统 C#项目实例
学生管理系统 C#项目实例 运用的是vs2008开发的 希望对你们有用！
ASP

28,408

社区成员

356,967

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章