requete SQL basée sur une valeur d'un edit

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:

---

1 2 3

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

---

Mais sa amrche pas :(:?

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:

---

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

---

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

Bonjour et je te souhaite la Bienvenue sur le forum

correction de syntaxe

Code:

---

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:

---

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

---

et

Code:

---

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:

---

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:

---

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;

---