BachiStil, мда.... у вас сложный случай... Кто ж строки пишет без кавычек?
Код:
#!/usr/bin/perl
use DBI;
$password = 'toor';
$user = 'root';
$data_source = 'DBI:mysql:test'; #### база test
$db = DBI->connect ($data_source, $user, $password)|| die "Cant do prepare: " . $db->errstr(); # вот так, чтоб не гадать потом, что за ошибка
$sql = "SELECT `id`, `name`, `code` FROM `personal` WHERE `position`='waiter' ORDER BY `name`"; # пример запроса
$sth2 = $db->prepare ($sql) || die "Cannot do SELECT: " . $db->errstr();# пихаем наш запрос базе....
$sth2->execute; # ... если нет ошибок, то исполняем его
while (($id, $name, $code) = $sth2->fetchrow_array ()) # обрабатываем ответ... он идет в виде массива
{
/// тут пишем ваш код обработки, если нужно
$position = '<option value="'. $id . '">'. $name . '</option>';
push @options, $position ;
push @pose, '0';
push @codes, $code;
}
$sth2->finish; # все, ответ разобран, завершаем этот запрос
$db->disconnect(); # отсоединяемся от базы
Цитата BachiStil:
|
DBI connect ('print:FreeBSD','BachiStil',...) failed: Access denied for user 'BachiStil'@'FreeBSD' (using password: YES) at ./print.pl line 5 »
|
ну так у вас запрешен доступ 'BachiStil'@'FreeBSD' - зайдите через клиента mysql локально и дайте ему привилегию входа с любой машины
