Unir dos consultas SQL

[Neftali [Germán.Estévez]]

Si utilizas un ADOQuery con la siguiente SQL deberían salir los datos que necesitas:

Código SQL [-]
Select TipoMoneda, SUM(Importe) from Tabla4 GROUP bY TipoMoneda

TipoMoneda   Importe
-----------------------
CUC              22,50
CUP              10,30

[Neftali [Germán.Estévez]]

Aunque no es lo que necesitas exactamente sí contesta a una cuestión que has planteado al principio.
Utilizando un único TADOquery SI hay la posibilidad de ejecutar varias consultas independientes y acceder a los resultados.

Es decir, podemos añadir a la propiedad SQL algo como esto:

Código SQL [-]
select * from TABLA1;
select * from TABLA2;
select * from TABLA3;

Y podemos recuperar los Datos en tres Recordset diferentes.

Si utilizamos en siguiente código:

Código Delphi [-]
var
  rs:_Recordset;
  i:OleVariant;
begin
  query.Close;
  query.Open;

  rs := query.Recordset;
  Memo1.Lines.Add('--------------------------');
  while Assigned(rs) do begin
    while (not rs.EOF) do begin
      Memo1.Lines.Add(rs.Fields[0].Value);
      rs.MoveNext;
    end;
    rs := query.Recordset.NextRecordset(i);
    Memo1.Lines.Add('--------------------------');
  end;

Podemos obtener todos los recordset de la query (las 3 tablas) y todos los registros de cada recordset (tabla)
Y el resultado en pantalla sería algo así:

--------------------------
Campo1 AAAAAA Tabla1
Campo1 BBBBBB Tabla1
--------------------------
Campo1 CCCCCC Tabla2     
Campo1 DDDDDD Tabla2
--------------------------
Campo1 EEEEEE Tabla3     
Campo1 FFFFFF Tabla3
--------------------------

[Yulexis]

Gracias mamcx y Neftali(La segunda ves que me ayudas hermano)


Resolví el problema con la siguiente SQL la cual armé luego de leer de que dentro de una llamada SQL se puede implementar un If...Then:

Código SQL [-]
SELECT
    Sum(iif(fact.Tipo_de_Moneda='CUP',fact.Importe, 0)) AS Importe_Total_CUP,
    Sum(iif(fact.Tipo_de_Moneda='CUC',fact.Importe, 0)) AS Importe_Total_CUC,
    Sum(iif(fact.Tipo_de_Moneda='CUP' AND fact.Estado='Facturada',fact.Importe, 0)) AS Importe_Sin_Pagar_CUP,
    Sum(iif(fact.Tipo_de_Moneda='CUC' AND fact.Estado='Facturada',fact.Importe, 0)) AS Importe_Sin_Pagar_CUC,
    Sum(iif(fact.Tipo_de_Moneda='CUP' AND fact.Estado='Pagada',fact.Importe, 0)) AS Importe_Pagado_CUP,
    Sum(iif(fact.Tipo_de_Moneda='CUC' AND fact.Estado='Pagada',fact.Importe, 0)) AS Importe_Pagado_CUC
FROM Facturas as fact

Esto me funciona perfectamente, se vinculan cada uno de los campos de la consulta con sus respectivas Label y listo (los muestro pero puedo hacer cualquier cosa con ellos).



Espero me den su opinión de si es o no una forma eficiente de realizarlo. Cómo será el consumo de recurso cuando tenga una gran cantidad de registros?

[Yulexis]

Así me ha quedado. En colores los datos que obtengo con la SQL.