Probléme de connexion à la base de donnée mysql avec perl

Fermé
rimrita Messages postés 18 Date d'inscription lundi 31 mars 2014 Statut Membre Dernière intervention 15 avril 2014 - 7 avril 2014 à 11:39
rimrita Messages postés 18 Date d'inscription lundi 31 mars 2014 Statut Membre Dernière intervention 15 avril 2014 - 9 avril 2014 à 10:05
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:
#!/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();
<>;

A voir également:

2 réponses

[Dal] Messages postés 6194 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 11 octobre 2024 1 092
Modifié par [Dal] le 8/04/2014 à 10:04
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'est
dbi:ODBC
dans le premier argument de
connect
, et pas
DBI:ODBC
,
- les paramètres de connexion sont passés dans ce premier argument, à la suite de
dbi:ODBC:
comme indiqué dans l'exemple, et non comme arguments additionnels à
connect
.


Dal
0
rimrita Messages postés 18 Date d'inscription lundi 31 mars 2014 Statut Membre Dernière intervention 15 avril 2014
9 avril 2014 à 10:05
je vais essayer merci
0