consulta a partir de resultados?

22/05/2006 - 01:15 por Fabian | Informe spam
Hola a todos, estoy tratando de armar una consulta, para mi escaso
conocimineto, compleja...
Se compone de una taba donde tengo tres campos... "Origen" "Destino"
"Importe". Hasta la consulta donde separa Buenos Aires contra todos los
destinos llegué, lo que no se hacer es que sume todos los importes por
recorridoaqui va un ejempo de como tendria que quedar

Origen Destino Importe
Bs. As. Sta. Fe 99999 suma total de los registros(ej.)
Bs. As. San Luis 88888 " " " " "

Estoy haciendolo con Excel, gracias por su atencion y tiempo, ahi va la
consulta...

Private Sub Test()
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Ruta As String
Ruta = ThisWorkbook.Path

Set Cnn = New ADODB.Connection
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\BaseViajes.mdb"
.Open
End With

Set Rst = New ADODB.Recordset
Rst.Open "SELECT DISTINCT Origen,Destino " & _
"FROM Viajes WHERE Origen='Buenos Aires' " & _
"ORDER BY Destino", Cnn, , , adCmdText

With Hoja1.[a1]
.CopyFromRecordset Rst
End With

Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing

End Sub
 

Leer las respuestas

#1 Maxi [MVP]
22/05/2006 - 02:44 | Informe spam
Hola, revisa la funcion SUM de SQL


Salu2
-
[Microsoft MVP] SQL Server
Orador para Culminis Latam
www.sqlgurus.org

MSN:

"Fabian" escribió en el mensaje
news:
Hola a todos, estoy tratando de armar una consulta, para mi escaso
conocimineto, compleja...
Se compone de una taba donde tengo tres campos... "Origen" "Destino"
"Importe". Hasta la consulta donde separa Buenos Aires contra todos los
destinos llegué, lo que no se hacer es que sume todos los importes por
recorridoaqui va un ejempo de como tendria que quedar

Origen Destino Importe
Bs. As. Sta. Fe 99999 suma total de los registros(ej.)
Bs. As. San Luis 88888 " " " "
"

Estoy haciendolo con Excel, gracias por su atencion y tiempo, ahi va la
consulta...

Private Sub Test()
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Ruta As String
Ruta = ThisWorkbook.Path

Set Cnn = New ADODB.Connection
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\BaseViajes.mdb"
.Open
End With

Set Rst = New ADODB.Recordset
Rst.Open "SELECT DISTINCT Origen,Destino " & _
"FROM Viajes WHERE Origen='Buenos Aires' " & _
"ORDER BY Destino", Cnn, , , adCmdText

With Hoja1.[a1]
.CopyFromRecordset Rst
End With

Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing

End Sub





Preguntas similares