Discussion :

[OR34a]

Bonjour à tous,
Je souhaite faire une sélection sur une base de données SQLITE et pour cela j'utilise dans un formulaire* :
- Un contrôle RadioGroup avec 3 options me permettant d'identifier et de choisir le champ qui fera l'objet de la sélection,
- Un Tedit destiné à renseigner la valeur du critère de sélection (chaîne de caractères),
- Une base gérée par Zeos (que je peux parcourir sans problèmes) avant de me lancer dans le processus de sélection (TZConnection ZC_Stock, TZQuery ZQ_Stock, DTdatasource Dats_Stock).
- Une série de contrôle TDB_Edit destiné à afficher la base de donnée et, après sélection, à afficher les résulats corespondant à cette sélection.
J'ai programmé les lignes de code suivantes*:

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
31
32
33
34
35
36
37
38
procedure TFormProduit.BT_selectClick(Sender: TObject);
 
var selchamp1 : String ;
Var ValueRG : integer;
Var SQLselect1 : String ;
Var Nb_EnrSel : String;
begin
 ValueRG := Integer(RG_choixsel.ItemIndex);
 Case  ValueRG of
 0 : selchamp1 := 'Produits' ;
 1 : selchamp1 := 'Designation' ;
 2 : selchamp1 := 'Categorie'  ;
 end ;
 Label7.caption :=  'N° ' + selChamp1 ;
// construction de la variable contenant la requête SQL
   SQLselect1 := 'SELECT * from SProduit WHERE ' + selchamp1 + '=' +  QuotedStr(Ed_CritSelect.text) ;  //requête
 
 // exécution de la requête SQL
 Try
 ZQ_Stock.active := False ;
 ZQ_Stock.SQL.Clear ;
 ZQ_Stock.Datasource := Datas_Stock ;
 ZQ_Stock.SQL.text := SQLselect1 ;
 ZQ_Stock.active := True;
 
 
 ZQ_Stock.execSQL ;
 
 finally
  ZQ_Stock.free ;
 end;
// affichage des résultats de la requête
//Nb_EnrSel := intToStr(ZQ_Stock.recordcount);
Label6.caption :=SQLselect1 ; //Nb_EnrSel + ' sélectionnés' ;
 
// DBED_Produit.text := ZT_Stock.fieldbyname('Produits').asString;
 
end;

La construction de la requête a pour résultat (valeur de SQLselect1 :
Select * from SPRODUIT (nom de la table) WHERE Produits (le nom du champ) = 'Toto' (la valeurs choisie du champ entrée dans le TEDIT
.
Lorsque je lance cette procédure, le logiciel se bloque et rien ne se passe. Impossible de localiser l'erreur commise. J'ajoute que la valeur Toto est entourée de simples quotes et non pas de doubles comme dans le gestionnaire de base SQLITE SQlite admin que j'utilise pour tester le résultat de mon code.
Quelqu'un, en cette période de farniente national, aurait-il une piste ?

Merci

R.O.

[Nullosse]

hello,

Essaie ceci :

Code :

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

ZQ_Stock.Open ;

à la place de :

Code :

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

ZQ_Stock.execSQL ;

- Open qu'avec des requêtes de type Select.
- ExecSql qu'avec des requêtes de type Insert, Delete ou Update.

Amicalement, Nullosse

[OR34a]

Bonsoir,
Merci pour la suggestion. Il y avait en plus d'autres erreurs de code mais cela a marché. Je coche donc la discussion comme "résolue".
Mais pourquoi donc existe-il toutes ces subtilités dans le langage dans Lazarus ?
entre un ExecSQL et un Open quelle est l'origine de la différence ?
Merci encore

R.O.

[e-ric]

Salut

ExecSQL est là pour exécuter un commande (INSER, UPDATE...) sans retour de données, donc ne convient pas à un SELECT.

Open est là pour ouvrir un ensemble de données et donc à utiliser avec SELECT.

Il n'y a pas de subtilité particulière à cela, ça marche pareil dans Delphi.

En outre,

Code :

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

ZQ_Stock.active := True;

est équivalent à

Code :

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

ZQ_Stock.Open;

@+

[e-ric]

Bonjour à tous,

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
31
32
33
34
35
36
37
38
procedure TFormProduit.BT_selectClick(Sender: TObject);
 
var selchamp1 : String ;
Var ValueRG : integer;
Var SQLselect1 : String ;
Var Nb_EnrSel : String;
begin
 ValueRG := Integer(RG_choixsel.ItemIndex);
 Case  ValueRG of
 0 : selchamp1 := 'Produits' ;
 1 : selchamp1 := 'Designation' ;
 2 : selchamp1 := 'Categorie'  ;
 end ;
 Label7.caption :=  'N° ' + selChamp1 ;
// construction de la variable contenant la requête SQL
   SQLselect1 := 'SELECT * from SProduit WHERE ' + selchamp1 + '=' +  QuotedStr(Ed_CritSelect.text) ;  //requête
 
 // exécution de la requête SQL
 Try
 ZQ_Stock.active := False ;
 ZQ_Stock.SQL.Clear ;
 ZQ_Stock.Datasource := Datas_Stock ;
 ZQ_Stock.SQL.text := SQLselect1 ;
 ZQ_Stock.active := True;
 
 
 ZQ_Stock.execSQL ;
 
 finally
  ZQ_Stock.free ;
 end;
// affichage des résultats de la requête
//Nb_EnrSel := intToStr(ZQ_Stock.recordcount);
Label6.caption :=SQLselect1 ; //Nb_EnrSel + ' sélectionnés' ;
 
// DBED_Produit.text := ZT_Stock.fieldbyname('Produits').asString;
 
end;

Il ne faut surtout pas libérer ta requête avec Free, en effet tu récupères les données puis tu libères l'objet requête et donc les données récupérées avec, autant ne rien faire...

La libération immédiate de l'objet serait légitime avec un ordre de mise à jour (INSERT...) demandé à l'aide de ExecSQL qui ne produirait pas d'ensemble résultat. Je pense que ton code est une reprise mal adapatée d'un autre morceau de code.

En outre, la libération d'un objet dans un procédure sans qu'il y ait eu d'allocation dans la même procédure est peut être douteux. Est-ce que ZQ_Stock est un objet placé en conception ?

@+