Einzelnen Beitrag anzeigen

Benutzerbild von Flo
Flo

Registriert seit: 30. Mär 2003
Ort: Süd-Niedersachsen
81 Beiträge
 
Delphi 5 Professional
 
#4
  Alt 22. Apr 2003, 10:33
Danke erst einmal für eure Antworten.

@MrSpock
Soweit habe ich das hinbekommen. Aber ich weiß jetzt nicht, wie ich den Code per Buttonclick aufrufe.

@APP
Hab deinen Code auch mal ausprobiert, aber der klappt irgendwie nicht Hab ihn natürlich auch angepasst ! Hier ist er:
Delphi-Quellcode:
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
WITH Query1 DO
    BEGIN
        Close;
        WITH SQL DO
          BEGIN
            Clear;
            Add('SELECT * ');
            Add('FROM kosten.db');
            Add('WHERE abteilung = ' + CHR(39) + Edit1.Text + CHR(39));
            Add('AND reihe = ' + CHR(39) + edit2.Text + CHR(39)); // Lookupcombobox
            Add('AND Nr <= ' + CHR(39) + edit3.text + CHR(39));
          END;
        Query1.Active := True;
        Open;
      END;

end;
MfG
Florian

SwapIt!:
  Mit Zitat antworten Zitat