Discussion :

[Fatah93]

Bonjour,

Je travaille sous windows avec ActivePerl et j'aurais besoin d'installer
DBD-Pg. Donc je voudrais savoir si on peut l'installer avec PPM (losrque je met search DBD-Pg il ne trouve rien à part DBD-PgPP mais ce n'est pas ce que je cherche).
Donc si quelq'un sait comment l'installer, où le trouver, etc , ca m'aiderait.

Merci d'avance

[djibril]

lit la FAQ rédigée par nos soins. tu verras comment installer un modules et rajouter des repositories.

[Fatah93]

J'ai donc réussi à installer DBD-Pg à partir du site theoryx5.
Maintenant, j'ai une base postgres sous windows donc le nom est test, le propriétaire fatah et le mot de passe également fatah.
J'ai une table essai avec pour unique colonne un id de type integer.
Je lance ce script perl :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
use dbi;
$dbname = 'test';
my $dbh = DBI->connect("dbi:Pg:dbname=$dbname", 'fatah', 'fatah');
my $sel = $dbh->prepare('select * from essai;');
$sel->execute || die "pb";
print " id :";
while (my ($id) = $sel->fetchrow_array) {
 print " $id \n";
}
$sel->finish;
$dbh->disconnect;

Mais la seule chose qui se passe, c'est une fenêtre d'erreur qui me dit que perl command line interpreter a rencontré une erreur.
Donc ma question est est-ce que mes paramètres de la fonction connect son bon ou alors en manquent-ils.
Merci

[Mr6]

Et il dit quoi exactement comme erreur ?
A vu de nez c'est pas facile à deviner, tu peux toujours utiliser ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
die "Error width $action : " . $sth->errstr . "\n" if (!$sel);
die "Error width $action : " . $sth->errstr . "\n" if (!$sel->execute);

ca te permettra d'avoir des erreurs plus parlantes

[LE NEINDRE]

Dans ta requête, il faut enlever le ";".
De plus, fetchrow_array retourne un tableau, donc il faudra mettre @id et non $id.
Mais quel est ton message d'erreur ?

Bon courage,

PS: il n'y a pas d'host dans ton initialisation de connexion...

Voici le code que j'utilise pour me connecter à ma base mysql:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sub Connexion()
{
  my $dbh = DBI->connect("DBI:mysql:database=$Base;host=$Host",
                         "$User", "$Password",
                         {'RaiseError' => 1});
  return $dbh;
}