cgi使用数据库时对字段的读取方式

gbnice

我用以下的程序读取数据库，这个程序是网上搞来的，所以虽然成功读取了数据库，我却也是不明所以。

这个程序将一条记录保存在一个数组里，然后根据数组下标读取记录的各个字段。

用数字下标读取记录的做法不形象也就罢了，但是如果我数据库里添加和删除字段后，这个下标所指的字段岂不都乱了？能不能像哈稀一样用一个形象的名字读取记录呢？如何改写以下程序的$FieldNames？


####################程序开始################

#!/usr/bin/perl
print "Content-type: text/html\n\n";

use Win32::ODBC;  

$DSN = "perldb";  

#连接数据库  

if (!($db = new Win32::ODBC($DSN))){  
print "连接数据库失败\#哈哈";  
exit();  
}  
else{  
print "连接数据库成功 (连接号：",$db->;Connection(),"\n";  
}  

#数据库中的表  
print "数据库中的表：";  
@tables = $db->;TableList;  
print "@tables \n";  


#选择数据表  
if (!$db->;Sql("SELECT * FROM [address]"){  

@FieldNames = $db->;FieldNames();  

$Cols = $#FieldNames + 1;  

#表中字段数  
print "表address字段数Cols \n";  

#字段列表
print "字段名: ";  
for ($i = 0; $i < $Cols; $i++){  
print " $FieldNames[$i] ";  
}  

print "\n所有记录:\n";

#列出年龄大于20的记录  
while($db->;FetchRow()){  
@values = $db->;Data();  
print @values;  
print "\n";  
}  

}  



#关闭链接  
$db->;Close();  
####################程序结束################

deathcult

1. 
   
2. ......
   
3. while(@rows = $sth->;fetchrow_array)
   
4. {
   
5.         #foreach(@rows)
   
6.         #{
   
7.         #        print "$_\t";
   
8.         #}
   
9.            print $rows["host"];
   
10.         print $rows["user"];
    
11.         print "\n";
    
12. }
    
13. ......
    

复制代码

gbnice

为什么是 @rows 而不是 %rows   ?

fetchrow_array 和 FetchRow() 都是模块里定义的方法?