1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
#!C:/perl/bin/perl.exe -w
use strict;
use DBI;
my $db = DBI -> connect ("dbi:Mysql:dbname=GTech","root","******") or die "connection impossible!";
$db->do("insert into client values ('1', 'Facop');")|| die "pb de requete : $DBI::errstr";
my $requete="select id_cli,intitule from client;";
my $version = $dbp->prepare($requete);
$version-> execute() || die "pb de selection : $DBI::errstr";
while (my ($id_cli, $intitule) = $version -> fetchrow_array)
{
print "result: $id_cli du jour $intitule\n";
}
$version-> finish();
$db->disconnect(); |