ADO Strings autom. abschneiden?

[gmc616]

Hallo DP,

Gibt es im Delphi 2009 eine Option, einen Parameter o.ä. , mit dem man erreichen kann, dass zu lange Strings beim INSERT oder UPDATE in ein VARCHAR-Feld auf die maximale Länge des Feldes abschnitten werden?

z.B. "Tabelle" mit dem Feld "text" VARCHAR(2)

Delphi-Quellcode:

sSql :=  'INSERT INTO Tabelle (text) VALUES (:DerString)';
AdoQuery.SQL.Text := sSql;
AdoQuery.Parameters.ParamByName('DerString').Value = 'ABC';
AdoQuery.Parameters.ParamByName('DerString').DataType := ftString;
AdoQuery.Exceute;

... soll, anstatt den Datensatz nicht zu speichern, entsprechend 'AB' in "text" speichern. Das ganze automatisch, ohne das ich per Hand die Feldlänge ermitteln und den String zurecht schneiden muß.

[Bummi]

sSql := 'INSERT INTO Tabelle (text) VALUES (Cast(:DerString as NVarchar(2)))';

[DeddyH]

Dazu brauchst Du aber auch wieder die Feldlänge.

[Bummi]

verwegen:
sSql := 'set ansi_warnings off INSERT INTO Tabelle (text) VALUES (:DerString) set ansi_warnings on';

[sx2008]

Das Wort text ist in vielen Datenbanken ein reservierter Bezeichner was man nicht als Feld- oder Tabellenname verwenden sollte.

Delphi-Quellcode:

// neuen Datensatz einfügen
// Performance ist etwas geringer als beim direkten INSERT
// aber die String-Felder werden autom. abgeschnitten
AdoQuery.SQL.Text := 'SELECT infotext FROM Tabelle WHERE 0=1';
AdoQuery.Open;
AdoQuery.Append;
AdoQuery['infotext'] := 'ABC';
AdoQuery.Post;  // VCL generiert im Hintergrund einen INSERT