Problème avec DBI sur une bd access
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
|
my $dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Travail\\YGZ10003\\groupes.mdb" ;
$dbh = DBI->connect("dbi:ADO:$dsn", $usr, $pwd ) or die $DBI::errstr;
my $requete = "Select * from ListeGroupeResponsable where description_lgr IS NULL";
my $sql = $dbh->prepare($requete);
$sql->execute() or die $sql->errstr;
while(my $row = $sql->fetch())
{
my @resultat = recherche($row->[1],"(objectclass=group)");
foreach my $value (@resultat[0]->get_value("description")) {
print "$value\n";
}
my $description = $uref->fromUTF8("iso-8859-9",@resultat[0]->get_value("description"));
$description =~ s/'/''/g;
$description =~ s/"/\\"/g;
$requete = "update ListeGroupeResponsable set description_lgr=\'$description\' where emplacement_lgr = \'$row->[1]\'";
print "$requete\n";
$sql = $dbh->prepare($requete);
$sql->execute() or die $sql->errstr;
}
$sql->finish();
$dbh->disconnect; |
+/- 1 fois sur 2 je recois le message d'erreur suivant :
DBD::ADO::st fetch failed: Statement handle not marked as Active. at C:\DOCUME~1\u2505\Bureau\YGZ10003.pl line 103, <DATA> line 225.
la ligne 103 c'est :
Code:
$sql = $dbh->prepare($requete);
Merci d'avance!
