henri@henri-desktop:~$ perl -MDBI -e 'DBI->installed_versions;'
Perl : 5.008008 (i486-linux-gnu-thread-multi)
OS : linux (2.6.24-19-server)
DBI : 1.609
DBD::mysql : 4.012
DBD::Sponge : 12.010002
DBD::Proxy : 0.2004
DBD::ODBC : 1.22
DBD::Multiplex : 2.09
DBD::Gofer : 0.011565
DBD::File : 0.37
DBD::ExampleP : 12.010007
DBD::DBM : 0.03
####
use DBI;
use DBD::ODBC;
use strict;
use warnings;
DBI->trace(DBD::ODBC->parse_trace_flags('odbcconnection|odbcunicode'));
my $dbh = DBI->connect('dbi:ODBC:boutique', {RaiseError => 1, PrintError => 1} ); # data source set up in /etc/odbc.ini
my $table = "ARTICLES";
my $sql;
my $query;
my $result;
my ($i, $j);
$sql = SELECT "REF" FROM "$table" LIMIT 5|;
print qq~sql : $sql\n\n~;
$query = $dbh->prepare($sql);
$query->execute;
$result = $query->fetchall_arrayref();
for $i ( 0 .. $#{$result} ) {
print qq~row $i : \t~;
for $j ( 0 .. $#{$result->[$i]} ) {
if ($result->[$i][$j] eq ""){
print qq~NULL\t~;
} else {
print qq~$result->[$i][$j]\t~;
}
}
print qq~\n~;
}
$query->finish();
$dbh->disconnect();
####
sql : SELECT "REF" FROM "ARTICLES" LIMIT 5
Error at Line : syntax error near LIMIT
####
SQLDriverConnect 'boutique', 'HASH(0x8153c28)', 'xxxx'
SQLConnect 'boutique', 'HASH(0x8153c28)'
Turning autocommit on
DRIVER_ODBC_VER =
DRIVER_NAME =
DRIVER_VERSION =
DBD::ODBC is unicode built : NO
SQL_DBMS_NAME = zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
SQLMoreResults supported: 0
SQLDescribeParam supported: 0
SQLDescribeParam supported: 0
Processing sql in non-unicode mode
SQLDisconnect=0
####
export LC_TYPE=fr_FR