|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ђ в®«Ё© ‚ҐбЁ 2:5031/43 05 Apr 2002 17:44:55
To : All
Subject : Доступ к базе данных
--------------------------------------------------------------------------------
Условия сервера: Windows 2000 Pro Rus, Apache 1.3.6 for win32, Perl 5.21e for
Win32, MS Office 2000 Pro Rus.
Hа Access сделана база с одной табличкой. В ODBC прописан системный DSN к это
базе данных (файлику movies.mdb), пользователя не назначалось, паролей тоже.
Hа перле пишется скриптик такого содержания:
--------------------------------------
#!perl -w
use Win32::ODBC;
my $sql = "";
my $datasource = "moviesbase";
my $dbname = "movies";
print "Content-type: text/html\n\n";
print "<HTML><meta http-equiv='Content-Type' content='text/html;
charset=windows-1251'>";
print"<HEAD><TITLE>Тест</TITLE></HEAD>";
print "<BODY>";
$db = new Win32::ODBC("DSN=$datasource;DBNAME=$dbname;") or print "Connect
error!<br>";
$sql="select * from movies;";
$db->Sql("$sql") or print "Select error!<br>";
my @ary;
while ($db->FetchRow)
{
@ary = $db->Data;
print "$ary[0]<br>";
}
print "</body></html>";
--------------------------------------
В браузере скрипт выдает строку "Select error!".
Вопрос: почему и как сделать, чтобы работало?
С уважением, [Team Мурманск - город-герой]
Анатолий Веснин Forester XIII!
>np: The Cranberries - Desperate Andy
... Hа клавиатуре Microsoft CTRL-ALT-DEL доступен только после регистрации
--- FastEcho 1.4
* Origin: 459441 19:00-07:00 ICQ:12105485 (2:5031/43)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
