运行时提示出错，纳闷~大家帮我看看啊（已解决）

IT-庸才

总是提示“execute()”这边出错，我是小菜鸟，大家帮我看看，谢谢~

#!/usr/bin/perl -w
use DBI;
my ($db, $st,@rowarray);
# create database connection
$db = DBI->connect("DBI:mysql:databases=databasesname; host=localhost","user","passwd") or die $DBI::errstr;
# execute SELECT
$st = $db->prepare("select * from TABLENAME where user=name") or die $DBI::errstr;
$st->execute() or die $DBI::errstr;
# resultset
while(@rowarray = $st->fetchrow_array())
        {
        foreach my $column (@rowarray)
                {
                if (!defined($column))
                        {
                        $column = "NULL";
                        }
                }
        print "@rowarray\n";
        }
$st->finish();
$db->disconnect();

DBD::mysql::st execute failed: No database selected at ./ceshi.pl line 7.
No database selected at ./ceshi.pl line 7.

[ 本帖最后由 IT-庸才 于 2009-7-16 17:42 编辑 ]

Perl_Er

错误发出来啊！

IT-庸才

刚我把错误提示放上去了，兄弟帮看一下哦

ulmer

原帖由 IT-庸才 于 2009-7-15 18:31 发表
总是提示“execute()”这边出错，我是小菜鸟，大家帮我看看，谢谢~

#!/usr/bin/perl -w
use DBI;
my ($db, $st,@rowarray);
# create database connection
$db = DBI->connect("DBI:mysql:databases=dat ...

wrong :
>$db = DBI->connect("DBI:mysql:databases=databasesname; host=localhost","user","passwd") or die $DBI::errstr;
should be: database (no pl. with s)

correct dsn string should be:
DBI:mysql:database=YOUR_EARLDB_NAME; host=HOST_YOU_WANT_TO_CONNECT, REAL_DB_USER, REAL_PASSWORD

wrong:
>$st = $db->prepare("select * from TABLENAME where user=name") or die $DBI::errstr;
is yout table really called TABLENAME?
isi your fieldname really called user?

pls read perldoc DBD::mysql

perl -e 's/IT-庸才/IT-人才/'

[ 本帖最后由 ulmer 于 2009-7-15 19:37 编辑 ]

IT-庸才

ulmer 兄就是这个问题……刚改了一下就可以了，你是怎么检查出来的？？

Perl_Er

错误都这么报了啊,"No database selected"

IT-庸才

原帖由 ulmer 于 2009-7-15 19:33 发表


wrong :
>$db = DBI->connect("DBI:mysql:databases=databasesname; host=localhost","user","passwd") or die $DBI::errstr;
should be: database (no pl. with s)

correct dsn string should be:
D ...

太败兴了，平时databases写习惯了~不自觉的就多加了个‘s’

IT-庸才

谢谢两位大哥的帮忙~

ulmer

原帖由 IT-庸才 于 2009-7-15 19:52 发表
谢谢两位大哥的帮忙~

不谢, 请两位大哥喝咖啡.