Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-08-2022
GINMARMENOR GINMARMENOR is offline
Miembro
 
Registrado: feb 2016
Posts: 70
Poder: 9
GINMARMENOR Va por buen camino
Unir dos tablas sin relación

Tengo dos tablas creadas en Firebird (*.FDB), quiero unirlas para sacar un informe pero me encuentro con el siguiente problema, como es un poco complicado expresarlo os lo pongo en un ejemplo, esta tabla sería la original:

Código Delphi [-]
                
                  TABLA PEDIDOS                                    TABLA COMPRAS
             
   ID   CODIGO    NOMBRE         CANTIDAD                    ID  CODIGO      NOMBRE         CANTIDAD

    1       A001   TORNILLOS A      5.000                     1    A002     ARANDELAS A      20.000
    2       A002   ARANDELAS A      6.000                     2    A001     TORNILLOS A      15.000
    3       A003   TUERCAS A        4.000                     3    A002     ARANDELAS A      20.000
    4       A001   TORNILLOS A      4.000                     4    A003     TUERCAS A        15.000
    5       A002   ARANDELAS A      3.000                     5    A001     TORNILLOS A      25.000

Lo que hago mediante SQL, es intentar filtrar la tabla pedidos y compras y filtrar por el codigo A001 (TORNILLOS A) y obtener en un informe la cantidad de pedidos y comprados de este artículo, el codigo que utilizo para esto es


Código SQL [-]
            select * from pedidos inner join compras on pedidos.id=Compras.Id where pedidos.id=' + 
            Quotedstr('A001') + 'and Compras.Id=' + Quotedstr('A001')

De esta informe que lo hago en Rave Reports, me sale de la siguiente manera no sale nada por que no coincidente al filtrar un mismo registro con los id iguales.

Si el código SQL es el siguiente:
Código SQL [-]
select * from pedidos inner join compras on pedidos.id=Compras.Id where pedidos.id=' + 
            Quotedstr('A001');

El informe es el siguiente:
Código Delphi [-]
                TABLA PEDIDOS                                    TABLA COMPRAS
             
   ID   CODIGO    NOMBRE         CANTIDAD                    ID  CODIGO      NOMBRE         CANTIDAD

    1       A001   TORNILLOS A      5.000                     1    A002     ARANDELAS A      20.000    
    4       A001   TORNILLOS A      4.000                     4    A003     TUERCAS A        15.000

También seria igual si el código es left join, y y si con right join.

El informe sería:
Código Delphi [-]
 ID   CODIGO    NOMBRE         CANTIDAD              ID  CODIGO      NOMBRE         CANTIDAD
    
    2       A002   ARANDELAS A      6.000             2    A001     TORNILLOS A      15.000 
    5       A002   ARANDELAS A      3.000             5    A001     TORNILLOS A      25.000
Si lo filtro por la tabla compras me arrastra los datos del mismo registro de la tabla Pedidos y al revés y sólo busco que me filtre en ambas tablas las que son iguales al código que espefico.

Lo he intentado con Inner Outer Join, y con las distintas formas de SQL JOINS SQL Joins

Mi intención es poder sacar el siguiente informe:

Código Delphi [-]
            TABLA PEDIDOS                                    TABLA COMPRAS
             
   ID   CODIGO    NOMBRE         CANTIDAD      ID  CODIGO      NOMBRE         CANTIDAD

    1       A001   TORNILLOS A      5.000        2    A001     TORNILLOS A      15.000                                                                              
    4       A001   TORNILLOS A      4.000        5    A001     TORNILLOS A      25.000

Donde puedo ver los Tornillos pedidos y Comprados en un sólo informe, pero no encuentro la manera de filtrar ambas tablas y unirlas en este informe.
Responder Con Cita
  #2  
Antiguo 28-08-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Pero exactamente qué quieres hacer?
Responder Con Cita
  #3  
Antiguo 28-08-2022
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Poder: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
No entiendo bién que es lo que quieres hacer, pero creo que la solución a tu cuestión es utilizar UNION.
Código SQL [-]
/*
Devuelve los campos ID, CODIGO, NOMBRE, CANTIDAD 
de las tablas PEDIDOS y COMPRAS 
cuyo CODIGO='A001'
*/
SELECT id, codigo, nombre, cantidad
FROM PEDIDOS
WHERE
codigo = 'A001'
UNION ALL
SELECT id, codigo, nombre, cantidad
FROM COMPRAS
WHERE
codigo = 'A001'

Si las tablas contienen
Código:
                  TABLA PEDIDOS                                    TABLA COMPRAS
             
   ID   CODIGO    NOMBRE         CANTIDAD                    ID  CODIGO      NOMBRE         CANTIDAD

    1       A001   TORNILLOS A      5.000                     1    A002     ARANDELAS A      20.000
    2       A002   ARANDELAS A      6.000                     2    A001     TORNILLOS A      15.000
    3       A003   TUERCAS A        4.000                     3    A002     ARANDELAS A      20.000
    4       A001   TORNILLOS A      4.000                     4    A003     TUERCAS A        15.000
    5       A002   ARANDELAS A      3.000                     5    A001     TORNILLOS A      25.000
deolvería

Código:
   ID   CODIGO    NOMBRE         CANTIDAD

    1    A001   TORNILLOS A      5.000
    4    A001   TORNILLOS A      4.000
    2    A001   TORNILLOS A      15.000
    5    A001   TORNILLOS A      25.000
Nota:
La instrucción UNION puede tener dos formas
UNION : Si un registro se repite solo devuelve uno.
Si tanto en la tabla de pedidos como en compras hubiera un registro 1,'A001', TORNILLOS A, 10,000 te deolvería una sola línea

UNION ALL : Devuelve todos los registros aunque estén repetidos.
Si tanto en la tabla de pedidos como en compras hubiera un registro 1,'A001', TORNILLOS A, 10,000 te deolvería dos líneas)

Nota 2:
Puedes agregar un campo fijo para saber el origen de cada dato. De lo contrario no sabrás si el ID se refiere al ID de una tabla o de otra
Código SQL [-]
/*
Devuelve los campos ID, CODIGO, NOMBRE, CANTIDAD 
de las tablas PEDIDOS y COMPRAS 
cuyo CODIGO='A001'
*/
SELECT 'PED' as tipo, id, codigo, nombre, cantidad
FROM PEDIDOS
WHERE
codigo = 'A001'
UNION ALL
SELECT 'COM' as tipo, id, codigo, nombre, cantidad
FROM COMPRAS
WHERE
codigo = 'A001'

/*
Devuelve
    TIPO  ID   CODIGO    NOMBRE         CANTIDAD

    PED    1    A001   TORNILLOS A      5.000
    PED    4    A001   TORNILLOS A      4.000
    COM    2    A001   TORNILLOS A      15.000
    COM    5    A001   TORNILLOS A      25.000
*/
Responder Con Cita
  #4  
Antiguo 28-08-2022
GINMARMENOR GINMARMENOR is offline
Miembro
 
Registrado: feb 2016
Posts: 70
Poder: 9
GINMARMENOR Va por buen camino
duilioisol me sale todo como dices la tabla perfecto, para este caso utiliza UNION en vez de UNION ALL, miles de gracias.

pero lo único que no consigo introducir los datos en el campo (TIPO) para diferenciar si es de una tabla u otra, ya que lo hago en modo diseño por que tengo que pasar por 'SQl.Txt:=' '':



/*
sql.text:=' SELECT 'PED' as tipo, id, codigo, nombre, cantidad
FROM PEDIDOS
WHERE
codigo = 'A001'
UNION
SELECT 'COM' as tipo, id, codigo, nombre, cantidad
FROM COMPRAS
WHERE
codigo = 'A001' '
*/

He intentado miles de formas pero al usar las comillas no lo puedo hacer, no consigo insertar los datos.
Responder Con Cita
  #5  
Antiguo 28-08-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Hay varias formas, lo mejor es usar parámetros.
De todas formas prueba a usar la comilla doble "
Responder Con Cita
  #6  
Antiguo 28-08-2022
GINMARMENOR GINMARMENOR is offline
Miembro
 
Registrado: feb 2016
Posts: 70
Poder: 9
GINMARMENOR Va por buen camino
No tampoco con doble comillas funciona da error
Código Delphi [-]
/*
sql.text:=' SELECT "PED" as tipo, id, codigo, nombre, cantidad
FROM PEDIDOS
WHERE
codigo = 'A001'
UNION
SELECT "COM" as tipo, id, codigo, nombre, cantidad
FROM COMPRAS
WHERE
codigo = 'A001' '
*/
Por internet no encuentro nada que pueda unir dos tablas y además insertar datos fijos en un campo, con esta sintaxis.

Última edición por Casimiro Notevi fecha: 28-08-2022 a las 23:51:14. Razón: Poner etiquetas [delphi] [/delphi] al código.
Responder Con Cita
  #7  
Antiguo 28-08-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Ahí no, en el parámetro:
Código Delphi [-]
codigo = "A001" '
Y por cierto, no olvides usar las etiquetas para código, gracias.
Responder Con Cita
  #8  
Antiguo 29-08-2022
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Poder: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
He intentado miles de formas pero al usar las comillas no lo puedo hacer, no consigo insertar los datos.

¿Cuál es el mensaje de error?

Si es un error de Delphi que te impide compilar y dice alg así como que "la línea no termina" debes seguir haciéndolo como hasta ahora lo hacías (Según tu ejemplo anterior)

Código Delphi [-]
SQL.Text := 'select * from pedidos inner join compras on pedidos.id=Compras.Id where pedidos.id=' + Quotedstr('A001') + ' and Compras.Id=' + Quotedstr('A001');

Para enteder el tema:
1. Los strings en Delphi se determinan entre comillas simpels
Código Delphi [-]
s := 'Hello World';
wrilte(s);
Código:
=>Hello World
2. La forma de poner una comilla simple en un string en el codigo es repitiéndola
Código Delphi [-]
s := 'Hello ''World''';
wrilte(s);
Código:
=>Hello 'World'
3. Otra forma de hacer lo mismo es mediante la función QuoteStr
Código Delphi [-]
s := 'Hello ' + QuotedStr('World');
wrilte(s);
Código:
=>Hello 'World'

Yo suelo hacerlo de la siguiente manera para poder ver código SQL dentro de código Delphi facilmente:

Código Delphi [-]
// Cierro Dataset
// Asigno SQL
// Filtro por parámetro
// Abro Dataset
with DataSet do
begin
   Close;
   SQL.Clear;
   SQL.Add(' SELECT ''PED'' as tipo, id, codigo, nombre, cantidad ');
   SQL.Add(' FROM PEDIDOS ');
   SQL.Add(' WHERE ');
   SQL.Add(' codigo = :CODIGO ');
   SQL.Add(' UNION ');
   SQL.Add(' SELECT ''COM'' as tipo, id, codigo, nombre, cantidad ');
   SQL.Add(' FROM COMPRAS ');
   SQL.Add(' WHERE ');
   SQL.Add(' codigo = :CODIGO ');
   Params.ByName['CODIGO'].AsString := 'A001';
   Open;
   [...]
end;
Responder Con Cita
  #9  
Antiguo 29-08-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Es la mejor opción y la más profesional y segura.
Cita:
Empezado por duilioisola Ver Mensaje
Código Delphi [-]
SQL.Add(' codigo = :CODIGO ');
Params.ByName['CODIGO'].AsString := 'A001'
La opción de poner dobles comillas también funciona, aunque no me gusta.
Responder Con Cita
  #10  
Antiguo 30-08-2022
GINMARMENOR GINMARMENOR is offline
Miembro
 
Registrado: feb 2016
Posts: 70
Poder: 9
GINMARMENOR Va por buen camino
Ok, funciona perfectamente, gracias por vuestra paciencia.
Responder Con Cita
Respuesta



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
SQL - Relación de 3 Tablas VFont SQL 2 01-07-2014 02:01:18
Relación de dos tablas laguilar59 SQL 3 13-12-2012 18:05:55
unir dos tablas djanp Conexión con bases de datos 5 28-11-2007 16:30:06
Relacion de dos tablas DBF Antuan Conexión con bases de datos 7 01-10-2005 22:10:50
unir tablas Mario1980 Conexión con bases de datos 8 22-10-2004 11:36:45


La franja horaria es GMT +2. Ahora son las 00:49:13.


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