Einzelnen Beitrag anzeigen

Benutzerbild von APP
APP

Registriert seit: 24. Feb 2003
Ort: Graz (A)
705 Beiträge
 
Delphi 7 Enterprise
 
#3
  Alt 22. Apr 2003, 06:39
Hallo,

ich hätte noch einen anderen Ansatz zu anzubieten, ohne der Parameterfunktion:
Delphi-Quellcode:
  WITH Query1 DO
    BEGIN
        Close;
        WITH SQL DO
          BEGIN
            Clear;
            Add('SELECT * ');
            Add('FROM Tabelle.db');
            Add('WHERE Spalte1 = ' + CHR(39) + Edit1.Text + CHR(39));
            Add('AND Spalte2 = ' + CHR(39) + LCB_AuftraegeFuer.Text + CHR(39)); // Lookupcombobox
            Add('AND TARGSTARTDATE <= ' + CHR(39) + DateToStr(DateTimePicker1.Date) + CHR(39));
          END;
        Query1.Active := True;
        Open;
      END;
    END;
Damit kannst Du Variablen, Comboboxen, Edits usw. als "Parameter" für ein SQL-Statement Übergeben.
Armin P. Pressler

BEGIN
...real programmers are using C/C++ - smart developers Delphi;
END;
  Mit Zitat antworten Zitat