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 Hace 1 Semana
Avatar de The Cid James
The Cid James The Cid James is offline
Miembro
 
Registrado: jun 2013
Posts: 129
Poder: 5
The Cid James Va por buen camino
Consulta con "or" en Delphi

No se si esto va en esta sección, de no ser asi pido disculpas y que muevan el psot.
Tengo una duda respecto a ejecutar una consulta en Delphi teniendo OR en ella
Esta es la consulta que hice, para buscar en la tabla clientes por nombre o apellido

Código SQL [-]
Cliente.direccion,
Cliente.cuit_cliente,
Cliente.notas
FROM
    Cliente
WHERE
  Cliente.estado = 1 AND
  Cliente.apellido like :ape
OR
 Cliente.estado = 1 AND
 Cliente.nombre like :nom

Ahora lo que no se es como reglejar esto en delphi, esta es la manera en que he estado ejecutando las consultas, pero siempre con un solo parametro

Código Delphi [-]
procedure Tfcliente.BCbuscarClick(Sender: TObject);
begin
  if ECcliente.text = ''
    then
      exit
    else
      begin
      fmodulo.qCliente.ParamByName('ape').AsString := Eccliente.Text+'%';
      fmodulo.qCliente.Refresh;
      end;
end;
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
Responder Con Cita
  #2  
Antiguo Hace 1 Semana
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.874
Poder: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Cuando en la consulta SQL sólo hay involucrada una tabla, de modo que no debería haber concurrencia con los nombres de columnas, no es necesario calificarlos:
Código SQL [-]
SELECT  DIRECCION, CUIT_CLIENTE, NOTAS
FROM CLIENTE CL
WHERE ESTADO = 1 AND (APELLIDO LIKE :APE OR NOMBRE LIKE :NOM)

Y desde Delphi:
Código Delphi [-]
procedure Tfcliente.BCbuscarClick(Sender: TObject);
begin
  if ECcliente.text = '' then exit
  else
  begin
    fmodulo.qCliente.SQL.Clear;
    fmodulo.qCliente.SQL.Add('SELECT DIRECCION, CUIT_CLIENTE, NOTAS');
    fmodulo.qCliente.SQL.Add('FROM CLIENTE WHERE ESTADO = 1 AND');
    fmodulo.qCliente.SQL.Add('(APELLIDO LIKE :APE OR NOMBRE LIKE :NOM)');
    fmodulo.qCliente.ParamByName('APE').AsString := tu_EditApellido.Text + '%';
    fmodulo.qCliente.ParamByName('NOM').AsString := tu_EditNombre.Text + '%';
    fmodulo.qCliente.Open;
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo Hace 1 Semana
Avatar de The Cid James
The Cid James The Cid James is offline
Miembro
 
Registrado: jun 2013
Posts: 129
Poder: 5
The Cid James Va por buen camino
Como siempre muchas gracias!
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
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
Usar TServerSocket y TClientSocket para enviar "streams" más o menos "grandes" dec Internet 9 04-08-2015 17:11:50
Existe algun componente "linea" y "vista miniatura"? DSK25 C++ Builder 6 09-06-2013 02:23:05
El programa se queda "colgado" mientras copia y luego "despierta" NeWsP OOP 5 10-03-2010 23:05:40
"OBJECT OR CLASS TYPE REQUIRED" en "APPLICATION EXENAME" Xavierator Varios 3 27-10-2008 10:09:50
Necesito llamar a métodos de clases "hija" desde su clase "padre" Flecha OOP 17 20-04-2007 01:03:53


La franja horaria es GMT +2. Ahora son las 23:51:29.


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