#!/usr/bin/perl
use strict;
use DBI;

#Définition des arguments de connexion
my $dbargs = {AutoCommit => 0,
PrintError => 1};

#Connexion à la base SQLite
my $dbh1 = DBI->connect(« dbi:SQLite2:dbname=/chemin/db », »", »",$dbargs);

#Affichage du message d’erreur si c’est le cas
if ($dbh1->err()) { die « $DBI::errstr\n »; }

#Préparation de la requête
my $sSql= « SELECT * FROM SQLITE_MASTER »;
my $statement = $dbh1->prepare($sSql);

#Exécution de la requête
$statement->execute();

#Affichage du résultat
while (my $row = $statement->fetchrow_arrayref) {
print join(« \t », @$row), « \n »;
}

#Déconnexion
$dbh1->disconnect();

This entry was posted on 13 janvier 2009 at 11 h 02 min. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Posted in Base de donnée Programmation by admin Pas encore de Commentaires