key violation
Estou tendo problemas com cadastro, preciso evitar q o usuario entre com o mesmo ´Registro de matrícula´(RM). Bom se alguém puder postar uma rotina simples q possa me ajudar, ficarei grato! Estou tentando com algo assim:
try
Dm.TbAlunos.FieldByName(´RM´).AsString := Edit1.Text;
Dm.TbAlunos.Post;
except on EBDEngineError do
Showmessage(´Aluno já existe´);
end;
aceito criticas sobre a rotina acima, quero aprender!!!!
try
Dm.TbAlunos.FieldByName(´RM´).AsString := Edit1.Text;
Dm.TbAlunos.Post;
except on EBDEngineError do
Showmessage(´Aluno já existe´);
end;
aceito criticas sobre a rotina acima, quero aprender!!!!
Slugger
Curtidas 0
Respostas
Paul
10/05/2003
No evento OnPostError do objeto TTable voce coloca a seguinte instrução:
Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction);
Var ErroMens: String;
begin
ErroMens := E.Message;
if ErroMens = ´Key violation.´ then begin
ShowMessage(´Chave duplicada!´);
Action := daAbort;
end;
end;
Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction);
Var ErroMens: String;
begin
ErroMens := E.Message;
if ErroMens = ´Key violation.´ then begin
ShowMessage(´Chave duplicada!´);
Action := daAbort;
end;
end;
GOSTEI 0