Params X Parameters
A propriedade Params do DBExpress é equivalente a Parameters.ParamValue do ADO? Porque estou perguntado isso: É porque eu possuo um código em DBExpress e preciso manter o mesmo código(Dentro do possível) para conexão ADO.
A linha abaixo:
foi substituída por essa:
Essa é minha dúvida.
A linha abaixo:
TSQLQuery(TDataSetProvider(Sender).DataSet).Params[i - 1].AsFMTBCD := StrToBcd(Param);
foi substituída por essa:
TADOQuery(TDataSetProvider(Sender).DataSet).Parameters.ParamValues[i - 1].AsFMTBCD := StrToBcd(Param);
Essa é minha dúvida.
Paulo
Curtidas 0
Respostas
Paulo
07/08/2008
Em realidade eu quero transformar essa função escrita para SqlQuery em ADO
function TRDM_Consulta.dspDataRequestParam(Sender: TObject;
Input: OleVariant): OleVariant;
var
i: Integer;
Param: string;
begin
i := 1;
Param := PegaItemLista(i, Input, ´;´);
while Param <> ´´ do
begin
TSQLQuery(TDataSetProvider(Sender).DataSet).Params[i - 1].AsFMTBCD := StrToBcd(Param);
Inc(i);
Param := PegaItemLista(i, Input, ´;´);
end;
end;
GOSTEI 0