Fórum Erro ao executar uma procedure #27639
25/01/2004
0
Falta alguma coisa. :?: :?: :?:
Valeu....................................................................................
Luisfernando
Curtir tópico
+ 0Posts
26/01/2004
Facundo
Gostei + 0
26/01/2004
Luisfernando
PROCEDURE ATUALIZA_CR (NUM IN ALUNO.COD¬TYPE)
IS
MALUNO DISCIP.MEDIA¬TYPE;
CALUNO DISCIP.CREDT¬TYPE;
TOTAL DISCIP.CREDT¬TYPE;
CURSOR MCALUNO IS
SELECT MEDIA, CREDT
FROM DISCIP
WHERE COD_ALUNO = NUM;
BEGIN
TOTAL := 0;
FOR REC IN MCALUNO LOOP
TOTAL := TOTAL + (REC.MEDIA * REC.CREDT);
END LOOP;
SELECT SUM(CREDT) INTO CALUNO
FROM DISCIP
WHERE COD_ALUNO = NUM;
UPDATE ALUNO
SET CRA = TOTAL / CALUNO
WHERE COD = NUM;
UPDATE ALUNO
SET CRED = CALUNO
WHERE COD = NUM;
END;
/
Gostei + 0
27/01/2004
Facundo
Gostei + 0
27/01/2004
Luisfernando
Mas no delphi ela nao executa e seu parametros estão certos.
Gostei + 0
27/01/2004
Motta
procedure TForm1.Button1Click(Sender: TObject);
begin
try
StoredProc1.ExecProc;
except
on e:exception do
begin
Showmessage(e.message);
end;
end;
end;
Gostei + 0
31/01/2004
Drlecter
ms o erro é ´Operation not aplicable´.
Valeu................
Gostei + 0
04/02/2004
Motta
Parece um problema de conecção , algo entre:
Versão de Client Oracle.
Versão/Conf. de dbe (se for o caso)
Drive ODBC (se for o caso)
Gostei + 0
13/02/2004
Rfpsatin
tenta algo assim, estou sem o delphi aqui p/ testar a sintaxi
procedure.params[0].value:=teuParametro
depois vc da um exec
blz?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)