Discussion :

[tfdarklink]

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!

[Jedai]

Tu modifie $sql alors que tu n'as pas fini de récupérer les éléments de la précédente requête. Je ne suis pas sûr que ce soit le problème, mais déjà je suis raisonnablement sûr que c'est une erreur... D'autant que je ne suis pas sûr que la valeur de cette nouvelle requête ("update ...") sois approprié pour faire un fetch par la suite.

--
Jedaï

[tfdarklink]

MERCI!!!! je n'avais pas vu... j'ai tellement passé de temps sur ce programme que j'ai les 2 yeux dans le même troue