RE:existe refrencias cruzadas en VB 6.0
aqui os pongo un ejemplo sencillo de consulta de referencias cruzadas.
Tenemos un BD con dos tablas:
Tabla1 con el detalle de las ventas y tes campos idCliente, Fecha e importe.
Tabla2 con los nombres de los clientes y dos campos Id y Nombre.
Lo que queremos hacer es sumar todas las ventas de cada cliente y crear una tabla de referencias cruzadas con el total y desglosado por trimestres. Esta tabla la mostramos en un control DataGrid:
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\BaseDeDatos.mdb"
sql = "TRANSFORM Sum(Tabla1.Importe) AS Resultado SELECT Cliente AS [Nombre Cliente], " & _
"Sum(Tabla1.Importe) AS [Ventas Totales] FROM Tabla1 INNER JOIN " & _
"Tabla2 ON Tabla1.Id = Tabla2.Id GROUP BY Tabla1.Id, Tabla2.Cliente PIVOT " & _
"'Trimestre ' & DatePart('q',Tabla1.Fecha)"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
Espero que os ayude.