Cette idée qui me travere l'esprit est la suivante :
Elle concerne le Perl :
Je souhaite récupérer tous les drivers installé sur ma machine pour les connexion aux DB et pour chaque driver récupéré de cette facon, je voudrais récupérer la liste des DB existantes sur ma machine.
Pour ce la, voici e script que j'ai pondu :
#!C:/Perl/bin/perl.exe
use DBI;
my @driver_names = DBI->available_drivers;
my $nbDriver = @driver_names;
printf("Nombre de driver presents : %d\n",$nbDriver);
local $i = 0;
while( $i < $nbDriver )
{
$driver_names[$i++] = lc($driver_names[$i]);
}
# selection du type de base demande :
while (<>)
{
my $driver = $driver_names[$_];
printf("Driver 1 : %s\n",$driver);
local @ary;
if( @ary= DBI->data_sources($driver) ){0
my @base =split(/:/,$ary[0]);
printf("Nom de la base : %s\n",$base[2]);
}
else{
printf("Aucune base de donnee trouvee pour ce driver\n");
}
printf("\n---------------------------------\n");
}
Le pb, c'est que ca me donne bien la liste des drivers dispo mais quand je selectionne celui pour acceder aux bases de type mysql, il me dit qu'il n'y a aucune bases mysql sur ma machine alors que j'en ai 5 qui tournent...
Bon ca fait trois jour que je me suit mis au Perl alors ca doit être bourré de fautes... si qqun peut m'aider ?
Merci à tous
++
Access 2003
