Consulta SQL en Excel

02/02/2006 - 03:15 por Fabian | Informe spam
Hola a todos!!!
No se como hacer que sume en la consulta, el campo que quiero sumar es
Importe, SUM(Importe) no funciona.

With Hoja13.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Mis
documentos\BaseViajes.mdb;DefaultDir=C:\Mis documentos;DriverId(1;FIL=MS
Access;MaxBufferSi" _
), Array("ze 48;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Viajes.Titular, Viajes.Acompañante, Viajes.`Fecha Viaje`,
Viajes.Horario, Viajes.Origen, Viajes.Destino, Viajes.Importe" & Chr(13) &
"" & Chr(10) & "FROM `C:\Mis documentos\BaseViajes`.Viajes Viajes" & Chr(13)
& "" & Chr(10) & "WHERE (Viajes.Titular" _
, "='" & UserForm10.TextBox1.Text & "')" & Chr(13) & "" & Chr(10) &
"ORDER BY Viajes.`Fecha Viaje`")

Saludos!
 

Leer las respuestas

#1 Héctor Miguel
03/02/2006 - 07:55 | Informe spam
hola, Fabian !

No se como hacer que sume en la consulta, el campo que quiero sumar es Importe, SUM(Importe) no funciona.



la funcion 'sum(...' en sentencias de sql pudiera tener/necesitar de algunas 'variantes' -?-
como 'casar' la tabla con el campo: Sum(Viajes.Importe)
o asignarla a una variable 'de rescate': Sum(Viajes.Importe) As Importe [etc.]
-> tampoco comentas donde es que tratas de insertar en la consulta la funcion suma -?-
ve si te sirven los ejemplos de las siguientes conversaciones:
-> http://tinyurl.com/85avh
-> http://tinyurl.com/b78hs

saludos,
hector.

==> With Hoja13.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Mis documentos\BaseViajes.mdb;DefaultDir=C:\Mis documentos;DriverId(1;FIL=MS Access;MaxBufferSi" _
), Array("ze 48;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT Viajes.Titular, Viajes.Acompañante, Viajes.`Fecha Viaje`, Viajes.Horario, Viajes.Origen, Viajes.Destino, Viajes.Importe" & Chr(13) & "" & Chr(10) & "FROM `C:\Mis
documentos\BaseViajes`.Viajes Viajes" & Chr(13) & "" & Chr(10) & "WHERE (Viajes.Titular" _
, "='" & UserForm10.TextBox1.Text & "')" & Chr(13) & "" & Chr(10) & "ORDER BY Viajes.`Fecha Viaje`")

Preguntas similares