Como buscar en diferentes tablas??
 

Saludos colegas.

Estoy haciendo un programa con 3 tablas y me haria falta hacer en un Form de Busqueda. El lio es que no se como hacer que busque los datos en las 3 tablas a la vez y tampoco como poner esos resultados.

Todo depende de que las tres tablas tengan un campo en común o no.

Si tienen un campo en común lo lógico sería armar una consulta uniendo las tres tablas.

Sino, suponiendo que tengan índices, si queremos saber si lo que buscamos está en las tres tablas.

Código Delphi [-]
   Var
   lTres:Boolean;
   begin
 lTres:=False;
 
   if Table1.Findkey([lo que sea] ) = False then
   lTres:=False;
   
   if Table2.Findkey([lo que sea] ) = False then
    lTres:=False;
    
   if Table3.Findkey([lo que sea] ) = False then
    lTres:=False;
   end;

De esta manera sino está en las tres tablas, nos devolverá falso.

Un Saludo.

tambien podrias hacer lo siguiente:

if tabla1.locate('Aqui el nombre del campo de la tabla','lo que quieres buscar',[loPartialKey]) = false then
Messagedlg('El nombre(o lo que sea) no existe en la base de datos', mtinformation,[mbok],0);

if tabla2.locate('Aqui el nombre del campo de la tabla','lo que quieres buscar',[loPartialKey]) = false then
Messagedlg('El nombre(o lo que sea) no existe en la base de datos', mtinformation,[mbok],0);

if tabla3.locate('Aqui el nombre del campo de la tabla','lo que quieres buscar',[loPartialKey]) = false then
Messagedlg('El nombre(o lo que sea) no existe en la base de datos', mtinformation,[mbok],0);

si usas LoCaseInsensitive en lugar de loPartialKey te hará una busqueda de la palabra exáctamente como la escribas

Query
 

El planteamiento de tu pregunta es un poco inespecifico, pero entiendo que tal vez estes deseando hacer alguna consulta entre dos o mas tablas.

La solucion podria ser trabajar con un query y simplemente utilizar una sentencia en modo SQL entre las tablas deseadas.

por ejemplo creas el query y si kieres hacer la consulta sobre un dato recogido desde algun edit por ejemplo.

lo que haces es en una variable tipo string vas concatenando paso a paso tu sentencia.

por decir

SQL:='select * from clientes, departamentos where clientes.num_depto = departamentos.num_depto and clientes.num_cliente='+ IntToStr (edit1.text) + ' ; ' ;



lo que haces es hacer la consulta entre dos tablas por ejemplo, uniendolas con el campo en comun y despues consultar con el campo que te interesa y poniendo el valor del edit dentro de la cadena.

Con esto luego solo debes hacer lo siguiente

Query1.sql.clear; //para limpiar el contenido de la sentencia sql que contiene el query

query1.sql.add(SQL); // SQL es la cadena que concatenamos anteriormente y la metera dentro de strings, la cual sera ejecutada en caso dado que asi lo deseemos.

query1.execSQL; //ejecutamos dicha sentencia

query1.open; // abrimos el query para refrescar lo que estamos mostrando


dbgrid.refresh; //mostramos los resultados en el dbgrid


en este caso estariamos usando un componente dbgrid para mostrar y un datasource para relacionar entre el query y el dbgrid.

Espero y sea lo que necesitabas.