Consulta shape
HOLA TODOS, tengo un reporte al cual le asigno un recorset
con la siguiente consulta, el problema esta en que deseo hacer la consulta con tres tablas CLIENTES, FACTURAS, DETALLES_FACTURAS, actualmente tiene dos tablas CLIENTES, FACTURAS.
NECESITO AYUDA O INFORMACION SOBRE EL TEMA. GRACIAS
strSQL = strSQL & "SHAPE { "
strSQL = strSQL & "SELECT Clientes.* "
strSQL = strSQL & "FROM Clientes "
strSQL = strSQL & "WHERE Nombre = '" & Frm_Informe.DCombo_Clientes.BoundText & "'} AS Command3 "
strSQL = strSQL & "APPEND ({ "
strSQL = strSQL & "SELECT Factura.* "
strSQL = strSQL & "FROM Factura "
strSQL = strSQL & "WHERE FechaPedido "
strSQL = strSQL & "BETWEEN #" & strFrom & "# "
strSQL = strSQL & "AND #" & strTo & "# "
strSQL = strSQL & "} AS Command4 "
strSQL = strSQL & "RELATE 'IdCliente'TO'IdCliente') "
strSQL = strSQL & "AS Command4 "
RsT.Open strSQL, CnN, adOpenForwardOnly
Set DataReport1.DataSource = RsT
con la siguiente consulta, el problema esta en que deseo hacer la consulta con tres tablas CLIENTES, FACTURAS, DETALLES_FACTURAS, actualmente tiene dos tablas CLIENTES, FACTURAS.
NECESITO AYUDA O INFORMACION SOBRE EL TEMA. GRACIAS
strSQL = strSQL & "SHAPE { "
strSQL = strSQL & "SELECT Clientes.* "
strSQL = strSQL & "FROM Clientes "
strSQL = strSQL & "WHERE Nombre = '" & Frm_Informe.DCombo_Clientes.BoundText & "'} AS Command3 "
strSQL = strSQL & "APPEND ({ "
strSQL = strSQL & "SELECT Factura.* "
strSQL = strSQL & "FROM Factura "
strSQL = strSQL & "WHERE FechaPedido "
strSQL = strSQL & "BETWEEN #" & strFrom & "# "
strSQL = strSQL & "AND #" & strTo & "# "
strSQL = strSQL & "} AS Command4 "
strSQL = strSQL & "RELATE 'IdCliente'TO'IdCliente') "
strSQL = strSQL & "AS Command4 "
RsT.Open strSQL, CnN, adOpenForwardOnly
Set DataReport1.DataSource = RsT
1 Respuesta
Respuesta de denciso