key violation

10/05/2003

1

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!!!!


Responder

Posts

10/05/2003

Paul

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;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira