Olá Ana,
Só coloque o componente na tela e tente criar em tempo de execução:
...
var
P1, P2, P3, P4 : TParam;
begin
with SQLStoredProc1 do begin
StoredProcName := '<SUA_PROC>';
Params.Clear;
P1 := TParam.Create(Params, ptInput);
P2 := TParam.Create(Params, ptInput);
P3 := TParam.Create(Params, ptInput);
P4 := TParam.Create(Params, ptInput);
try
Params[0].Name := '<PAR1>';
Params[1].Name := '<PAR2>';
Params[2].Name := '<PAR3>';
Params[3].Name := '<PAR4>';
ParamByname('<PAR1>').AsInteger := StrToInt(edit1.text);
ParamByname('<PAR2>').AsInteger := StrToInt(edit2.text);
ParamByname('<PAR3>').AsInteger := StrToInt(edit3.text);
ParamByname('<PAR4>').AsDateTime := StrToDateTime(edit4.text);
ExecProc;
finally
P1.Free;
P2.Free;
P3.Free;
P4.Free;
end;
end;
end;
---
[]'s
Alexandre
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Ana Júlia Solano Rocha
Enviada em: sábado, 28 de maio de 2005 17:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: Problemas com Stored Procedures
Estou usando SQLStoredProc1.ExecProc.
----- Original Message -----
From: "Roberto Dill" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Saturday, May 28, 2005 4:52 PM
Subject: [delphi-br] Re: Problemas com Stored Procedures
Vc está usando:
SQLStoredProc1.ExecProc <<< deve ser assim ou SQLStoredProc1.Open
Talvez seja isso.
--- Em delphi-br@yahoogrupos.com.br, Ana Júlia Solano Rocha
<[EMAIL PROTECTED]> escreveu
> Boa tarde pessoal!
>
> Estou desenvolvendo uma aplicação em Dephi 7 com Interbase 6. Criei
uma Stored Procedure e testei no banco, onde funcionou perfeitamente.
Dentro da minha aplicação utilizei o TSQLStoredProc (DBExpress) para
executá-la. Testei em tempo de projeto e funcionou também. Mas quando
tento executá-la dentro da aplicação, dá o erro: DBExpress error:
Operation not Supported.
>
> Estou passando 3 parâmetros do tipo Integer e 1 do tipo Date. Se eu
utilizar um TSQLQuery funciona também, mas gostaria de utilizar o
TSQLStoredProc.
>
> Alguém tem idéia do que pode estar acontecendo?
>
> Abraços,
> Ana
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 27/05/2005 / Versão:
4.4.00 - Dat 4501 Proteja o seu e-mail Terra:
http://mail.terra.com.br/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
________________________________
avast! Antivirus <http://www.avast.com> : Mensagem Recebida está livre
de virus.
Banco de dados de vírus (VPS): 0521-5, 29/05/2005 Testado em:
30/5/2005 09:53:34 avast! is copyright (c) 2000-2004 ALWIL Software.
_____
avast! Antivirus <http://www.avast.com> : Mensagem Enviada está livre
de virus.
Banco de dados de vírus (VPS): 0521-5, 29/05/2005
Testado em: 30/5/2005 10:11:00
avast! is copyright (c) 2000-2004 ALWIL Software.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
