Ik heb een probleem met het filteren van een database met behulp van ado, graag het filter gebruiken maar in dat veld moet je het = teken gebruiken, en nu weet ik niet hoe ik de parameters moet samenvoegen??
Delphi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| procedure TForm1.BFilterClick(Sender: TObject); var filterkeuze : string; filterveld : string; begin If EFilter.Text = '' Then showmessage('Er is niks om te filteren') ELSE If Filterbox.Text = 'Filter Keuze' Then showmessage('kies een veldnaam') Else Begin Filterkeuze := EFilter.Text; filterveld := Filterbox.text adotable1.Filter := filterveld=Filterkeuze end; end; |
