problem avec ado query

SALUT,
J'ai un code et ça marche bien quand je cherche un numéro dans une colonne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.sEdit1Change(Sender: TObject); var a :integer; begin IF sEdit1.Text <> '' then begin a:=strtoint(sEdit1.Text); adoquery1.active:=false; adoquery1.sql.clear; ADOQuery1.SQL.Add('select * from employé where num_emp='+inttostr(a)); adoquery1.open; end else begin adoquery1.active:=false; adoquery1.sql.clear; ADOQuery1.SQL.Add('select * from employé'); adoquery1.open; end; end;

---

Ce que je veux, c'est le même code, mais quand je cherche un nom dans une colonne et quand je cherche une date dans une autre colonne merci
Ps: Je sais que je n'ai pas bien écrit le code Parce que l'interface de site est mobile il n'ya pas loptions de ajoute le code comme linterface classic et moi jai utilize tablet et meme quand jai utilize linterface classic du cite il n'ya pas loptions de code ?

Bonjour,

Utilisez une requête paramétrée et ce sera plus facile (quoique avec ADO :roll:) surtout pour les dates

String :

Code:

---

1 2 3

// Solution 1 adoquery1.active:=false; ADOQuery1.SQL.Text:='Select * from employé where nom='+QuotedStr(editnom.text);

---

Solution avec query paramétrée

Code:

---

1 2 3 4

adoquery1.active:=false; ADOQuery1.SQL.Text:='select * from employé where nom=:N'; ADOQuery1.Parameters.ParamByName('N').asString := editnom.text;

---

Date
seule la solution avec query paramétrée est vraiment acceptable car le format de la date dépend du SGBD

Code:

---

1 2 3 4

adoquery1.active:=false; ADOQuery1.SQL.Text:='select * from employé where unedate=:D'; ADOQuery1.Parameters.ParamByName('D').asDateTime := DateTimePicker1.date;

---

NOTE : Avec ADOQuery il peut être nécessaire de déclarer explicitement les paramètres, comme ce n'est pas ma tasse de thé j'ai fait au plus court