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
|
#!C:/Perl/bin/perl
#
BEGIN { $ENV{DBI_SQL_NANO}=1 } ;
use DBI ;
#########################################################################################################################################
#
# Connexion à la base de donnees SQL
#
#########################################################################################################################################
my $utilisateur = 'user' ;
my $motdepasse = 'mdp' ;
my $database = 'DBI:mysql:transmanuf:152.13.54.192' ;
my $db = DBI->connect($database, $utilisateur, $motdepasse, { PrintError => 0 , AutoCommit => 1 } ) or PbConFTP::pb_con_db( $DBI::errstr ) ;
#########################################################################################################################################
#
# Ici un exemple de requete SQL retournée dans un hash
# Pour info tu peux aller dans l'aide dispo sous /perl/html (je la trouve bien expliquée)
#
#########################################################################################################################################
my $result_hash = $db->selectall_hashref( "SELECT * FROM table WHERE Societe='temp' AND Affaire='1234'" , "Affaire" ) ; |
Partager