Bonjour,
J'ai un problème avec ce code et je ne sais comment le résoudre.
Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 ADODataSet1.Close; if ListFiltr1.ItemIndex = 0 then ADODataSet1.CommandText := 'select [EmployeeID],LastName,FirstName,Title,City from Employees where ' + ListeChampTxt.Items[ListeChampTxt.ItemIndex] +'= "' + TxtCherche.text + '" order by ' + ListTrie.Items[ListTrie.ItemIndex] + TxtTrie; ADODataSet1.Active := True; ADODataSet1.Requery(); end;
Partager