Discussion :

[ZIED]

Bonjour
J'ai crée le fichier SQL 'qrHoraire.sql' suivant et je l'ai mis dans le même répertoire que mon exécutable

Code :

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

1
2
3
 
select * from horaire
where shift= :shift ;

Ensuite 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
 
procedure TfmConfig.FormShow(Sender: TObject);
begin
DataModule3.qrSeica.SQL.Clear;
DataModule3.qrSeica.SQL.LoadFromFile('.\qrHoraire.sql');
DataModule3.qrSeica.ParamCheck:=true;
 
with Datamodule3.qrSeica.Parameters.AddParameter do
begin
  DataType := ftString;
  Value := 'Matin';
end;
 
DataModule3.qrSeica.Active:=true;
JvTime1.Time:=DataModule3.qrSeica.FieldByName('h_debut').AsDateTime;
JvTime2.Time:=DataModule3.qrSeica.FieldByName('h_fin').AsDateTime;
end;

J'ai deux problèmes :
1- Quand j'affiche le contenu de ma requête dans un memo juste après l'instruction :

Code :

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

DataModule3.qrSeica.SQL.LoadFromFile('.\qrHoraire.sql');

j'obtiens un résultat bizarre du type:

?????????ngs/zied/mes documents

Quand je fais

Code :

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

memo1.lines.LoadFromFile('.\qrHoraire.sql');

j'obtiens un résultat identique au contenu du fichier SQL :

select * from horaire
where shift= :shift ;

2- Ensuite, j'ai rajouté la suite du code et quand j'ai fait la compilation, j'ai obtenu l'erreur suivante :

ftString : undeclared identifier

bienque j'ai mis ADODB dans la clause uses.

Suis-je entrain d'utiliser la bonne méthode?
Que dois-je faire pour résoudre ces problèmes.
merci

[Rayek]

Je te conseil d'utiliser plutot de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With DataModule3.qrSeica do
begin
  Close;
  SQL.Clear;
  SQL.LoadFromFile('.\qrHoraire.sql');
  ParamCheck:=true;
  Parameters.ParambyName('shift').Value := 'Matin';
  Open;
end;

[ZIED]

Bonjour,
merci pour cette réponse mais ça ne permet pas de résoudre mes problèmes.
1- Avec cette instruction

Code :

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

SQL.LoadFromFile('.\qrHoraire.sql');

Le contenu de ma requête est toujours le même :

?????????ngs/zied/mes documents

Je suis obligé de passer par un memo pour contourner ce problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
memo1.clear;
memo1.lines.loadfromfile('.\qrHoraire.sql');
With DataModule3.qrSeica do
begin
  Close;
  SQL.Clear;
  sql.Add(Memo1.Lines.Text);
  Parameters.ParambyName('shift').Value := 'Matin';
  Open;
end;

2 -Mais par la suite à l'exécution, j'ai une erreur du type

paramaètre Shift inconnu

[Rayek]

Le problème doit venir d'ailleurs.
Vu que qrSeica.SQL et Memo1.Lines sont tous deux de type TStrings, le LoadfromFile fonctionne de la même manière.

Test déjà une chose simple, ouvre ton fichier sql avec le bloc-notes.

Sinon il manque une ligne dans le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With DataModule3.qrSeica do
begin
  Close;
  SQL.Clear;
  SQL.LoadFromFile('.\qrHoraire.sql');
  //----------------------
  // Il faut absolument le mettre ca oblige le composant à rechercher les paramètres dans la requete
  ParamCheck:=true; 
  // ----------------------
  Parameters.ParambyName('shift').Value := 'Matin';
  Open;
end;

[ZIED]

Mon fichier SQl a été crée avec bloc notes.
Par rapport à la ligne

Code :

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

paramchek:=true

Elle exite bien dans mon code delphi. c'est juste une omission dans mon post.
J'ai l'impression que mon composant ADOquery fonctionne d'une manière très aléatoire!!!

[Rayek]

Je crois avoir vu le problème. Le nom du champ et du paramètre ont le même nom ...

Pour eviter ce genre de problème, quand tu mets un paramètre dans une requete utilise un préfixe P_Shift (ou PShift)

[ZIED]

ça aussi j'ai fait.
j'ai mis un paramètre nommé sift au lieu de shift mais le résultat est le même.

[Rayek]

Et en dur directement est ce qu'elle fonctionne ?

[ZIED]

OUI ça marche

[Rayek]

Rajoute une ligne pour faire une sauvegarde de la requete comme-ci dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
With DataModule3.qrSeica do
begin
  Close;
  SQL.Clear;
  SQL.LoadFromFile('.\qrHoraire.sql');
  ParamCheck:=true; 
  Parameters.ParambyName('shift').Value := 'Matin';
  SQL.SaveToFile(ExtractFilePath(Application.ExeName) + 'test.txt');
  Open;
end;

et tu regardes ce que tu as dans le fichier test.txt