Ver Mensaje Individual
  #1  
Antiguo 08-01-2010
mgp2401 mgp2401 is offline
Registrado
 
Registrado: ene 2010
Posts: 1
Reputación: 0
mgp2401 Va por buen camino
Problema al validar DBEdit con ADOQuery

Estoy haciendo un proyecto para la escuela y quiero validar un DBEdit para no introducir datos ya existentes en una tabla. Funciona si el dato introducido ya existe y me muestra el correspondiente mensaje pero si el dato es nuevo no me permite continuar con el resto. Si me pueden ayudar se los agradesco, soy principiante en Delphi. La BD es en Access. Aqui les pongo el código por si lo necesitan.
procedure TNTecForm.DBEIdExit(Sender: TObject);
begin
with ADOQuery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from NTecnicos where cod_tecnico =' +DBEId.Text); ADOQuery1.Open; //abro la consulta
if ADOQuery1.IsEmpty then//si el resultado de la consulta esta vacia...
begin
DBENombre.SetFocus;
end
else
ShowMessage('Ese codigo ya existe');
DBEId.Clear;
DBEId.SetFocus;

end;
end;
Responder Con Cita