Discussion :

[Gouyon]

Salut à tous

Voilà j'ai écrit le code suivant

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
 
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Rayek]

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 :

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
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;

[Gouyon]

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