sub reste{
my $req=shift;
my $sth=$dbh->prepare($req);
return(0,$DBI::errstr) if $DBI::errtsr;
$sth->execute;
return(0,$DBI::errstr) if $DBI::errtsr;
while(@_=$sth->fetchrow_array){
print "non, reste !\n";
print "" . join "::",@_."\n";
}
return(1,"OK");
}
[^] # Re: Euh...
Posté par arthurr (site web personnel) . En réponse au journal PhpGenericDataBase - Classe en cours de devellopement. Évalué à 2.
my $req=shift;
my $sth=$dbh->prepare($req);
return(0,$DBI::errstr) if $DBI::errtsr;
$sth->execute;
return(0,$DBI::errstr) if $DBI::errtsr;
while(@_=$sth->fetchrow_array){
print "non, reste !\n";
print "" . join "::",@_."\n";
}
return(1,"OK");
}