Probléme de connexion à la base de donnée mysql avec perl
rimrita
Messages postés
22
Statut
Membre
-
rimrita Messages postés 22 Statut Membre -
rimrita Messages postés 22 Statut Membre -
Bonjour,
Je veux me connecter à une base mysql avec wamppour y insérer des données
j'ai configuré le fichier de configuration httpd comme suit
par la suite j'ai installé l'ODBC
dés que j'execute mon script , il me parait que la cnx n'a pas établit
car le message : connexion a la base de donnée log et le console se ferme aprés quleques seconde sans laisser de trace mon script:
Je veux me connecter à une base mysql avec wamppour y insérer des données
j'ai configuré le fichier de configuration httpd comme suit
par la suite j'ai installé l'ODBC
dés que j'execute mon script , il me parait que la cnx n'a pas établit
car le message : connexion a la base de donnée log et le console se ferme aprés quleques seconde sans laisser de trace mon script:
#!/usr/bin/perl
use warnings;
use strict;
use Encode;
use utf8;
use DBI;
# DBD::ODBC
my $dsn = 'DBI:ODBC:Driver={SQL Server}';
my $host = '127.0.0.1';
my $database = 'log';
my $user = 'root';
my $auth = '';
# Connect via DBD::ODBC by specifying the DSN dynamically.
print "Connexion à la base de données $database\n";
my $dbh = DBI->connect("$dsn;Server=$host;Database=$database",
$user,
$auth,
{ RaiseError => 1, AutoCommit => 1}
) || die "Database connection not made: $DBI::errstr";
# Création des tables
print "Création de la table Regions\n";
my $sql_creation_table_regions = <<"SQL";
CREATE TABLE Regions (
id_region INT NOT NULL ,
cheflieu VARCHAR( 6 ) NOT NULL ,
tncc INT NOT NULL ,
ncc VARCHAR( 100 ) NOT NULL ,
nccenr VARCHAR( 100 ) NOT NULL ,
PRIMARY KEY ( id_region )
) COMMENT = 'LES REGIONS 2013 EN FRANCE';
SQL
$dbh->do('DROP TABLE IF EXISTS Regions;') or die "Impossible de supprimer la table Regions\n\n";
$dbh->do($sql_creation_table_regions) or die "Impossible de créer la table Regions\n\n";
$dbh->disconnect();
<>;
2 réponses
-
Salut rimrita,
Je n'utilise pas SQL Server, mais tu devrais lire : https://metacpan.org/pod/release/JURL/DBD-ODBC-1.13/ODBC.pm#Using_DBD::ODBC_with_web_servers_under_Win32.
où on te donne l'exemple suivant avec MSSQL Server :
my $DSN = 'driver={SQL Server};Server=server_name; database=database_name;uid=user;pwd=password;'; my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";
Note que :
- c'estdbi:ODBC
dans le premier argument deconnect
, et pasDBI:ODBC
,
- les paramètres de connexion sont passés dans ce premier argument, à la suite dedbi:ODBC:
comme indiqué dans l'exemple, et non comme arguments additionnels àconnect
.
Dal -