Delphi-Quellcode:
if ComboBox1.Text = '
aktion1'
then
with qrMain
do
begin
SQL.Clear;
SQL.Text:= '
SELECT blablabla;';
Active:= True;
open;
end;
Das with ... do ersetzt das qrMain vor jeder Anweisung, ersparrt somit Schreibarbeit.
Das begin ... end bewirkt, das alles Ausgeführt wird und nicht nur eine Zeile.
Ich hoffe das hilft dir weiter.
MfG
freak