Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
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 04-08-2007
memox memox is offline
Registrado
 
Registrado: ago 2007
Posts: 4
Poder: 0
memox Va por buen camino
ok aca voy.
Tengo que buscar datos en una tabla, Tabla persona(nombre, dni, telefono,etc),
Lo que quiero es que el dbcombobox se pueda seleccionar(nombre, dni, telefono, etc) los nombres no el contenido; entonces lo que escribo en el edit me lo compare con el contenido del campo seleccionado, si ingreso vivian black que me busque ese nombre en la tabla en el campo nombre y asi con el campo que se seleccione en en combobox.
Ah y tengo el boton buscar que es el que pulsaria para que se realice la busqueda una vez selecionado el/los combobox y se haya escrito lo que quiero buscar.

Con respecto al 2º dbcombobox, eso todavia no se si implementarlo,lo que haria es es poder seleccionar el tipo de busqueda que se haria, parcial, completa, etc, osea que si escribo pedr, podria decirle a la busqueda que contenga cualquiera de esas letras o que me busque exactamente,pero 1º quiero que me ande el principio.

tengo 2 tablas por que tengo 1 que se llama persona y otra socio(nº socio, cuenta,etc) y estan enlazadas por el dni de la persona, en realidad son 18 tablas pero para esto necesito estas 2.

bueno espero haber sido lo mas claro posible, mas no puedo soy modelo jaja, bueno salu2
Responder Con Cita
  #2  
Antiguo 04-08-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 28
Caral Va por buen camino
Hola
Hagamos lo asi:
No me has dicho que componente usas para conectarte, pero, bueno:
Código:
procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      Query1.Filtered := False;
      If Combobox1.Text = 'dni' then Filtro := 'dni Like ' Edit1.Text
         else If Combobox1.Text = 'Nombre' then Filtro := 'Nombre Like '''  Edit1.Text   '*'''
            else If Combobox1..Text = 'Teléfono' then Filtro := 'Telefono Like '''  Edit1.Text   '*''';
      Query1.Filter := Filtro;
      Query1.Filtered := True
   end
   else Query1.Filtered := False;
end;
Por Cierto, Gracias Roman, queda muy bien.
Saludos
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
mostrar un campo de una tabla en un dbcombobox emenchi34 Conexión con bases de datos 9 01-11-2006 20:40:03
Búsqueda de datos en una tabla Tonio Conexión con bases de datos 2 22-05-2004 00:06:45
DBComboBox para mostrar valores de una tabla PTW Conexión con bases de datos 3 15-04-2004 19:37:08
Tabla de búsqueda silviodp Conexión con bases de datos 21 27-02-2004 01:17:07
Tabla de Búsqueda silviodp Varios 3 02-10-2003 21:09:53


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


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