Assertion failure in CRAccess.pas
Posted: Thu 06 Aug 2020 11:17
Hello,
using SDAC 9.2.4 i got Assertion failure (d:\Projects\Delphi\Dac\Common\Source\CRAccess.pas, line 7453)
Using SDAC 8.2.8 it's ok yet.
Code:
procedure TForm1.DoIt;
var
FCommand: TCustomDADataset;
Param: TMSParam;
begin
FCommand := msconnection1.CreateDataSet;
try
FCommand.ParamCheck := false;
FCommand.SQL.Text := 'select :P';
param := FCommand.Params.ItemClass.Create(nil) as TMSParam;
param.DataType := ftInteger;
param.Value := 1;
FCommand.Params.AddParam(param);
FCommand.Execute;
finally
FCommand.Free;
end;
end;
using SDAC 9.2.4 i got Assertion failure (d:\Projects\Delphi\Dac\Common\Source\CRAccess.pas, line 7453)
Using SDAC 8.2.8 it's ok yet.
Code:
procedure TForm1.DoIt;
var
FCommand: TCustomDADataset;
Param: TMSParam;
begin
FCommand := msconnection1.CreateDataSet;
try
FCommand.ParamCheck := false;
FCommand.SQL.Text := 'select :P';
param := FCommand.Params.ItemClass.Create(nil) as TMSParam;
param.DataType := ftInteger;
param.Value := 1;
FCommand.Params.AddParam(param);
FCommand.Execute;
finally
FCommand.Free;
end;
end;