Fórum Tratamento Exceção #271019
04/03/2005
0
Como faço usar uam estrutura Try-except quando salvo registros em uma tabela. Ex:
try
CdsItemOsOr.Edit;
CdsItemOsOr.Append;
CdsItemOsOr.FieldByName(´QUAPRO_ITEM_OS_OR´).asInteger :=
StrToInt(Cells[3,x]);
CdsItemOsOr.FieldByName(´VALUNIT_ITEM_OS_OR´).Value :=
sValor;
CdsItemOsOr.Post;
CdsItemOsOr.ApplyUpdates(-1);
Except
Qual classe de exceção poderia colocar após o except ???
Estou usando o Interbase 6.0
Rogério
Rogeranalista
Curtir tópico
+ 0Posts
04/03/2005
Gandalf.nho
Gostei + 0
26/07/2005
Lorde_morte.
Onde voce ficou sabendo desse tipo de erro?
Formato do try:
try
{ calculation statements }
except
on <[b:89e84e26e0][color=red:89e84e26e0]type of exception[/color:89e84e26e0][/b:89e84e26e0]> do <statement>;
end;
Onde eu consigo uma lista explicativa dos tipos de erros do try?
Desde ja obrigado.
t+
Gostei + 0
26/07/2005
Tuskinhu
try with AusenciaQry do begin Close; SQL.Clear; SQL.Text := SQL_DELETE; ParamByName(´Seq´).AsInteger := Codigo; ExecSQL; Close; end; // TpAusQry except on E:Exception do begin MsgError(´Erro na execução da exclusão no Banco de Dados.´ + #13 + ´Lembrando: Para excluir um tipo de ausência é imprescindível que não´ + 13 + ´haja mais nenhum funcionário alocado a ela.´ + 13 + ´SQL: ´ + AusenciaQry.SQL.Text + 1313 + ´Erro interno/compilador:´ + E.Message); end; end; // try..except
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)