|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 05 Apr 2002 20:41:00
To : Ђ в®«Ё© ‚ҐбЁ
Subject : Re: Доступ к базе данных
--------------------------------------------------------------------------------
Здравствуй, Анатолий Веснин.
АВ> --------------------------------------
АВ> #!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!".
АВ> Вопрос: почему и как сделать, чтобы работало?
Есть смутное подозрение, что точку с запятой в тексте запроса надо удавить.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Доступ к базе данных 
