Discussion :

[zarbydigital]

Salut !

Petite question.

J'ai un petit TForm avec un TADOQuery (Que j'aimerais remplacer par un TADODataSet d'ailleur...). et un TEdit.

J'aimerais entrer la valeur de mon TEdit dans ma requête SQL. Est-ce que c'est possible.

Genre :

Code :

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

1
2
SELECT * FROM tb_client
WHERE client_pk = Edit1.Text

J'aimerais aller plus loin encore en introduisant dans la requête SQL des variables de mon application

Merci d'avance et bonne prog

ZD

[qi130]

Oui, c'est possible :

Code :

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

1
2
Maquery.SQL.Text:='SELECT * FROM tb_client 
WHERE client_pk ='+ Edit1.Text;

Pour les paramètres :

Code :

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

1
2
Maquery.SQL.Text:='SELECT * FROM tb_client WHERE client_pk = :PK_CLIENT';
Maquery.SQL.ParamByName('PK_CLIENT').AsString:=Edit1.Text;

[rsc]

Oui, c'est possible :

Code :

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

1
2
Maquery.SQL.Text:='SELECT * FROM tb_client 
WHERE client_pk ='+ Edit1.Text;

Pour les paramètres :

Code :

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

1
2
Maquery.SQL.Text:='SELECT * FROM tb_client WHERE client_pk = :PK_CLIENT';
Maquery.SQL.ParamByName('PK_CLIENT').AsString:=Edit1.Text;

Attention avec le premier code : si le champ est le type alphanumérique, il faut écrire :

Code :

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

1
2
Maquery.SQL.Text:='SELECT * FROM tb_client 
WHERE client_pk ='+ QuotedStr (Edit1.Text);

Avec le 2ème code, cet aspect numérique / alphanum. est géré en interne.