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 -
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();
<>;

2 réponses

  1. [Dal] Messages postés 6122 Date d'inscription   Statut Contributeur Dernière intervention   1 108
     
    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
  2. rimrita Messages postés 22 Statut Membre
     
    je vais essayer merci
    0