Problème avec la méthode LoadFromFile de la propriété SQL d'un TADOQuery

Version imprimable

Salut à tous

Voilà j'ai écrit le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure TBDDPresimMainForm.BtnIdentifClick(Sender: TObject); var QID:TADOQuery; begin QID:= TADOQuery.Create(nil); QID.Connection:=LaConnection; if fileexists(CheminRequete+'Identification.txt') then begin QID.SQL.LoadFromFile(CheminRequete+'Identification.txt'); QID.Parameters.GetParamList(Liste,LesParam); QID.Parameters.ParamByName('usr').Value:=EDNom.Text; QID.Parameters.ParamByName('psw').Value:=EDMotDePasse.Text; QID.Open; if not(QID.Eof) then begin ID:=QID.FieldValues['Prenom']; LesPages.ActivePage:=PageMaintenance; end; QID.Free; end; end;
Le fichier "Identification.txt" contient la requête suivante
Code:

1 2 SELECT Prenom FROM t_utilisateurs WHERE Nom=:usr AND MotDePasse=MD5(:psw)
Le programme me met une exception comme quoi le paramètre "usr" n'existe pas.
Après avoir éliminé les sources d'erreurs évidentes (Genre le nom du fichier n'est pas bon), j'ai fini par examiner le contenu de la requête après l'avoir chargé. Et là elle contient tout un tas de caractères inaffichables.

Quelqu'un a t'il une idée de pourquoi LoadFromFile fait n'importe quoi

Après le chargement dynamique d'une requête je te conseil de faire un ParamCheck := True, comme cela tu es sûr qu'il cherchera à détecter les paramètres de la requête.

Après tu peux faire un test en chargeant ton fichier dans une TStringList.

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
26
27
28
29
30
 
procedure TBDDPresimMainForm.BtnIdentifClick(Sender: TObject);
var
  QID:TADOQuery;
  lst : TStringList;
begin
  QID:= TADOQuery.Create(nil);
  QID.Connection:=LaConnection;
  if fileexists(CheminRequete+'Identification.txt') then
   begin
    lst := TStringList.create;
    try
      lst.LoadFromFile(CheminRequete+'Identification.txt');
      QID.SQL.Text := lst.text;
    finally
      lst.free;
    end;
    QID.ParamCheck := True;
    QID.Parameters.GetParamList(Liste,LesParam);
    QID.Parameters.ParamByName('usr').Value:=EDNom.Text;
    QID.Parameters.ParamByName('psw').Value:=EDMotDePasse.Text;
    QID.Open;
    if not(QID.Eof) then
     begin
      ID:=QID.FieldValues['Prenom'];
      LesPages.ActivePage:=PageMaintenance;
     end;
   QID.Free;
 end;
end;

19/04/2010, 13h05
Gouyon

En passant par une TStringList ça fonctionne :ccool:. Mais j'aimerais bien comprendre pourquoi SQL.LoadFromFile (ou SQL.LoadFromStream j'ai essayé aussi) ne fonctionnent pas :furieux: