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(); |
[ORACLE] Erreurs Compilation avec connexion BDD
Répondre avec citation
Envoyé par oliviernouhi
.
. Et malheureusement, les personnes ayant réussis à faire cohabiter les 2 ne se signalent pas sur le forum afin de partager l'information, donc difficile d'aider tout le monde.
Partager