I'm using it like this:
Code: Select all
FCommand := connection.CreateSQL as TMSSQL;
try
FCommand.ParamCheck := false;
FCommand.Params.BeginUpdate;
try
param := FCommand.Params.ItemClass.Create(nil) as TParam;
param.Value := 1;
param.ParamType := ptInput;
FCommand.Params.AddParam(param);
finally
FCommand.Params.EndUpdate;
end;
FCommand.SQL.Text := sql;
FCommand.Execute;
finally
FCommand.Free;
end;