SQL no funciona

Perdon me equivoque! era una consulta dentro de un WHERE (un select
dentro de un where.

hola, Fabian !

Perdon me equivoque! era una consulta dentro de un WHERE (un select dentro de un where.

(creo que) sigue siendo +/- lo mismo (te cambio tambien la re/pregunta)...

puedes exponer un ejemplo mas concreto de como seria tu consulta "dentro" de otra consultta ?
que no pudieras resolver con una sola consulta combinada con "where", "and", etc. etc. etc. -?-

saludos,
hector.

strSQL = "SELECT * FROM Ventas WHERE NFactura=(SELECT MAX(NFactura)FROM
Ventas)"
Como hice esto se me ocurrio que podia haber mas,.. y algo encontre,
pero a mi todavia no se me ocurrio nada Disculpame por no ser claro
con la pregunta...
http://www.aulaclic.es/sql/t_5_1.htm


Aprovecho para consultarte otro codigo gracias


Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Ruta As String
Dim Inicio As Long
Dim Final As Long
Dim Fila As Long
Hoja2.Range("a3:g65536").Clear

Ruta = ThisWorkbook.Path
Inicio = Cells(1, 4)
Final = Cells(1, 6)

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

Set Rst = New ADODB.Recordset
Rst.Open "SELECT 1,Fecha,Nombre,Subtotal,IVA,Total " & _
"FROM Ventas " & _
"WHERE CLng([Fecha]) " & _
"BETWEEN '" & Inicio & "' AND '" & Final & "'", Cnn, , , adCmdText
Cells(3, 1).CopyFromRecordset Rst
Rst.Close: Set Rst = Nothing
Set Rst = New ADODB.Recordset
Rst.Open "SELECT SUM(Subtotal),SUM(IVA),SUM(Total),COUNT(NFactura) AS
Fila " & _
"FROM Ventas " & _
"WHERE CLng([Fecha]) " & _
"BETWEEN '" & Inicio & "' AND '" & Final & "'", Cnn, , , adCmdText
Fila = Rst.Fields("Fila").Value
Cells(Fila + 3, 4).CopyFromRecordset Rst
Cells(Fila + 3, 7).ClearContents
Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing
End Sub

Esta consulta funciona, pero quiero saber si se pueden ubicar los
totales al final del listado sin hacer la segunda consulta.O sea si hay
forma de obtener el mismo resultado con una sola consulta. Gracias.

hola, Fabian !

strSQL = "SELECT * FROM Ventas WHERE NFactura=(SELECT MAX(NFactura)FROM Ventas)"
Como hice esto se me ocurrio que podia haber mas,.. y algo encontre, pero a mi todavia no se me ocurrio nada...
http://www.aulaclic.es/sql/t_5_1.htm

bueno... esta parte ya sabes de donde obtener la informacion necesaria (gracias por compartirla) :D

Aprovecho para consultarte otro codigo
Esta consulta funciona, pero quiero saber si se pueden ubicar los totales al final del listado
sin hacer la segunda consulta.O sea si hay forma de obtener el mismo resultado con una sola consulta.

no estoy seguro de que sea necesario repetir una segunda vez la misma consulta (solo) para obtener totales -?-

si necesitas conocer el numero de registros de una consulta previo al volcado de sus datos...
puedes contar el numero de registros con las propiedades:
<variableRecordSet>.RecordCount (el numero de registros devueltos por la consulta)
<variableRecordSet>.Fields.Count (el numero de campos/columnas de la consulta)

o sea, una vez obtenido el primer recordset, puedes asignar a la variable: -> Fila = Rst.RecordCount
y despues, simplemente "sumas" los datos ya volcados a la hoja de calculo

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __

Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Ruta As String
Dim Inicio As Long
Dim Final As Long
Dim Fila As Long
Hoja2.Range("a3:g65536").Clear
Ruta = ThisWorkbook.Path
Inicio = Cells(1, 4)
Final = Cells(1, 6)
Set Cnn = New ADODB.Connection
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\Base.mdb"
.Open
End With
Set Rst = New ADODB.Recordset
Rst.Open "SELECT 1,Fecha,Nombre,Subtotal,IVA,Total " & _
"FROM Ventas " & _
"WHERE CLng([Fecha]) " & _
"BETWEEN '" & Inicio & "' AND '" & Final & "'", Cnn, , , adCmdText
Cells(3, 1).CopyFromRecordset Rst
Rst.Close: Set Rst = Nothing
Set Rst = New ADODB.Recordset
Rst.Open "SELECT SUM(Subtotal),SUM(IVA),SUM(Total),COUNT(NFactura) AS Fila " & _
"FROM Ventas " & _
"WHERE CLng([Fecha]) " & _
"BETWEEN '" & Inicio & "' AND '" & Final & "'", Cnn, , , adCmdText
Fila = Rst.Fields("Fila").Value
Cells(Fila + 3, 4).CopyFromRecordset Rst
Cells(Fila + 3, 7).ClearContents
Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing
End Sub

Creo que llegue a la perfeccion! ja!
Me tope con un problemita... el recordcount no superaba el -1 hice
una busqueda con google y encontre no menos de diez consultas similares,
hasta que alguien que no tocaba de oido tenia la respuesta correcta!
Gracias a todos los que estudian!

http://tinyurl.com/5t53g7