Stored TSQLQuery ClientDataSet Parametros

09/05/2008

0

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

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar