Aktion entsprechend ComboBox...

[Die Muhkuh]

Zitat von DeddyH:

[edit] Die Kuh war schneller [/edit]

Ich bin ja auch noch ein bisschen jünger als Du.

[DeddyH]

[OT] That' s right [/OT]

[freak4fun]

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

[Stern]

Ich wurde noch nie sooo nett mit Ratschlägen überhäuft wie in diesem Forum...

Vielen, vielen lieben Dank.
Liebe Grüße
Steffi

[Sharky]

Hai Steffi,

ich habe noch eine Anmerkung zu deinem Code.
Du solltest versuchen in dem Caseblock keinen redundanten Code verwenden. Zum eines sparst Du einige Zeilen und zum anderen wird der Code übersichtlicher.

Delphi-Quellcode:

begin
  qrMain.Close;
  qrMail.SQL.Clear; // Wenn sichergestellt ist das immer ein SQL.Text := kommt muss man das Statment nicht vorher löschen.
  case ComboBox1.ItemIndex of
      0: qrMain.SQL.Text := 'SELECT blabla1;';
      1: begin
          qrMain.SQL.Text := 'SELECT blabla2;';
          qrMain.ParamByName('jahr').asString := Jahr;
         end;
  end;
  if (qrMain.SQL.Text <> '') then // und kann sich dann auch diese Abfrage sparen.
  begin
    qrMain.Open;
  end;

[Die Muhkuh]

Hi,

gute Idee Stephan, wobei man aber vielleicht noch einen zusätzlichen Boolean einbaut, mit dem man wahlweise die Anweisung .Open oder .Execute aufruft, falls vielleicht doch ein UPDATE- oder DELETE-Statement auftaucht.