Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
$sql = $dbh->prepare($requete);
Merci d'avance!