用DBI连接Ingres数据库，查询表结果为何只有一条？

siyantianji

现在用perl写了一个用DBI模块连接Ingres数据库，但是查询出来的结果只有第一条，其他的都没有返回。请问为什么？
代码如下：

表AL_SEVERITY_STR 一共有7条记录，但是输出的只有第一条记录。
这段代码是根据CPAN上的修改的，

1. #!/usr/bin/perl
   
2. use DBI qw(:sql_types);
   
3. 
   
4. 
   
5. $dbh = DBI->connect("DBI:Ingres:phms::dbname", "user","passwd", {AutoCommit=>0});
   
6. 
   
7. $statement = "select * from AL_SEVERITY_STR ";
   
8. 
   
9. $sth = $dbh->prepare($statement);
   
10. $sth = $dbh->prepare($statement, {ing_readonly=>1});
    
11. $sth->execute;
    
12. 
    
13. 
    
14. while (@rows= $sth->fetchrow) {
    
15.         print $rows[0]." ########## ".$rows[1]."\n";
    
16. 
    
17.         }
    
18. 
    
19. $sth->finish;
    
20. $dbh->commit;
    
21. $dbh->rollback;
    
22. $dbh->disconnect;
    

复制代码

siyantianji

在线等答案啊！！！！！
连接数据库的程序写多了，都是这样写的，但是不知道为什么这次只有第一条结果返回，其他的不知道哪里去了。
等待达人帮助！！！
谢谢！！！

siyantianji

问什么看的人多，回复的人少啊？？？？

apile

请在每个

$sth = $dbh->prepare($statement);
$sth = $dbh->prepare($statement, {ing_readonly=>1});
$sth->execute;
加上 die $dbh->errstr;
另外试着看看有没有Error log产生
另外你在回圈中有没有其他的statement..
如果有看一下他的变量名称是不是叫$sth
我以前碰过一样的问题..後来发现是名称一样的原因..

[ 本帖最后由 apile 于 2007-6-15 16:36 编辑 ]

siyantianji

原帖由 apile 于 2007-6-15 16:33 发表
请在每个

$sth = $dbh->prepare($statement);
$sth = $dbh->prepare($statement, {ing_readonly=>1});
$sth->execute;
加上 die $dbh->errstr;
另外试着看看有没有Error log产生
另外你在 ...

加上 die $dbh->errstr;以后也没有Error log产生，证明我的链接没有出错，
还有，我里面就一个$statement，上面贴出的代码就是我的程序全部内容，，所以也不肯能是因为有同名函数造成。
我的程序完全就是CPAN上的拿下来，改了所连接的数据库名和帐号密码
这个问题困扰了我很久了，不知那位高手能够给于下帮助啊，小弟在这里感谢万分！！！