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

Preguntas similare

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





Respuesta Responder a este mensaje
#2 Fabian
22/05/2006 - 04:16 | Informe spam
Ya traté pero no se como hacer la suma por cada resultado que me entrega la
consulta!
Respuesta Responder a este mensaje
#3 Maxi [MVP]
22/05/2006 - 04:29 | Informe spam
No te comprendo realmente. Ademas el codigo es de Excel y no me queda claro
si estas o no usando Sql Server de Microsoft. Podrias se mas especifico con
ello? y tambien con lo que buscas resolver?


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

MSN:

"Fabian" escribió en el mensaje
news:%
Ya traté pero no se como hacer la suma por cada resultado que me entrega
la
consulta!


Respuesta Responder a este mensaje
#4 Fabian
22/05/2006 - 05:15 | Informe spam
Como escribí en el primer post, para mi esto es complejo, solo tengo
conocimientos leyendo y practicando tutoriales.
Es una consulta a una base de datos de Access con codigo SQL, escrito en VBA
Excel. Crei que el mejor lugar para postear una consulta SQL , si me
equivoqué pido disculpas.
Volviendo a la consulta... la base de datos se compone de unos 50000
registros + ó -, estos registros se repiten muchas veces, por lo que para
hacer una estadística hay que agruparlos, hasta ahi lo he logrado. Ahora...
necesito la suma de cada uno de estos grupos. La consulta me entrega
esto...unas 200 combinaciones de origen y destino + ó -.
Origen Destino
Bs. As. Sta. Fe
Bs. As. San Luis

Y quiero conseguir esto...
Origen Destino Importe
Bs. As. Sta. Fe #### suma de los registros(ej.)
Bs. As. San Luis #### " " " "

Gracias por tu atención Maxi!
Respuesta Responder a este mensaje
#5 Jorge Martinez
22/05/2006 - 23:24 | Informe spam
Prueba esto:

SELECT Origen, Destino, SUM(Importe) As Suma FROM Viajes GROUP BY
Origen,Destino

Espero te sirva.

SalU2


"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





Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida