[delphi-br] Ajuda plsql

2008-09-15 Por tôpico pena_rs 
boa tarde pessoal, sou novato em delphi, estou precisando de uma
maozinha, seguinte:

begin 
IF (:VTIPO='RETORNA') THEN
BEGIN
FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME
DO BEGIN
SUSPEND;
EXIT;
END
END
ELSE IF (:VTIPO='AVANCA') THEN
BEGIN
FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME ORDER BY GRUPO
INTO :RCODIGO,:RNOME
DO BEGIN
SUSPEND;
EXIT;
END

AQUI ESTA A PARTE DO CODIGO QUE ESTA FUNCIONANDO, SO QUE QUERIA FAZER
UM OUTRO TESTE MAS NAO CONSIGO FAZER, DA ERRO, E COMO DISSE SOU NOVATO
E NAO CONSIGO DESCOBRIR ONDE ESTOU ERRANDO
begin 
IF (:VTIPO='RETORNA') THEN
BEGIN
if (:VORDEM = 1) then
FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME
ORDER BY GRUPO DESC INTO :RCODIGO,:RNOME
else
FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME
ORDER BY CODIGO DESC INTO :RCODIGO,:RNOME
end if
DO BEGIN
SUSPEND;
EXIT;
END
END

como viram quero apenas colocar um if, para testar se a ordem é por
codigo ou alfabetica

Re: [delphi-br] Ajuda plsql

2008-09-15 Por tôpico omar l m rosa 
deste jeito o comando for não está completo...

Faz ansim:
..
declare wsql varchar(4000);
..
begin 
IF (:VTIPO='RETORNA') THEN
   WSQL = 'SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME ';
ELSE IF (:VTIPO='AVANCA') THEN
   WSQL = 'SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME ORDER BY GRUPO';

FOR 

EXECUTE STATEMENT WSQL

INTO :RCODIGO,:RNOME
DO BEGIN
 SUSPEND;
EXIT;
END





  - Original Message - 
  From: pena_rs 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, September 15, 2008 12:33 PM
  Subject: [delphi-br] Ajuda plsql


  boa tarde pessoal, sou novato em delphi, estou precisando de uma
  maozinha, seguinte:

  begin 
  IF (:VTIPO='RETORNA') THEN
  BEGIN
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME 
  DO BEGIN
  SUSPEND;
  EXIT;
  END
  END
  ELSE IF (:VTIPO='AVANCA') THEN
  BEGIN
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME ORDER BY GRUPO
  INTO :RCODIGO,:RNOME
  DO BEGIN
  SUSPEND;
  EXIT;
  END

  AQUI ESTA A PARTE DO CODIGO QUE ESTA FUNCIONANDO, SO QUE QUERIA FAZER
  UM OUTRO TESTE MAS NAO CONSIGO FAZER, DA ERRO, E COMO DISSE SOU NOVATO
  E NAO CONSIGO DESCOBRIR ONDE ESTOU ERRANDO
  begin 
  IF (:VTIPO='RETORNA') THEN
  BEGIN
  if (:VORDEM = 1) then
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME
  ORDER BY GRUPO DESC INTO :RCODIGO,:RNOME
  else
  FOR SELECT CODIGO,GRUPO FROM GRUPOS WHERE GRUPO:VNOME
  ORDER BY CODIGO DESC INTO :RCODIGO,:RNOME
  end if
  DO BEGIN
  SUSPEND;
  EXIT;
  END
  END

  como viram quero apenas colocar um if, para testar se a ordem é por
  codigo ou alfabetica



   

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