Buenas, ante todo gracias por leer este email, me gustaria
saber si e sposible cargar una especia de recorset (sin
ser una matriz) sin que exista una base de datos es decir
en memoria,poderte crear los camnpos y llenarlos de
contenido. Todo esto viene porque tengo una hoja de excel
y quiero cargar su contenido en un grid que esta en un
formulario dentro de la propia hoja. A alguien se le
ocurre algo???..
RESPONDE VIGON
==============
Puedes utilizar un Recordset desconectado de ADO; ahí va un ejemplo:
'----- Declarar el Recordset, definir sus campos y abrirlo
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.Fields.Append "Descripcion", adVarChar, 20
Rs.Fields.Append "Precio", adCurrency
Rs.Open , Nothing
'----- Agregar algunos registros
Rs.AddNew Array("Descripcion", "Precio"), Array("Tornillo", 0.75)
Rs.AddNew Array("Descripcion", "Precio"), Array("Tuerca", 0.65)
Rs.AddNew Array("Descripcion", "Precio"), Array("Clavo", 0.35)
'----- Recorrer el recordset y mostrar los registros
Rs.MoveFirst
While Not Rs.EOF
MsgBox "Descripción: " & Rs!Descripcion & vbCrLf & "Precio: " & FormatCurrency(Rs!Precio)
Rs.MoveNext
Wend
'----- Cerrar el Recordset
Rs.Close
Set Rs = Nothing
''''otra forma alternativa
Set rsRecordset = New Recordset
With rsRecordset
.Fields.Append "ID_Pelicula", adInteger, 4
.Fields.Append "Titulo", adVarWChar, 120
.Fields.Append "Categoria", adVarWChar, 50
.Fields.Append "Fecha", adDate, 8
.Fields.Append "Monto", adCurrency, 8
.Fields.Append "Cantidad", adInteger, 4
.Fields.Append "Estreno", adBoolean, 2
.Open
End With
'AQUI OPERA YA CON EL RECORDSET.....
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)