Народ, такая проблема:
Есть база данных mysql с именем prb. В ней одна таблица с именем one, в которой два столбца name и birth. Пытаюсь сделать запрос и вывеси на экран содержимое таблицы и никак. Компилятор говорит нечто вроде:
| Цитата |
DBD::mysql:st bind_columns failed: Statement has no result columns to bind (perhaps you need to succsessfully call ececute first) at Untitled line 18
|
| Код |
#!perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI;
print "Content-type: text/html\n\n";
$db = "DBI:mysql:prb:localhost";
$user = "root";
$pwd = "html40";
my $dbh = DBI->connect($db, $user, $pwd);
my $query = "SELECT name, birth FROM one";
my $sth = $dbh->prepare($query);
my ($name, $date);
$sth->bind_columns(undef, \($name, $date));
$sth->execute();
while($sth->fetch()){
print "Имя: $name<br> Дата: $date<br>";
}
$dbh->disconnect();
|
А вот результат работы (в таблице 2 строки):
| Цитата |
Имя:
Дата:
Имя:
Дата:
|
|
