............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

culsultar último registro en tabla de access desde una celda de excel

Ver el tema anterior Ver el tema siguiente Ir abajo

culsultar último registro en tabla de access desde una celda de excel

Mensaje por Edmund8 el Vie Jul 18, 2014 4:57 pm

Hola amigos:  Por favor,
Quisiera su ayuda para poder hacer una consulta desde una celda de excel del último correlativo del campo llave de una tabla de access.  Tengo el siguiente código que lo lanzo desde el modulo1 pero este me pasa toda la tabla y yo quiero solo el dato mencionado arriba y que lo coloque en la hoja2 celda B5
Código:
Sub escribirexcel()
Dim cs As String
Dim sPath As String
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

sPath = ThisWorkbook.Path & "\datos.accdb"
cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;"

Set cn = New ADODB.Connection
cn.Open cs

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With

sql = "select * from tabla1"

rs.Open sql, cn

Range("B5").CopyFromRecordset rs

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub 'Mil gracias por cualquier ayuda. SAludos!!!


Gracias por cualquier ayuda.

Saludos

Edmund8

Masculino Cantidad de envíos : 15
Edad : 42
Ciudad - Pais : Guatemala
Version de Excel : 2007
Fecha de inscripción : 25/11/2010

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.