cs_apz
Messages postés281Date d'inscriptiondimanche 7 avril 2002StatutMembreDernière intervention11 avril 2013
-
7 mai 2002 à 23:27
cs_apz
Messages postés281Date d'inscriptiondimanche 7 avril 2002StatutMembreDernière intervention11 avril 2013
-
16 mai 2002 à 02:06
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;
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 8 mai 2002 à 01:59
Le Active du TQuery n'a pas besoin d'être à True. Par contre DM.Kiosque doit être ouvert au moment de l'appel de FieldByName, sinon tu as effectivement l'erreur. ( vérifie bien ce point )
Sinon quand tu lances l'application dans Delphi, sur quelle ligne Delphi indique-t-il l'erreur ?
Ethan00000
Messages postés25Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention14 mars 2003 13 mai 2002 à 09:58
j'ai l'impression que l'erreur vient de := de ref:=mref remplace par = car c'est le sql que tu utilise la et non mle language delphi regarde si l'erreur n'apparait plus remplace le := et =: par =
cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 14 mai 2002 à 22:32
Que fais-tu au démarrage de l'application ?
Alors que fais-tu de particulier dans les OnCreate ?
Utilises-tu les évènement OnChange ou OnScroll sur les TTable,TQuery ?
Et surtout pourquoi dis-tu que c'est cette requète qui pose un problème ?
Essaye aussi de mettre des Try Except un peu partout sur tous les accès BDD :
Try
<Mon traitement>
Except
On e:Exception Do ShowMesssage('L''erreur est :'#13+E.message);
End;