Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

SQL no funciona

06/09/2008 - 06:20 por Fabian | Informe spam
Ayuda Hacer una pregunta
Hola a todos... Alguien me podria decir que hice mal en la primera
consulta, falla en la linea donde señalo. La segunda hace lo mismo.
y funciona bien. Quiero aprender el metodo de la primera, que fue
posteado hace unos dias. Gracias.

Sub TraerNumeroFactura()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim strSQL As String
Dim Ruta As String
Ruta = ThisWorkbook.Path
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\Base.mdb"
.Open
End With
strSQL = "SELECT MAX(NFactura) FROM Ventas"
Rst.Open Source:=strSQL, ActiveConnection:=Cnn,
CursorType:=adOpenKeyset, LockType:=adLockOptimistic
Cells(3, 22).Value = Rst!NFactura '>>>>FALLA EN ESTA LINEA
Cnn.Close
Set Cnn = Nothing
Set Rst = Nothing
End Sub

Sub TraerNumeroFactura()
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 & "\Base.mdb"
.Open
End With
Set Rst = New ADODB.Recordset
Rst.Open "SELECT MAX(NFactura) FROM Ventas", Cnn, , , adCmdText
Hoja1.Cells(3, 22).CopyFromRecordset Rst
Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing
End Sub
email Siga el debateRespuesta 12 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
07/09/2008 - 00:22 | Informe spam
hola, Fabian !

... que hice mal en la primera consulta, falla en la linea donde senalo.
La segunda hace lo mismo... y funciona bien
Quiero aprender el metodo de la primera, que fue posteado hace unos dias...



1) observa que en la primera forma, la cadena de consulta ya obtiene un "unico" registro de "la tabla":
-> strSQL = "SELECT MAX(NFactura) FROM Ventas"

2) este valor (unico) es asignado al objeto RecordSet, mismo que YA NO TIENE la misma "estructura" que la tabla:
-> Rst.Open Source:=strSQL, ActiveConnection:=Cnn... (etc. etc. etc.)

3) luego, el objeto (Rst) no contiene (los varios) campos entre los cuales puedas seleccionar alguno "en especifico"
(como cuando asignas varios campos/registros usando clausulas como "where", etc. etc. ec.)

-> cambia la instruccion de "devolucion" del Rst a la celda...
de: -> Cells(3, 22).Value = Rst!NFactura '>>>>FALLA EN ESTA LINEA
a: -> Cells(3, 22).Value = Rst.GetRows

saludos,
hector.

__ los codigos expuestos __
Sub TraerNumeroFactura()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim strSQL As String
Dim Ruta As String
Ruta = ThisWorkbook.Path
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\Base.mdb"
.Open
End With
strSQL = "SELECT MAX(NFactura) FROM Ventas"
Rst.Open Source:=strSQL, ActiveConnection:=Cnn, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
Cells(3, 22).Value = Rst!NFactura '>>>>FALLA EN ESTA LINEA
Cnn.Close
Set Cnn = Nothing
Set Rst = Nothing
End Sub

Sub TraerNumeroFactura()
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 & "\Base.mdb"
.Open
End With
Set Rst = New ADODB.Recordset
Rst.Open "SELECT MAX(NFactura) FROM Ventas", Cnn, , , adCmdText
Hoja1.Cells(3, 22).CopyFromRecordset Rst
Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing
End Sub

Preguntas similares

 

Busqueda sugerida :