[delphi-br] Ajuda plsql

Mon, 15 Sep 2008 10:48:12 -0700 

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

Responder a