recordset
Publicado por Cris (25 intervenciones) el 21/06/2006 16:09:02
Buenas tardes a tod@s!
Lo vuelvo a escribir, pq me he dado cuenta que lo he copiado mal...
intento recorrer un cuadro de lista, con un recordset. Lo que quiero hacer es importar la tablas de dicha lista.
Hago lo siguiente:
Dim ruta As Variant
Dim carpeta1 As Variant
Dim lista As Recordset
Dim dbs As Database
Dim sql As String
sql = "SELECT BSC_PROV.Bsc FROM BSC_PROV"
Set dbs = CurrentDb
Set lista = dbs.OpenRecordset(sql, dbOpenDynaset)
With lista
.MoveFirst
FTP.ReceiveFile ruta, carpeta1 & taula, rcBinary, rcoverwrite
.MoveNext
End With
Y me da un error: "Error de tiempo de ejecución; no coinciden los tipos" en Set lista=dbs.open...
Me podéis decir a qué puede ser debido? Y sinó, alguna alternativa para hacer esta aplicación?
Muchas gracias por adelantado!
Un saludo!
Lo vuelvo a escribir, pq me he dado cuenta que lo he copiado mal...
intento recorrer un cuadro de lista, con un recordset. Lo que quiero hacer es importar la tablas de dicha lista.
Hago lo siguiente:
Dim ruta As Variant
Dim carpeta1 As Variant
Dim lista As Recordset
Dim dbs As Database
Dim sql As String
sql = "SELECT BSC_PROV.Bsc FROM BSC_PROV"
Set dbs = CurrentDb
Set lista = dbs.OpenRecordset(sql, dbOpenDynaset)
With lista
.MoveFirst
FTP.ReceiveFile ruta, carpeta1 & taula, rcBinary, rcoverwrite
.MoveNext
End With
Y me da un error: "Error de tiempo de ejecución; no coinciden los tipos" en Set lista=dbs.open...
Me podéis decir a qué puede ser debido? Y sinó, alguna alternativa para hacer esta aplicación?
Muchas gracias por adelantado!
Un saludo!
Valora esta pregunta
0