sonalizada. Ou ainda,
veja em Tools -> Debugger Options... algumas opções para personalizar o
tratamento de exceptions.
Vitor.
- Original Message -
From: Alexandre Yahoo
To: delphi-br@yahoogrupos.com.br
Sent: Friday, November 11, 2005 9:54 AM
Subject: Re: [delphi-br] try e
-fl
To: delphi-br
Sent: Thursday, November 10, 2005 12:13 AM
Subject: [delphi-br] try except
Opa! Valeu aí à galera que me ajudou com o problema da senha no access!
Mas aproveitando o ensejo (hehe), queria aproveitar e perguntar uma coisa:
Eu tava aqui tentando fazer o seguinte: um Edit
Opa! Valeu aí à galera que me ajudou com o problema da senha no access!
Mas aproveitando o ensejo (hehe), queria aproveitar e perguntar uma coisa:
Eu tava aqui tentando fazer o seguinte: um Edit onde vc põe a senha do banco e
um botão que tenta conectar ao banco. Mas como eu uso o try except nesse
Sent: Thursday, October 06, 2005 6:46 PM
Subject: [delphi-br] try...except
> Pessoal,
>
> Estou fazendo um teste de tratamento de excessão,
> utilizando uma forma e uma sugestão do nosso colega
> Walter.
> O problema é que a excessão é gerada, mas não passa no
> bloco except. Algu
Esqueci de dizer que estou usando D2K5 e que a
excessão é gerada no momento do na linha do
ApplyUdates(-1)
[]´s
Luis Alberto
--- Luis Lopes <[EMAIL PROTECTED]>
escreveu:
> Pessoal,
>
> Estou fazendo um teste de tratamento de excessão,
> utilizando uma forma e uma sugestão do nosso colega
> Wa
Pessoal,
Estou fazendo um teste de tratamento de excessão,
utilizando uma forma e uma sugestão do nosso colega
Walter.
O problema é que a excessão é gerada, mas não passa no
bloco except. Alguém já viu isso acontecer?
Ae está a unit do teste. Está preparada para gerar uma
excessão e a excessão es
vitor" <[EMAIL PROTECTED]>
To:
Sent: Friday, September 09, 2005 7:39 AM
Subject: [delphi-br] try except
alguem poderia me dar uma dica de como usar o try except! tenho uma
aplicacao na qual qdo inserido umprodutocom mesmo codigo da um pla
deviolaçao dechave primaria, o pal da o event
alguem poderia me dar uma dica de como usar o try except! tenho uma aplicacao
na qual qdo inserido umprodutocom mesmo codigo da um pla deviolaçao dechave
primaria, o pal da o evento updateerror alguemsabe como posso tratar isso para
q o aplicativo naom se feche e o usuario saiba o q fez de errad
5 [mailto:[EMAIL PROTECTED]
> Enviada em: sábado, 23 de julho de 2005 15:26
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] try except não pega o erro
>
>
> Estou usando
> try
> strtoint(Tabela.FieldByName('campo').AsString);
> except
>
segurança o sistema será finalizado.' );
Application.Terminate; // se vc quiser fechar o programa quando ocorrer
um erro.
end;
end;
- Original Message -
From: "Eduardo" <[EMAIL PROTECTED]>
To:
Sent: Saturday, July 23, 2005 10:19 PM
Subject: RES: [delphi-br] try except não
: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] try except não pega o erro
Esta linha sempre tem que ter ou uma variavel que recebe o valor ou que
retorna uma valor tipo:
strtoint(Tabela.FieldByName('campo').AsString) := Variavel;
ou
Variavel := strtoint(Tabela.FieldByName(&#x
erro... mas estranho pois o
delphi devia te avisar isso pois náo existe logica em declarar um valor pra
nada.
Marcelo Silva
- Original Message -
From: delphi6_2005
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, July 23, 2005 3:26 PM
Subject: [delphi-br] try except não p
Variavel := Tabela.FieldByName('campo').AsInteger;
except
on E: Exception do
GravaLogTxt(E.Message);
end;
- Original Message -
From: delphi6_2005
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, July 23, 2005 3:26 PM
Subject: [delphi-br] try except
Estou usando
try
strtoint(Tabela.FieldByName('campo').AsString);
except
on E: Exception do
GravaLogTxt(E.Message);
end;
Mais não funciona.
Agradeço as dicas
Alex
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver as mensagens antigas, aces
PROTECTED]
Em nome de Alisson
Enviada em: quinta-feira, 2 de junho de 2005 19:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] try..except não funciona com DBExpress(?)
Boa noite pessoal!
Estou com um problema bem estranho e gostaria que alguém me ajudasse.
Eu tenho um ClientDataSet
Desse jeito ele vai tentar executar o commit mesmo que dê erro. O
commit tem que estar dentro do bloco try.
Em 03/06/05, Vitor Luiz Redes<[EMAIL PROTECTED]> escreveu:
>Olhe, se não me engano, o seu bloco Try está errado, tente assim ...
>
> conn.StartTransaction(TD);
> try
>try
>csdC
lmeida
Enter&Plug Informática
Divisão: Desenvolvimento e Banco de dados
MSN: [EMAIL PROTECTED]
Skype: enterplug_thiago
- Original Message -
From: "Alisson" <[EMAIL PROTECTED]>
To:
Sent: Friday, June 03, 2005 4:01 PM
Subject: Re: [delphi-br] try..except não funciona
Sent: Friday, June 03, 2005 12:35 PM
Subject: Re: [delphi-br] try..except não funciona com DBExpress(?)
> Seguinte:
>
> Nunca use ApplyUpdate(-1) pq assim ele vai deixar passar todos os erros.
> Faça um ApplyUpdate(0) que a cada erro ele vai chamar o OnReconcileError.
>
> Se v
Seguinte:
Nunca use ApplyUpdate(-1) pq assim ele vai deixar passar todos os erros.
Faça um ApplyUpdate(0) que a cada erro ele vai chamar o OnReconcileError.
Se você quiser simplesmente jogar uma execeção para o usuario faça:
on e: Exception do
raise Exception.Create(e.message)
.. no evento On
Olhe, se não me engano, o seu bloco Try está errado, tente assim ...
conn.StartTransaction(TD);
try
try
csdCliente.ApplyUpdates(0);
except
conn.RollBack(TD);
finally
conn.Commit(TD);
end
end;
Foi mal se estiver com algo errado, eu não testei ... mas assim deve
funcion
mão mesmo). Faz um teste e
"feedbacks-nos".
---
[]'s
Alexandre
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Alisson
Enviada em: quinta-feira, 2 de junho de 2005 19:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] try.
Eu tive problemas pra utilzar Transações com DBExpress quando usava o
driver da UIB, ele simplesmente ignorava o exception e commitava os
dados, ai passei a usar o driver para interbase e apesar das
incompatibilidades com o FB 1.5 as transações funcionam normais agora.
carlos sene escreveu:
>
Tenta assim... no clientadataset as excessões não
retornam...
conn.StartTransaction(TD);
if csdCliente.ApplyUpdates(-1) = 0 then
begin
conn.Commit(TD);
end else
begin
conn.RollBack(TD);
end;
--- Alisson <[EMAIL PROTECTED]> escreveu:
-
Boa noite pess
Olá!
Não sei se vai funcionar, mas tente colocar
csdCliente.ApplyUpdates(-1);
Abraços,
Ana
- Original Message -
From: "Alisson" <[EMAIL PROTECTED]>
To:
Sent: Thursday, June 02, 2005 7:27 PM
Subject: [delphi-br] try..except não funciona com DBExpress(?)
Boa noite pes
Boa noite pessoal!
Estou com um problema bem estranho e gostaria que alguém me ajudasse.
Eu tenho um ClientDataSet -> TDataSetProvider -> TSQLDataSet -> TSQLConnection.
Tenho basicamente o seguinte código para atualizar o mesmo:
...
conn.StartTransaction(TD);
try
csdCliente.ApplyUpdates(0);
Olá amigos da lista!
Estou com um problema que é o seguinte:
estou tentando usa a seguinte rotina para a exclusão de meus registros:
begin
if MessageDlg('Deseja realmente excluir o'+#13+
'Cliente: '+DBEdit3.Text,
mtConfirmation,[mbYes, mbNo],0) = mrYes then
try
Dataset.ExecSql;
except
on E : EDatabaseError do
begin
if (Pos('PRIMARY OR UNIQUE KEY', UpperCase (E.Message)) <> 0) then
MessageDlg('Não é possível incluir valores duplicados!',mtError,[mbOK],0);
Database.Rollback;
end;
end;
Você
Ola pessoal,
Estou tentando implementar uma rotina em que o sistema salve algumas
informações em um BD, mas, caso os dados já existam (Primary Key), um update
será executado no bloco (try, except). Minha duvida e justamente com o bloco
try, except, pois, caso não seja um erro gerado por primary
try
ExecSql;
execpt
on e: exception do
begin
showmessage(e.message);
Application.Terminate;
end;
end;
- Original Message -
From: Valdemir - PROSIS
To: [EMAIL PROTECTED]
Sent: Saturday, September 18, 2004 10:55 AM
Subject: [delphi-br] Try Except
Valdemir,
Tente dessa forma:
try
ExecSQL;
except
on E:Exception do
begin
ShowMessage(E.Message);
Application.Terminate;
end;
end;
Nielsen
On Sat, 18 Sep 2004 10:55:55 -0300, Valdemir - PROSIS
<[EMAIL PROTECTED]> wrote:
> Pessoal tenho a seguinte estru
Pessoal tenho a seguinte estrutura
try
ExecSQL;
except
Application.Terminate;
end;
Funciona... mas gostaria de mostrar a mensagem de erro para o usuário poder ter ideia
do problema
não gostaria de colocar uma mensagem generia, então fiz o segu
31 matches
Mail list logo
