Форум сетевых администраторов

Форум сетевых администраторов (http://netadmin.ws/forum/index.php)
- Другие (http://netadmin.ws/forum/forumdisplay.php?forumid=19)
-- CGI & MySQL (http://netadmin.ws/forum/showthread.php?threadid=2822)

Помещено Sky_Lynx 25-08-2002 в 00:10:

CGI & MySQL

Кодил скрипт который должен получать данные из базы данных.
Не могу понять в чём ошибка, вот кусок скрипта:
-------------------------------------------

#!/usr/bin/perl
use DBI;
use CGI;

$database="";
$db_server="";
$user="";
$password="";

$query->new CGI;

print $query->header;

$dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);
$statement ="SELECT * FROM photos";

$sth= $dbh->prepare($statement) or die "BlaBlaBla: $sth->errstr";
$rv = $sth->execute or die "BlaBlaBla: $dbh->errstr";

while (@data = $sth->fetchrow_array) {
....
}

$rc=$sth->finish;
$rc=$dbh->disconnect;

-------------------------------------------------------------------
Поидее массив @data должен содержать всю полученную инфу.
Но проблема в том, что СК�_ИПТ не работает...может где ошибка? или вообще лучше по-другому кодить?

__________________
Skateboarding is not a crime

Помещено water 28-08-2002 в 14:57:

Re: CGI & MySQL

quote:
Первоначальное сообщение от Sky_Lynx
Кодил скрипт который должен получать данные из базы данных.
Не могу понять в чём ошибка, вот кусок скрипта:
-------------------------------------------

#!/usr/bin/perl
use DBI;
use CGI;

$database="";
$db_server="";
$user="";
$password="";

$query->new CGI;

print $query->header;

$dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password);
$statement ="SELECT * FROM photos";

$sth= $dbh->prepare($statement) or die "BlaBlaBla: $sth->errstr";
$rv = $sth->execute or die "BlaBlaBla: $dbh->errstr";

while (@data = $sth->fetchrow_array) {
....
}

$rc=$sth->finish;
$rc=$dbh->disconnect;

-------------------------------------------------------------------
Поидее массив @data должен содержать всю полученную инфу.
Но проблема в том, что СК�_ИПТ не работает...может где ошибка? или вообще лучше по-другому кодить?

Ты когда тестируешь тоже не указываешь имя сервера? И вообще, какую ошибку перл выдает?

Я делаю так:
use DBI;
$driver = 'mysql';
$database='g';
$hostname='vgi.volsu.ru';
$username='s';
$password='s';
$dsn = "DBI:$driver:database=$database;host=$hostname";
$dbh = DBI->connect($dsn,$username,$password);
$sth = $dbh->prepare($query);
$sth->execute;
while (@row = $sth->fetchrow_array) {
print "@row\n";
}
}
$dbh->disconnect;

__________________
/\/\/\

Формат времени GMT. Текущее время 21:05.

Показаны 2 сообщений на этой странице