Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-03-2009
Sole_l Sole_l is offline
Miembro
 
Registrado: mar 2009
Posts: 14
Poder: 0
Sole_l Va por buen camino
Question Validaciones Con Consultas SQL

Hola:
Hace poco que estoy programando en Delphi y quisiera ayuda para que un formularion en donde se busca un cliente y donde se realizan cambios sobre los datos del mismo tenga validaciones que le indiquen al usuario que por ejemplo el dni ingresado es inexistente.

tengo el siguiente codigo el cual funciona, es decir, cuando se le ingresa un dni existente muestra los demas campos de datos pero cuando no existe el dni simplemente no hace nada. Mi pregunta es como y donde coloco el codigo para que me diga que no existe ese DNI, me imagino que la Base de Datos MySQL 2005 debe devolver algo cuando no existe el dato pero que???
estoy trabajando con delphi 2007.
Código Delphi [-]
 
procedure TForm1.BitBTN1Click(Dender:TObject);
begin
  With DataModule2.AdoQuery1 do
     begin
        close;
        SQL.Clear;
        SQL.Add ('Select * from cliente where id_cliente= :dato');
        Parameters.ParamByName('dato').Value := StrToInt (DBEditDNI.Text);
        open;
      end;
end;
Muchas gracias

Última edición por marcoszorrilla fecha: 28-03-2009 a las 17:26:31.
Responder Con Cita
  #2  
Antiguo 28-03-2009
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Cita:
Empezado por Sole_l Ver Mensaje
Código Delphi [-]
 procedure TForm1.BitBTN1Click(Dender:TObject); begin   With DataModule2.AdoQuery1 do      begin         close;
         SQL.Clear;
         SQL.Add ('Select * from cliente where id_cliente= :dato');
         Parameters.ParamByName('dato').Value := StrToInt (DBEditDNI.Text);
         open; 
      end;
 end;

Muchas gracias
....
Código Delphi [-]
procedure TForm1.BitBTN1Click(Dender:TObject);
begin
  With DataModule2.AdoQuery1 do
     begin
        close;
        SQL.Clear;
        SQL.Add ('Select * from cliente where id_cliente= :dato');
        Parameters.ParamByName('dato').Value := StrToInt (DBEditDNI.Text);
        open;

if Adoquery1.RecordCount > 0 then
HacerCambios()
else
ShowMessage('No existe ese DNI.');

      end;
end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 28-03-2009
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
o también:
Código Delphi [-]
With DataModule2.AdoQuery1 do
 ...
 ...
 Open;
 IF not IsEmpty then
  HacerCambios();
 else
  showmessage('no existe');
__________________

Responder Con Cita
  #4  
Antiguo 28-03-2009
Sole_l Sole_l is offline
Miembro
 
Registrado: mar 2009
Posts: 14
Poder: 0
Sole_l Va por buen camino
Gracias

Muchas gracias por responder tan pronto.
Las dos formas funcionan, mil gracias!!!!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Validaciones con JavaScript Capo Internet 2 09-08-2006 00:20:25
Validaciones. DNI/NIF, NIE, CIF.... Niko Varios 6 05-07-2006 00:41:42
Consultas SQL V.S. Consultas Clipper AGAG4 SQL 7 20-12-2005 16:59:31
Validaciones en JAVA aniels JAVA 3 06-07-2004 03:00:52
Consultas NickName Firebird e Interbase 1 27-11-2003 06:37:27


La franja horaria es GMT +2. Ahora son las 14:24:29.


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