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:
Quando faço o OPEN ele diz:
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?
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)