Blz cara, era bem isso que eu queria, deu certinho, obrigado!
----- Original Message ----- From: "DVJ" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Thursday, January 27, 2005 3:52 PM Subject: Re: [delphi-br] Stored Procedure > > Tente o seguinte > DECLARE VARIABLE COD VARCHAR(???); > DECLARE VARIABLE ACE SMALLINT OU INTEGER; > BEGIN > SELECT USUCOD,USUACE FROM USUARIOS WHERE USUCOD=:usuarios INTO :COD, :ACE; > IF (USUACE IS NULL) THEN > UPDATE USUARIOS SET USUACE=1 WHERE USUCOD=:usuario > ELSE > UPDATE USUARIOS SET USUACE= (ACE + 1) WHERE USUCOD=:usuario > INSERT INTO ACESSOS (ACEUSU,ACEDTA,ACETIP) VALUES > (:usuario,current_timestamp,:tipo); > END: > > > > --- "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> escreveu: > > > > To tentando fazer essa SP no FB 1.5, mas não passa do select, as variáveis estão > > declaradas certinho: > > Quero que quando o usuário acesse o sistema e após a verificação da senha a SP > > seja executada, gravando > > os dados na tabela de acesso e alterando na tabela de usuários a quantidade de > > acessos que ele fez: > > > > BEGIN > > SELECT USUCOD,USUACE FROM USUARIOS WHERE USUCOD=:usuarios; //seleciona o > > usuário para a verificação do campo USUACE > > IF (USUACE IS NULL) THEN > > // caso seja nulo insere 0+1 > > UPDATE USUARIOS SET USUACE=0+1 WHERE USUCOD=:usuario > > ELSE > > UPDATE USUARIOS SET USUACE=USUACE+1 WHERE USUCOD=:usuario > > INSERT INTO ACESSOS (ACEUSU,ACEDTA,ACETIP) VALUES > > (:usuario,current_timestamp,:tipo); > > END: > > > > se alguem entendeu o quero fazer e souber como fazer fico agradecido. > > > > [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 > > > > > > > > > > > > > > > > > > > > > > > > _______________________________________________________ > Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. http://br.acesso.yahoo.com/ - Internet rápida e grátis > > > -- > <<<<< 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 > > > > > > > > -- <<<<< 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
