Params X Parameters

07/08/2008

1

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


Responder

Posts

07/08/2008

Paulo

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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira