Visual Basic - Enviar resultados de RecordSet a un Array

Saludos,

Estoy tratando de enviar los resultados de una consulta a un array. Actualmente los envio a un control MSHFlexGrid (llamado datos), como lo muestro en el siguiente código, pero tengo que prescindir de este control y otros similares, y manejar un Array.

Private conn As ADODB.Connection
Private rst As ADODB.Recordset

Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=base;" _
& "UID=root;" _
& "PWD=root" '_
conn.Open

sql = "SELECT id, campo1, campo2 FROM tabla WHERE id = '" & var & "'"

With rst
.CursorLocation = adUseClient
.Open sql, conn, adOpenKeyset, , adAsyncFetchNonBlocking
<< Set UserForm1.datos.DataSource = rst >>
End With

Agradecezco de antemano su apoyo.

D3SK.

Hola:

Utiliza recordset.getrows, es un metodo del objeto recordset que te devuelve los datos extraidos por la consulta a un array, de paso te recomiendo que leas este link:

http://www.aspfacil.com/articulos/110201.asp

Espero haber podido ayudar en algo.


Saludos
Alex A. Salamanca E.
Ingeniero (e) Computación e informática
Concepción - Chile

Agradecido estoy Alex, la liga que me proporcionaste me solucionó la duda que tenia. Habia visto ejemplos del uso de GetRows, pero ahí se explica de forma más práctica.

Saludos,

D3SK

a mi me funciona, pruebalo

Do While Not rst.EOF = True ' condicion que se haga mientras el final del registro no se cumpla

Array1(i) = (rst.Fields(0).Value)

rst.MoveNext()

Console.WriteLine(Array1(i))
i = i + 1
Console.WriteLine(i)
Loop