Bei SQL Befehl Update das aktuelle Datum einfügen

[Hendrik Lenz]

Hallo ich möchte in das Feld druckdat in einer Datenbank bei allen Datensätzen das aktuelle Datum einsetzen doch wie muss ich den SQL Befehl bei Delphi und der BDE / Paradox Tabelle schreiben damit dies auch funktioniert?

update anford set druckdat = DATUM?!?!

Ich habe schon einiges ausprobiert doch in Hochkommas klappt es nicht und mit current_date geht auch nichts wer weiß hier einen Rat?!?

Vielen Dank und Grüße Hendrik

[Andreas Kosch]

Hallo,

ich würde folgendes machen, wobei mein Beispiel die Tabelle <i>Orders</i> aus DBDEMOS nutzt:

1. TQuery-Instanz verwendet feste SQL-Anweisung mit Parametern:
<pre>
UPDATE Orders
SET SaleDate = :NewSaleDate
WHERE OrderNo = :OrderNo
</pre>

2. Objektinspektor: TQuery-Eigenschaft <b>Params</b>: Datentyp des 1. Parameters auf <b>ftDate</b> ändern.

3. Im Programm die Parameter übergeben und die UPDATE-Anweisung ausführen. Die Funktion <b>Now</b> ermittelt das aktuelle Datum:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Params[0].Value := Now;
Query1.Params[1].Value := 1005;
Query1.ExecSQL;
end;
</pre>
Wenn es aber unbedingt eine dynamische SQL-Anweisung sein soll, ist folgendes möglich:
<pre>
procedure TForm1.Button2Click(Sender: TObject);
resourcestring
cSQL = 'UPDATE Orders SET SaleDate = %s WHERE OrderNo = 1005';
begin
Query2.SQL.Clear;
Query2.SQL.Add(Format(cSQL,[QuotedStr('16.01.2002')]));
Query2.ExecSQL;
end;
</pre>
&#10