BDE und Params

[ibp]

Zitat von AThurm:

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...