ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatoly Fanrus 2:5020/400 01 Jun 2000 11:17:47
To : All
Subject : WIN32::ODBC and EXCEL DRIVER
--------------------------------------------------------------------------------
Hi,
хочу лист excel прочесть как таблицу. как через odbc
это сделать. я создал dns exltest указал там книгу и из
этой книги мне нужен лист s1.
Perl на след. фрагмент ругается на $o->sql("select * from [$table]").
Подскажите плз, как правильно.
$DSN="DSN=EXLTEST;UID=Brown Cow;PWD=Moo";
if (!($O = new Win32::ODBC($DSN))) {
print "!!! new() :".$O->Error();
die;
} else {
print "Successed open DSN with number ",$O->Connection();
}
$table="S1"; # имя листа
if (!($O->sql("select * from [$table]"))){
@fields=$O->FieldNames();
$i=0;
while ($fields[$i]) {print "$fields[$i++]\n";}
while ($O->FetchRow()){
undef $data;
%data = $O->DataHash();
$i=0;
# while ($fields[$i]) {print HFL win2dos($data{$fields[$i++]});}
for (@fields) {print HFL win2dos($data{$_});}
print HFL "\n";
}
} else {
print "!!! SQL !!! ".$O->Error();
}
$O->Close();
close HFL;
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
