Bonjour,

j'ai un souci lors de mes essais de connexions à une base Postgresql.

Voici le message que windows me ramène :
"L'ordinal 120 est introuvable dans la bibliothèque de liaisons dynamique LIBPQ.dll".


voici ce que j'ai écrit pour mes essais:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /perl/bin/perl -w
 
use strict;
use warnings;
use DBI;
 
my $bd = 'nom_de_la_table'; 
my $identifiant = 'identifiant'; 
my $motdepasse = 'mot_2_passe';
 
  my $dbh1 = DBI->connect( "dbi:Pg:dbname=$bd", $identifiant, $motdepasse ) 
  or die "Connexion impossible à la base de données $bd !";
 
  my $requete = "select count(*) from la_table where condition = 'toto' and date like '2013%'";
 
  my $sth1=$dbh1->prepare($requete);
$sth1->execute();
while (my @enr1 = $sth1 -> fetchrow_array) {
print "$enr1[0]\n";
}

et voici ce que DOS m'indique comme erreur.

install_driver(Pg) failed: Can't load 'C:/Perl/site/lib/auto/DBD/Pg/Pg.dll' for
module DBD:g: load_file:Le systÞme d'exploitation ne peut pas exÚcuter %1 at C
:/Perl/lib/DynaLoader.pm line 201.
at (eval 5) line 3
Compilation failed in require at (eval 5) line 3.
Perhaps a required shared library or dll isn't installed where expected
at C:\Perl\erecrut\test_connexion.pl line 12
Merci de votre aide.