Buscar un nombre en diferentes tablas

[olbeup]

Hola Delphitest

Mi a ver si con esto te vale.

Código SQL [-]
SELECT
    CAMPO1
    ,CAMPO2
    ,CAMPOX
  FROM Clientes AS CLI
    INNER JOIN Contactos AS C
      C.IDCLIENTE = CLI.IDCLIENTE
  WHERE
    (
      CLI.NOMBRE LIKE <%Dato a buscar%>
      OR C.NOMBRE LIKE <%Dato a buscar%>
      OR CLI.APELLIDOS LIKE <%Dato a buscar%>
      OR C.APELLIDOS LIKE <%Dato a buscar%>
      OR CLI.DNI LIKE <%Dato a buscar%>
      OR C.DNI LIKE <%Dato a buscar%>
      OR CLI.TELEFONO LIKE <%Dato a buscar%>
      OR C.TELEFONO LIKE <%Dato a buscar%>
    )

Con esto buscaras en todos los campos en ambas tablas.

Un saludo

[Delphitest]

Muchas gracias por tu ayuda olbeup,

He probado porque lo que indicas tiene bastante lógica pero me salta un error de sintasis en el FROM

He ido reduciendo la sentencia SQL para ver qué es lo que no funciona y por lo que veo es en tramo donde pongo INNER JOIN...

He intentado diferentes combinaciones a ver si con una funcionaba pero no hay manera.

Los nombres de los campos son correctos y los de las tablas tambien

[ecfisa]

Empezado por Delphitest

Muchas gracias por tu ayuda olbeup,

He probado porque lo que indicas tiene bastante lógica pero me salta un error de sintasis en el FROM
...

Seguro ha sido un olvido al escribir, falta ON en la sintáxis de la composición:

Código SQL [-]
...
FROM Clientes AS CLI
    INNER JOIN Contactos AS C 
      ON C.IDCLIENTE = CLI.IDCLIENTE
...

Revisa la sintáxis de INNER JOIN

Saludos

[Delphitest]

Era por eso si, gracias

Ya no da el error de sintasis en cuanto le he añadido el ON

Ahora estoy intentando entender porque solo muestra registros que tengan algún contacto

Es decir que no muestra los clientes que no tengan contactos relacionados.

Si un cliente tiene al menos un contacto relacionado si que aparece en el resultado de la búsqueda pero si el cliente tiene solo su registro sin ningún contacto relacionado pues no aparece en la lista.

[ecfisa]

Hola Delphitest.

Empezado por Delphitest

...
Ahora estoy intentando entender porque solo muestra registros que tengan algún contacto

Es decir que no muestra los clientes que no tengan contactos relacionados.

Si un cliente tiene al menos un contacto relacionado si que aparece en el resultado de la búsqueda pero si el cliente tiene solo su registro sin ningún contacto relacionado pues no aparece en la lista.
...

En ese caso creo que vas a tener que usar FULL OUTER JOIN

Código SQL [-]
SELECT ...
FROM CLIENTES CL FULL OUTER JOIN CONTACTOS CO
   ON CL.ID = CO.CLIENTE_ID
WHERE ...

Saludos

[Delphitest]

Adjunto un pantallazo del form y el código que estoy probando porque me estoy liando un poco.

Por un lado tengo el formulario para buscar un cliente

Tiene unos edits donde meto lo que quiero buscar y a medida que escribo el dbgrid que hay por debajo se va filtrando con lo que corresponda.

Lo que pretendo es que al poner el nombre, ademas de buscar en el nombre de la tabla clientes, lo haga también en la tabla contactos de tal manera que el grid vaya mostrando el o los clientes cuyo nombre sea el que estoy escribiendo en el edit correspondiente o el cliente que tenga un contacto cuyo nombre coincida también con la búsqueda.

Con este código solo veo el cliente cuyo nombre contenga lo que escribo en el edit pero no está buscando en contactos por las pruebas que he hecho.

También he notado que si el cliente no tienen ningún contacto relacionado, tampoco se lista.

Código Delphi [-]
procedure TFBuscaCliente.Edit1Change(Sender: TObject);

var bOtraCondicion :boolean;

begin
  bOtraCondicion:=false;
  with TBuscarCliente do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM CLIENTES');

    if ( (Edit1.Text <>'') or  (Edit2.Text <>'') or (Edit3.Text <>'') or  (Edit4.Text <>'') or (Edit5.Text <>'') ) then
    begin
  Close;
    SQL.Clear;
    SQL.Add('SELECT cli.IDCLIENTE,cli.NOMBRE, cli.APELLIDOS, cli.DNI, cli.TELEFONO_FIJO, cli.PROVINCIA FROM CLIENTES AS CLI INNER JOIN Contactos AS C ON C.IDCLIENTE = CLI.IDCLIENTE');
    SQL.Add('WHERE');

      if  Edit1.Text <>'' then
      begin
        SQL.Add('CLI.NOMBRE LIKE :PNOM OR C.NOMBRE LIKE :PNOM');
        bOtraCondicion:= true;
        Parameters.ParamByName('PNOM').Value:= '%'+Edit1.Text+'%';
      end;

      if  Edit2.Text <>'' then
      begin
        if bOtraCondicion then
        SQL.Add('AND');
        SQL.Add('CLI.APELLIDOS LIKE :PAPE OR C.APELLIDOS LIKE :PAPE');
        bOtraCondicion:= true;
        Parameters.ParamByName('PAPE').Value:= '%'+Edit2.Text+'%';
      end;

      if  Edit3.Text <>'' then
      begin
        if bOtraCondicion then
        SQL.Add('AND');
        SQL.Add('CLI.DNI LIKE :PDNI OR C.DNI LIKE :PDNI');
        Parameters.ParamByName('PDNI').Value:= '%'+Edit3.Text+'%';
      end;

      if  Edit4.Text <>'' then
      begin
        if bOtraCondicion then
        SQL.Add('AND');
        SQL.Add('CLI.PROVINCIA LIKE :PPROV OR C.PROVINCIA LIKE :PPROV');
        Parameters.ParamByName('PPROV').Value:= '%'+Edit4.Text+'%';
      end;

      if  Edit5.Text <>'' then
      begin
        if bOtraCondicion then
        SQL.Add('AND');
        SQL.Add('CLI.TELEFONO_FIJO LIKE :PTFNO OR C.TELEFONO_FIJO LIKE :PTFNO');
        Parameters.ParamByName('PTFNO').Value:= '%'+Edit5.Text+'%';
      end;

    end;
    Open;
  end;
end;

Las tablas están en un Data Modulo a parte pero los campos se leen sin problemas y TBuscarCliente es una query que esta en este Form y que esta relacionada con el DBGrid, igual tengo el problema ahí...

[Casimiro Noteví]

¿Pero eso no es lo mismo que esto?

[Delphitest]

Buenos días,

inicialmente la idea era buscar por varios campos en una sola tabla, la de clientes. Eso ya se resolvió en el post que comentas y funciona perfectamente.

Ahora me ha surgido la necesidad de que la búsqueda se haga ademas de en la tabla de clientes, también y a la vez en la tabla de contactos.

De ahí mi consulta para intentar adaptar el código.

ECFISA, he probado con FULL OUTER en lugar de INNER pero me devuelve este error:

"Objeto Parameter mal definido. Se proporcionó información incompleta o incoherente"