Salut,
Quand je veux executer ce code j'ai le message d'erreur suivant :
Query1: impossible d'effectuer cette operation sur un ensemble de donnees fermé
et quand je veux mettre, dans l'inspecteur d'objet la valeur active a true j'ai un autre message d'erreur :
Query1 : Aucune instruction SQL disponible
Alors comment faire pour sortir de ce cercle vicieux ?!!!
{-------------------------------------------}
with DM.Query1 do
begin
Close;
with SQL do
begin
Clear;
Add('Select * From Kiosque, Fact, Numero ';
Add('Where (Ref=:mref) and (kiosque.ref=fact.ref) ';
Add('and(kiosque.ref=numero.ref) and (BIM=:mbim) ';
Add('and(VINGT=:mvingt) and(NAPPEL LIKE :mpq) ';
end;
Params[0].AsString := DM.Kiosque.FieldByName('ref'.AsString;
Params[1].AsString := b;
Params[2].AsString := v;
Params[3].AsString := Edit1.Text+'%';
Open;
end;
Publicité
Posté le 07-05-2002 à 23:12:16
bello
Posté le 07-05-2002 à 23:30:58
C'est sur cette ligne la Params[0].AsString := DM.Kiosque.FieldByName('ref'.AsString