Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 10-05-2007
Avatar de karlaoax
karlaoax karlaoax is offline
Miembro
 
Registrado: oct 2003
Ubicación: Monterrey
Posts: 280
Poder: 23
karlaoax Va por buen camino
Ok, hecha un vistazo a este ecodigo:

En un Query: // lo llamare qr, o le pones cualquiera
SELECT campos
FROM tabla
WHERE campo=:campo // sera pasado como parametro

En tu Boton:
clientdataset1.close;
qr.SQL.text:='SELECT *FROM tabla WHERE codigo="'+strtoint(edit1.text)+'"';
{ es pasado como parametro del query}
clientdataset1..Open;

Y si necesitas validar si existe o no, X registro en tu tabla, agregas un variable de esta forma:
var
options:tlocateoptions;


y en tu codigo agregas:
if not qr.Locate('campo',edit1.text,options) then
messagebox(handle,'Algun mensaje que advierta que no existe tu registro','error',mb_ok);;
edit1.SetFocus; // Colocas tu foco en el edit
edit1.text:=''; // Si deseas borras lo que estuvo mal escrito


Espero te sirva.

Karla

Avisas si fue de ayuda

Por cierto, que Manejador de Base de datos utilizas?

Última edición por karlaoax fecha: 10-05-2007 a las 16:42:36.
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
busqueda sql Dark Aeris Firebird e Interbase 10 06-06-2006 23:05:20
Busqueda Con Una Sql salvanano SQL 5 05-05-2005 20:59:11
busqueda alachaise Internet 1 31-03-2005 16:57:34
Búsqueda !!! vpepen Conexión con bases de datos 4 26-11-2003 12:48:58
Error en busqueda. kwan Conexión con bases de datos 11 05-09-2003 19:43:54


La franja horaria es GMT +2. Ahora son las 08:55:56.


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