[SQL Serveur] Effectuer une requête SQL en Perl
Bonjour,
je rencontre le problème suivant lorsque je tente d'effectuer une requête SQL sur une base SQL Server 2000 :
Code:
1
2
| DBI connect() failed: [Microsoft][Gestionnaire de pilotes ODBC]
Source de données introuvable et nom de pilote non spécifié (SQL-IM002) |
J'ai cru comprendre au fil de mes lectures sur Internet qu'il me manquait un module ou connecteur pour le SQL Server, mais je m'y perds un peu ! J'ai lu ce tuto (http://djibril.developpez.com/tutoriels/perl/perl-dbi/) et divers autres, mais sans effet. Il semble y avoir un problème de connectivité avec la base. Voilà mon code (j'ai masqué les données "sensibles" par xxx) :
Code:
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
| !/usr/bin/perl
use DBI;
use DBD::ODBC;
# Données de connexion à la base
$bd = 'xxx';
$hote = 'xxx';
$port = 'xxx';
$login = 'xxx';
$mdp = 'xxx';
# Source de données
$dsn ="DBI:ODBC:SQL Server:$bd:[$hote:$port]";
# Tentative de connection à la base de données
$dbh=DBI->connect($dsn,$login,$mdp);
# Requête SQL
$requete = "SELECT xxx";
# Préparation de la requête
$sth=$dbh->prepare($requete);
# Exécution de la requête
$cr=$sth->execute([@valeurs]);
# Termine le traitement, libère les ressources
$sth->finish ;
# Déconnection du serveur
$dbh->disconnect; |
Oui, pour l'instant je n'exploite pas les données que je récupère avec mon SELECT, mais j'aimerais d'abord réussir à accéder à la BDD ^^
Merci d'avance pour votre aide !
