Try não funciona no D7?
Pessoal alguém sabe me dizer o que está errado neste código:
Begin
Try
dm.TblLocProf.close;
dm.TblLocProf.SQL.clear;
dm.TblLocProf.SQL.add(´SELECT * FROM mkprofessor WHERE cpf Like :cpf ´);
dm.TblLocProf.ParamByName(´cpf´).AsString:=EdCPF.Text;
DM.TblLocProf.Prepare;
dm.TblLocProf.open;
cpf:=DM.TblLocProfcpf.Value;
Except
If MessageDlg(´O CPF informado ainda não foi cadastrado no sistema!´+#13+´Deseja continuar e cadastrar este professor?´,mtInformation,[mbYes,mbNo],0)=mrYes Then
Begin
EdNome.Text:=´´;
EdNome.SetFocus;
End
Else
Begin
EdCPF.Text:=´´;
EdCPF.SetFocus;
End;
End;
End
Quando cai no bloco que deve executar o Try ele não faz nada, por que será?
Valeu
Angelo
Begin
Try
dm.TblLocProf.close;
dm.TblLocProf.SQL.clear;
dm.TblLocProf.SQL.add(´SELECT * FROM mkprofessor WHERE cpf Like :cpf ´);
dm.TblLocProf.ParamByName(´cpf´).AsString:=EdCPF.Text;
DM.TblLocProf.Prepare;
dm.TblLocProf.open;
cpf:=DM.TblLocProfcpf.Value;
Except
If MessageDlg(´O CPF informado ainda não foi cadastrado no sistema!´+#13+´Deseja continuar e cadastrar este professor?´,mtInformation,[mbYes,mbNo],0)=mrYes Then
Begin
EdNome.Text:=´´;
EdNome.SetFocus;
End
Else
Begin
EdCPF.Text:=´´;
EdCPF.SetFocus;
End;
End;
End
Quando cai no bloco que deve executar o Try ele não faz nada, por que será?
Valeu
Angelo
Angelo
Curtidas 0
Respostas
Carnette
16/05/2003
Pessoal alguém sabe me dizer o que está errado neste código:
Begin
Try
dm.TblLocProf.close;
dm.TblLocProf.SQL.clear;
dm.TblLocProf.SQL.add(´SELECT * FROM mkprofessor WHERE cpf Like :cpf ´);
dm.TblLocProf.ParamByName(´cpf´).AsString:=EdCPF.Text;
DM.TblLocProf.Prepare;
dm.TblLocProf.open;
cpf:=DM.TblLocProfcpf.Value;
Except
If MessageDlg(´O CPF informado ainda não foi cadastrado no sistema!´+#13+´Deseja continuar e cadastrar este professor?´,mtInformation,[mbYes,mbNo],0)=mrYes Then
Begin
EdNome.Text:=´´;
EdNome.SetFocus;
End
Else
Begin
EdCPF.Text:=´´;
EdCPF.SetFocus;
End;
End;
End
Quando cai no bloco que deve executar o Try ele não faz nada, por que será?
Valeu
Angelo
Para que serve o TRY ECCEPT ???
Amignho...QUAL é a EXCEÇÃO que está ocorrendo em seu código ??
NENHUMA...TRY com EXCEPT é para controlar ERROS no código ou no banco de dados que vc usa...aí sim vc trata tudo na clausula EXCEPT...
Seu código como é mostrado esta totalmente correto...Não vai causar enhum EXCEPT no seu programa...é por isto que não aparece a a mensagem...
O que vc está fazendo pode ser tratado com uma isntrução IF THEN simples ok.....
TRY com EXCEPT...é pra corrigir os PAUS no seu programa...ok
GOSTEI 0
Angelo
16/05/2003
Obrigado Carnette, é por isso que não uncionou, he he :lol:
Angelo
:oops:
Angelo
:oops:
GOSTEI 0