Erro ao carregar um procedimento armazenado
tenho uma Stored proc chamada:
sp_Insere_Log
Fiz uma função para inserir os dados nessa procedure. Acontece que quando eu chamo o ExecProc, me dá o seguinte erro:
Não foi possível encontrar o procedimento armazenado
Insere_Log
Observe que nessa mensagem vem sem o sp_. Abaixo meus códigos:
Minha chamada
Os métodos commit e rollback
function TGeneralFiles.InsereJus(Tipo_Edicao, Num_Edicao, Num_Pagina, Justificativa: String;
Data: TDate; ObjConn: TAdoConnection;ObjSp: TADOStoredProc): int64;
begin
with ObjSp, Parameters do
begin
ParamByName('@TIPO_EDICAO').Value := Tipo_Edicao;
ParamByName('@NUM_EDICAO').Value := Num_Edicao;
ParamByName('@DATA_EDICAO').Value := Data;
ParamByName('@NUM_PAGINA').Value := Num_Pagina;
ParamByName('@JUSTIFICATIVA').Value := Just;
try
ExecProc; // Aqui dá o erro citado acima
Result := ParamByName('@id').Value;
Commit(ObjConn);
except
Rollback(ObjConn);
raise;
end;
end;
end;procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
if PodeInserir then
FGeneralFiles.InsereJus(edtTipoEdicao.Text,edtNumEdicao.Text,edtNumPagina.Text,FGeneralFiles.Just,edtData.Date,ADOConn,spJus)
else
ShowMessage('Alguns campos não foram preenchidos.'+#13+#10+'Favor corrigir o problema e tentar novamente');
end;procedure TfrmMain.Commit; begin if ADOConn.InTransaction then ADOConn.CommitTrans; O Rollback tem o rollbacktrans. end;
Pjava
Curtidas 0