- 论坛徽章:
- 0
|
代码如下:
#!/usr/bin/perl
use strict;
use Win32::ODBC;
my($DSN,$database,$sql,$id,$name,$passwd,$f_name);
$DSN="password";
$f_name='apps';
$database=Win32::ODBC->;new($DSN);
if(!$database)
{
print qq|failure !|;
}else{
$sql=qq|select id,name,password from password where name=$f_name|;
$database->;Sql($sql);
while($database->;FetchRow())
{
$id=$database->;Data(id);
$name=$database->;Data(name);
$passwd=$database->;Data(password);
print qq|$id\t$name\t$passwd\n|;
}
$database->;Close();
}
我的DSN配的.mdb,现在的问题是我的$sql用了变量$f_name就不能执行了,用'apps'代替$f_name就能正常运行,这是怎么回事,请高手们指教,急用! |
|