VPF::работа с ms sql - Форум программистов

AlexeyKW

Дата 14.12.2005, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.12.2005

Репутация: нет
Всего: нет

Делается запрос к таблице ms sql server.

use DBI;
print "Content-type: text/html\n\n";
print "<html>Код\n";
$dbh=DBI->connect('DBI:ODBC:IE', 'Administrator', '') or die "ODBC ERROR";
$sth=$dbh->prepare("select kod_specialnosti from kod_spec") or die "Prepare error";
$sth->execute() or die 'exec error';
while ($r = $sth->fetchrow_hashref()) {
print ("\n", $r->{kod_specialnosti}) ;
print "\n";}
print "</html>\n";

При выполнении в браузере выводися только слово "Код". Если же выполнить тот же
код в консоли (cmd), то все правильно работает. Подскажите пожалуйста в чем у меня ошибка.
Заранее спасибо!

BlackLFL

Дата 14.12.2005, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 3
Всего: 12

во первых \n замените на <br>
далее, вначале скрипта случаем не подключается модуль
use CGI::Carp qw(fatalsToBrowser);
а в пути к интерпритатору флаг -w ?

при запуске в браузере процесс умирает или продолжает жить? если жить то убейте его, и посмотрите, что отписалось в лог ...

Sadok

Дата 15.12.2005, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: 1
Всего: 2

AlexeyKW

Цитата

while ($r = $sth->fetchrow_hashref()) {
print ("\n", $r->{kod_specialnosti}) ;
print "\n";}
print "</html>\n";

а так:

Код


while ($r = $sth->fetchrow_hashref()) {
    print "<br>";
    print $r->{kod_specialnosti};
    print "<br>";
}
print "</html>";

Это сообщение отредактировал(а) Sadok - 15.12.2005, 12:46

AlexeyKW

Дата 15.12.2005, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.12.2005

Репутация: нет
Всего: нет

Заменил \n на <br>.
Никакие другие модули не подключены, то что я написал это полный текст скрипта (плюс в начале #!perl), ключей отладки нигде не стоит.
В логе сервера написано “DBI connect('IE','Administrator',...) failed …”, то есть видимо ошибка соединения. Но почему тогда работает скрипт в консоли? Для проверки я еще коннектился к ODBC через Delphi, тоже все работает.

sharq

Дата 15.12.2005, 23:53 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28

AlexeyKW perldoc DBD::ODBC.

Ошибка в составление dsn коннекта.

Код


#!perl -w

use strict;
use DBI;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n";
print "<html>Код\n";

my $DSN = 'driver={SQL Server};Server=server_name;database=database_name;uid=user;pwd=password;'; # подставь соотв. данные
my $dbh=DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";

my $sth=$dbh->prepare("select kod_specialnosti from kod_spec") or die "Prepare error";
$sth->execute() or die 'exec error';

while (my $r = $sth->fetchrow_hashref()) {
  print ("\n", $r->{kod_specialnosti}) ;
  print "\n";
}

print "</html>\n";

ВОт так запукай, проверяй, смотри.
smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

AlexeyKW

Дата 16.12.2005, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.12.2005

Репутация: нет
Всего: нет

Вот в таком варианте все работает. Огромное спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »