Discussion :

[imeneimene]

Bonjour tout le monde

Je suis débutante en delphi , je travaille avec delphi 7 , paradox et je veux réaliser la requetes suivante :

Afficher les enregistrements de la table VLR ( qui contient les champs Adr_VLR , MSRN ,IMSI ) dans lesquels le MSRN est égale a une valeur entré dans un EDIT

Jai essayé le code suivant :

Code :

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

1
2
3
Select * 
from VLR.DB
where MSRN  LIKE   '+quotedStr(Edit1.Text+'%');

Mais sa amrche pas

[pacmann]

Salut !

C'est plus de la syntaxe Delphi... donc tu trouveras surement plus d'aide sur le forum Delphi de ce même site !

Enfin malgré tout, à tout hasard :

Code :

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

1
2
 
'+quotedStr(Edit1.Text+'%');

=> le premier ' (devant le +quotedStr) ne serait-il pas en trop ?

[SergioMaster]

Bonjour et je te souhaite la Bienvenue sur le forum

correction de syntaxe

Code :

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

1
2
3
4
5
6
 
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add:='Select * from VLR.DB';
Query1.SQL.Add:='where MSRN  LIKE   '+quotedStr(Edit1.Text+'%');
Query1.Open;

Première remarque , il vaut mieux utiliser des requêtes paramétrées
de plus celles-ci permettent de mettre le SQL directement au niveau des propriétés de la Tquery , donc soit :

Code propriété Query.SQL :

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

1
2
 
SELECT * FROM  VLR.DB WHERE MSRN LIKE :P

et

Code :

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

1
2
3
4
 
Query1.Close;
Query1.ParamByName('P').asString:=Edit1.Text+'%';
Query1.Open;

P.S. Ne pas oublier de définir le paramètre P au niveau des propriété du Tquery

Soit :

Code :

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

1
2
3
4
5
6
7
 
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add:='Select * from VLR.DB';
Query1.SQL.Add:='where MSRN  LIKE :P';
Query1.ParamByName('P').asString:=Edit1.Text+'%';
Query1.Open;

Seconde remarque , il vaut mieux utiliser STARTING WITH que like

Code :

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

1
2
3
4
5
6
7
 
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add:='Select * from VLR.DB';
Query1.SQL.Add:='where MSRN  STARTING WITH :P');
Query1.ParamByName('P').asString:=Edit1.Text;
Query1.Open;