BDE und Params

[AThurm]

Hallo,
bevor jetzt die ganzen Aussagen kommen das die BDE böse und veraltet ist: Ich habe keine andere Wahl in meiner Firma.
Nun ist es so dass ich folgendes in Delphi 2010 versuche und er mir in der Datenbank-Tabelle aus der hifanr ein 0 anstatt ein NULL macht.
Ändere ich die markierte Stelle auf .AsAnsiString, schreibt er mir die richtigen Daten in die Datenbank (Wert mit NULL).

Ist dies ein Fehler? oder liegt es einfach daran das die BDE kein Unicode unterstützt und er mir die Params im Speicher versaut?

Delphi-Quellcode:

Query1.SQL.Text := 'insert into test ' +
                    '(lnr, hifanr, region) values ' +
                    '(:lnr, :hifanr, :region)';

  Query1.ParamByName('lnr').Name := 'lnr';
  Query1.ParamByName('lnr').DataType := ftInteger;
  Query1.ParamByName('lnr').Value := 999;

  Query1.ParamByName('hifanr').Name := 'hifanr';
  Query1.ParamByName('hifanr').DataType := ftInteger;
  Query1.ParamByName('hifanr').Clear;
  Query1.ParamByName('hifanr').Bound := true;

  Query1.ParamByName('region').DataType := ftString;
  Query1.ParamByName('region').Name := 'region';
  Query1.ParamByName('region').AsString := ''; //.AsAnsiString := '';

  Query1.ExecSQL;

[mkinzler]

Ja die BDE kennt kein Unicode. Aber das mit 0 und NULL ist ein anderes Problem. Kannst du das irgendwo konfigurieren?

[AThurm]

Der Test bezieht sich auf die gleichen Alias Einstellungen, daher glaube ich nicht das ein Konfigurationsproblem ist.
Ansonsten konnte ich mal etwas von LANGDRIVER = ascii lesen, allerdings hilft das bei diesem Problem auch nicht weiter.

[mkinzler]

Nein irgendwo wird ja das 0 als NULL interpretiert

[AThurm]

Ich verstehe nicht worauf du hinaus willst ? DAS ist das ganze Programm, auf dem Forumlar liegt nur der TQuery und der Button.
Ich vermute einfach das die DBTables.pas (BDE) nicht mit dem Unicode string umgehen kann ?

[mkinzler]

Für Integer gibt es keinen Unicode.
Das Problem ist mir voin anderen Zugriffskomponenten bekannt, bei denen man Einstellen kann wie 0 interptiert wird

[ibp]

Zitat:

Zitat von AThurm (Beitrag 1034229)

Hallo,

Delphi-Quellcode:

Query1.SQL.Text := 'insert into test ' +
                    '(lnr, hifanr, region) values ' +
                    '(:lnr, :hifanr, :region)';

  Query1.ParamByName('lnr').Name := 'lnr';
  Query1.ParamByName('lnr').DataType := ftInteger;
  Query1.ParamByName('lnr').Value := 999;

  Query1.ParamByName('hifanr').Name := 'hifanr';
  Query1.ParamByName('hifanr').DataType := ftInteger;
  Query1.ParamByName('hifanr').Clear;
  Query1.ParamByName('hifanr').Bound := true;

  Query1.ParamByName('region').DataType := ftString;
  Query1.ParamByName('region').Name := 'region';
  Query1.ParamByName('region').AsString := ''; //.AsAnsiString := '';

  Query1.ExecSQL;

versuch es mal so....

Delphi-Quellcode:

Query1.SQL.Text := 'insert into test ' +
                    '(lnr, region) values ' +
                    '(:lnr, :region)';

  Query1.ParamByName('lnr').AsInteger = 999;
  //Query1.ParamByName('hifanr').AsInteger = 999;
  Query1.ParamByName('region').AsString := '';
  Query1.ExecSQL;

oder so..

Delphi-Quellcode:

Query1.SQL.Text := 'insert into test ' +
                    '(lnr, hifanr, region) values ' +
                    '(:lnr, NULL, :region)';

  Query1.ParamByName('lnr').AsInteger = 999;
  Query1.ParamByName('region').AsString := '';
  Query1.ExecSQL;

zur not kannst du den SQL-Text mit StringRepalce :hifanr auf NULL setzen...

[AThurm]

Danke, beides funktioniert, allerdings hast du damit ja bewusst meinen Parameter gekillt.
Bei uns im Programm gibt es davon aber leider 100 derartige Konstellationen. :)

[Bernhard Geyer]

Zitat:

Zitat von AThurm (Beitrag 1034229)

Hallo,
bevor jetzt die ganzen Aussagen kommen das die BDE böse und veraltet ist: Ich habe keine andere Wahl in meiner Firma.

Trotzdem eine Rückfrage: Wieso hast du keine Wahl? Die BDE lässt sich nur mit Tricks unter 64-Bit installieren, Die BDE kann keine neuen Datentypen die der MS-SQL Server seit der letzten 13 Jahren eingeführt hat.

Im Gegensatz hast du mit der ADO-Schnittstelle (was ja mit dbGo verwendet wird) einen Zugriffsweg der seit W2K keine installation benötigt. Du kannst deine Exe also einfach auf dem Ziel-PC kopieren und der DB-Zugriff (wenn der Server erreichbar ist) funktioniert.

Ach ja: Sind deine String-Felder eigentlich vom Typ (var)char oder n(var)char?

[AThurm]

Zitat:

Ach ja: Sind deine String-Felder eigentlich vom Typ (var)char oder n(var)char?

vom typ varchar wieso?