Parameterverwendung bei DB-, Feld- und Tabellennamen

[Jumpy]

Im alten D6 geht das so glaub ich leider noch nicht. Auch fehlen der Stringlist ja die schönen Umwandelfunktionen. Wobei man die in dem Beispiel gezeigten ja auch nicht wirklich braucht, wenn man stattdessen mit Parametern arbeitet, insofern kann man sich bei neueren Delphis durchaus die Mühe einer eigenen Klasse sparen.

Nur aus Neugier:
Wie funktiert das eigentlich mit dem Datum als Parameter, wenn man das gewohnte deutsche Datumsformat im String hat "15.03.2013" die Datenbank aber intern mit US-Schema arbeitet?

[Mavarik]

Zitat von Jumpy:

Nur aus Neugier:
Wie funktiert das eigentlich mit dem Datum als Parameter, wenn man das gewohnte deutsche Datumsformat im String hat "15.03.2013" die Datenbank aber intern mit US-Schema arbeitet?

Überlass doch der Datenbank die Speicherung...

Zitat von freejay:

Code:

MyQuery.SQL.Text := 'SELECT * FROM :TabName;';
MyQuery.ParamByName('TabName').AsString := TabellenName;
MyQuery.Open;

Fast... Beispiel INSERT mit Datum

Delphi-Quellcode:

MyQuery.SQL.Text := 'INSERT INTO FooTable (FooDate,FooStr,FooInt) VALUES (:1,:2,:3);';
MyQuery.Params[0].AsDateTime := NOW; // Funktioniert nur, wenn FooDate in der Datenbank ein DateTime-Feld ist.
MyQuery.Params[1].AsString   := 'Die Frage aller Fragen:';
MyQuery.Params[2].AsInteger  := 42;

Mavarik

Oder war das nicht die Frage?

[Jumpy]

Zitat von Mavarik:

Oder war das nicht die Frage?

Doch, nur machst du es dir mit NOW() einfach. Wie sieht es bei einem Datum, dass mir im Programm als String vorliegt aus? Muss da Delphi die Umwandlung machen?

Delphi-Quellcode:

MyQuery.Params[0].AsDateTime := StrToDatetime('15.03.2013'); //?? Da müssen aber die FormatSettingspassen oder?

MyQuery.Params[0].AsString := '15.03.2013'; //Was müsste wo eingestellt werden, damit das klappt?

[Uwe Raabe]

Zitat von Jumpy:

Delphi-Quellcode:

MyQuery.Params[0].AsDateTime := StrToDatetime('15.03.2013'); //?? Da müssen aber die FormatSettingspassen oder?

MyQuery.Params[0].AsString := '15.03.2013'; //Was müsste wo eingestellt werden, damit das klappt?

Mit der Zuweisung As<Type> wird der Datentyp des Parameters festgelegt. Mit AsString wird also ein (Wide-)String-Parameter gesetzt, was hier aber wohl nicht gewünscht ist. AsDateTime wäre hier der korrekte Ansatz.

Was die FormatSettings anbelangt: Die können bei einem aktuelleren Delphi als zweiter Parameter an StrToDateTime mitgegeben werden (TFormatSettings.Invariant).

Wenn das Datum nicht als String, sondern als Werte für Tag, Monat und Jahr vorliegt, geht auch ein EncodeDate.

[Mavarik]

MyQuery.Params[0].AsDateTime := '20.01.2016' Geht übrigens nicht.

[himitsu]

Makros werden oft direkt "ersetzt", aber man kann ja vor Zuweisung an das Makro die Escape-Funktion für Bezeichner darauf anwenden.

bei PgDAC z.B. TPgTextConverter.EscapeString
quote_ident in der DB

Und eventuell wird dir auch eine Typkonvertierung angeboten

SQL-Code:

SELECT * FROM 'table'::regtype  -- SELECT * FROM CAST('table' AS regtype)
SELECT * FROM :table::regtype  -- SELECT * FROM CAST(:table AS regtype)

[Uwe Raabe]

Zitat von Jumpy:

Im alten D6 geht das so glaub ich leider noch nicht.

Das wir die eigentliche Intention meines Beitrags

Zitat von Jumpy:

Auch fehlen der Stringlist ja die schönen Umwandelfunktionen.

Das wiederum wollte ich mit dem Class helper demonstrieren.

[Jumpy]

Zitat von Uwe Raabe:

Zitat von Jumpy:

Auch fehlen der Stringlist ja die schönen Umwandelfunktionen.

Das wiederum wollte ich mit dem Class helper demonstrieren.

Aua. Den Teil deines Beitrages habe einfach überlesen und bei "function SQL_Beispiel: String;" angefangen den Code zu lesen. So macht das natürlich mehr Sinn, sorry.

[Uwe Raabe]

Zitat von Jumpy:

sorry.

Im Gegenteil! Das gab mir die Gelegenheit, das nochmal herauszustellen