Stored TSQLQuery ClientDataSet Parametros

Delphi

09/05/2008

Olá amigos.

Estou criando umas classes onde o método vai instanciar dinamicamente um TSQLQuery e jogar os dados para um ClientDataSet. Fiz uns testes e funcionam perfeitamente porém quando a Stored tem parametros não consigo.

Eis o código:

var
  RS: TSQLStoredProc;
  DSP: TDataSetProvider;
  CDS: TClientDataSet;
begin

  RS := TSQLStoredProc.Create(nil);
  RS.SQLConnection := SQLConnection1;
  RS.StoredProcName := ´usp_SelecionarAgenciasPorBanco´;
  RS.Params.CreateParam(ftInteger, ´@banco_SI´, ptInput);

  DSP := TDataSetProvider.Create(Application);
  DSP.Name := ´DSP´;
  DSP.ResolveToDataSet := True;
  DSP.DataSet := RS;

  CDS := TClientDataSet.Create(Application);
  CDS.ProviderName := DSP.Name;
  CDS.FetchParams;
  CDS.Params.ParamByName(´@banco_SI´).Value := 341;

  DataSource1.DataSet := CDS;

  CDS.Open;


Quando faço o OPEN ele diz:

SQL Error: Error Mapping Failed.


Vejam que eu no QUERY criei o parametro. Se eu não criar no Query ele diz queo parametro não existe.

Meu programa não usa DATA MODULO nem componentes visuais, é tudo em objetos mesmo. Só que vou passar do Zeos para o dbExpress pra usar SQL Server ou FireBird 2.

Alguma dica?


Romulocpd

Romulocpd

Curtidas 0
POSTAR