Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-01-2010
mgp2401 mgp2401 is offline
Registrado
 
Registrado: ene 2010
Posts: 1
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
validar un dbedit moyo18 Conexión con bases de datos 32 08-01-2009 20:19:11
Validar un Dbedit? kman Varios 10 13-03-2007 04:07:11
resultado ADOQuery en dbedit estopi Conexión con bases de datos 2 15-08-2006 16:31:48
Validar un DBEdit con delphi interbase servicomp Conexión con bases de datos 8 06-08-2006 16:27:11
validar dbedit yeison Cristman Conexión con bases de datos 1 29-07-2006 21:55:56


La franja horaria es GMT +2. Ahora son las 17:58:39.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi