RES: [delphi-br] Problema com Procedure

2008-10-24 Por tôpico Rodrigo Rossi - UOL
Não sei hehehehe

So iniciante kra... to aprendendo na marra... já procurei de tudo ke é
apostila e coisa e não achei a forma correta.

Att.

Rodrigo

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Moacir - GMail
Enviada em: sexta-feira, 24 de outubro de 2008 08:15
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema com Procedure


Rodrigo,

Vc esta colocando a sentença SQL em

Datamodule6.ADOCommand1.CommandText

e tentando buscar os resultados em

Datamodule6.ADOQuery1


Não seria isto ???

[ ]´s
Moacir

Rodrigo Rossi - UOL escreveu:
 Pessoal, to montando uma procedure que quando clico no botao “Novo
Cliente”
 ele pega o Maximo código do cliente cadastrado e coloca pra min
 automaticamente no TDBEdit o novo código do cliente. Mas esta gerando um
 erro na hora que clico no botão “Objeto Parameter definido incorretamente.
 As iinformaçoes são inconsistentes e incompletas”

 O que ta de errado??

  

 procedure TFrmCadCli.BtnNovoClick(Sender: TObject);

 begin

   with Datamodule6.ADOQuery1 do

   begin

 Close;

 Datamodule6.ADOCommand1.CommandText := 'select max(codcli) as codigo
 from CadCli';

 Open;

   end;

   Datamodule6.ADO_CADCLI.insert;

   if Datamodule6.ADOQuery1['codigo']  null then

 Datamodule6.ADO_CADCLI['codcli'] := Datamodule6.ADOQuery1['codigo'] +
1

   else

 Datamodule6.ADO_CADCLI['codcli'] := '1';

  

   Datamodule6.ADOQuery1.Close;

 end;

  

  



 [As partes desta mensagem que não continham texto foram removidas]


 

   



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 


 

__ Information from ESET NOD32 Antivirus, version of virus signature
database 3550 (20081023) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com
 
 

__ Information from ESET NOD32 Antivirus, version of virus signature
database 3550 (20081023) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com
 



RES: [delphi-br] Problema com procedure...

2005-11-16 Por tôpico Elazar
Denise; Mentux
 
Tem um comando chamado EXECUTE STATEMENT (fb 1.5 ) vide release notes do
mesmo
Se precisar mais ajuda! fique a vontade;
Elazar;

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Denise
Enviada em: quarta-feira, 16 de novembro de 2005 12:03
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema com procedure...


Em não sei se entendi muito bem mais porque vc não experimenta 
  SET TERM ^ ;

CREATE PROCEDURE NEW_PROCEDURE 
AS
begin
  set generator gen_nome_id to 0
  set generator gen_nome1_id to 0
  .
  .
  .
  assim por diante
  suspend;
end^

SET TERM ; ^
  - Original Message - 
  From: Oseas 'mentux' Tormen 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 16, 2005 11:44 AM
  Subject: Re: [delphi-br] Problema com procedure...


  FireBird 1.5 Denise

  -- 
  
  att.: Oseas 'mentux' Tormen


  Celular: +55 (49) 8403-0836
  Cidade.: Chapecó - SC - BR
  +

  NM Informática
  Desenvolvimento de Softwares Hospitalares
  Fone Com.: +55 (49) 3322-4772
  Fone Cel.: +55 (49) 8403-1993 
  Rua..: Nereu Ramos, Ed. CPC
  Bairro...: Centro
  Cidade...: Chapecó - SC - BR
  +

  msn...: [EMAIL PROTECTED]
  ICQ...: 169395237
  Ymessenger: [EMAIL PROTECTED]
  skype.: mentux_
  +



- Original Message - 
From: Denise 
To: delphi-br@yahoogrupos.com.br 
Sent: Wednesday, November 16, 2005 11:17 AM
Subject: Re: [delphi-br] Problema com procedure...


Qual o banco vc usa?
- Original Message - 
From: Oseas 'mentux' Tormen [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 16, 2005 11:09 AM
Subject: [delphi-br] Problema com procedure...


estamos com um problema a algum tempo na empresa, precisamos fazer
uma 
procedure que zere os generators na base de dados, o exemplo está
abaixo, o 
problema é que a procedure nao aceita que eu passe para o comando a
variavel 
com o nome do generator, alguém jah fez algo assim, ou sabe o q devo
fazer 
para poder funcionar esta procedure?


procedure___


CREATE PROCEDURE PP_ZERAR_ALL_GENERATORS
AS
DECLARE VARIABLE VAR_GENERATOR VARCHAR(31);
DECLARE VARIABLE VAR_OLD_VALUE INTEGER;
BEGIN
  FOR
SELECT RDB$GENERATORS.RDB$GENERATOR_NAME
FROM RDB$GENERATORS
WHERE RDB$GENERATORS.RDB$SYSTEM_FLAG IS NULL
ORDER BY RDB$GENERATORS.RDB$GENERATOR_ID

INTO :VAR_GENERATOR

  DO BEGIN
VAR_OLD_VALUE = GEN_ID(VAR_GENERATOR,0);
GEN_ID(VAR_GENERATOR, (VAR_OLD_VALUE * -1));
SUSPEND;
  END
END

-- 

att.: Oseas 'mentux' Tormen


Celular: +55 (49) 8403-0836
Cidade.: Chapecó - SC - BR
+

NM Informática
Desenvolvimento de Softwares Hospitalares
Fone Com.: +55 (49) 3322-4772
Fone Cel.: +55 (49) 8403-1993
Rua..: Nereu Ramos, Ed. CPC
Bairro...: Centro
Cidade...: Chapecó - SC - BR
+

msn...: [EMAIL PROTECTED]
ICQ...: 169395237
Ymessenger: [EMAIL PROTECTED]
skype.: mentux_
+




-- 

att.: Oseas 'mentux' Tormen


Celular: +55 (49) 8403-0836
Cidade.: Chapecó - SC - BR
+

NM Informática
Desenvolvimento de Softwares Hospitalares
Fone Com.: +55 (49) 3322-4772
Fone Cel.: +55 (49) 8403-1993
Rua..: Nereu Ramos, Ed. CPC
Bairro...: Centro
Cidade...: Chapecó - SC - BR
+

msn...: [EMAIL PROTECTED]
ICQ...: 169395237
Ymessenger: [EMAIL PROTECTED]
skype.: mentux_
+




[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









  

  

___ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





  Yahoo! Grupos, um serviço oferecido por: 
PUBLICIDADE
  
 


 

--
Links do Yahoo! Grupos

  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/

  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]

  c.. O uso