Bonjour,

Je viens d'installer ActivePerl 5.10 pour faire des connexion avec ma BDD Oracle.
Lorsque je fais perl monfichier.pl, j'ai ce message d'erreur :

C'est un message d'erreur qui pop :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Le point d'entre de procédure OCIPing est introuvable dans la bibliothèque de liaisons dynamique OCI.dll
Suivi de :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Can't load 'C:/Perl/lib/auto/DBD/Oracle/Oracle.dll' for module DBD::Oracle: load
_file:La procÚdure spÚcifiÚe est introuvable at C:/Perl/lib/DynaLoader.pm line 2
01.
 at exemple.pl line 7
Compilation failed in require at exemple.pl line 7.
BEGIN failed--compilation aborted at exemple.pl line 7.
Mon code :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#!/usr/bin/perl
 
use warnings;
use strict;
use DBI;    # Charger le module DBI
# use DBD;
use DBD::oracle;
 
# Parametres de connexion à la base de données
my $BaseDeDonnees = "EDEVALG";
my $NomHote       = "ALGER-AD"; # Il est possible de mettre une adresse IP 
my $login         = "Centura";   # Login
my $MotDePass     = "centura";   # Mot de pass
 
# Connection à la base de données Oracle
my $dbh = DBI->connect( "dbi:Oracle:dbname=$BaseDeDonnees;host=$NomHote;",$login, $MotDePass )
    or die "Connection impossible à la base de donnees $BaseDeDonnees !";
 
# Creation des tables
print "Creation de la table Forms\n";
my $SQLCreationTablesForms = <<"SQL";
CREATE TABLE Forms (
  id_Forms INT NOT NULL ,
  ligne INT NOT NULL ,
  name VARCHAR( 250 ) NOT NULL ,
  class VARCHAR( 250 ) NOT NULL ,
  property VARCHAR( 250 ) NOT NULL ,
  class_Dll VARCHAR( 250 ) NOT NULL ,
  title VARCHAR( 250 ) NOT NULL ,
  accessories VARCHAR( 250 ) NOT NULL ,
  visible VARCHAR( 250 ) NOT NULL ,
  description VARCHAR( 250 ) NOT NULL ,
  PRIMARY KEY ( id_Forms )
) COMMENT = 'Tableau des fenetres';
SQL
 
$dbh->do($SQLCreationTablesForms) # méthode do pour inserer des données
    or die "Impossible de creer la table Forms\n\n";
 
# Lecture des fichiers et insertion des données
my $FichierForms = "parserForms.txt";
 
# Fichier parserForms
print "Insertion des donnees dans la table Forms\n";
 
open( my $FhForms, '<', $FichierForms )
    or die("Impossible de lire le fichier $FichierForms\n");
my $EnteteFichierForms = <$FhForms>;
 
while ( my $ligne = <$FhForms> ) {
    chomp $ligne;
    my ( $Id, $Ligne, $Name, $Class, $Property, $Class_Dll, $Title, $Accessories, $Visible, $Description ) = split( /\t/, $ligne );
 
    # Insertion des données
    my $RequeteSQL = <<"SQL";
  INSERT INTO Forms ( id_Forms, ligne, name, class, property, class_Dll, title, accessories, visible, description )
  VALUES ( "$Id, $Ligne, $Name, $Class, $Property, $Class_Dll, $Title, $Accessories, $Visible, $Description" );
SQL
 
    $dbh->do($RequeteSQL) or die "Echec Requete $RequeteSQL : $DBI::errstr";
}
close($FhForms);
 
# Déconnection à la base de données
$dbh->disconnect();
Quelqu'un pourrait m'aider svp ?