Enviar RecordSet a un arreglo
Publicado por turbiodesk (36 intervenciones) el 08/03/2007 18:59:45
Saludos,
Estoy tratando de enviar los resultados de una consulta a un arreglo. Actualmente los envio a un control MSHFlexGrid (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.
Estoy tratando de enviar los resultados de una consulta a un arreglo. Actualmente los envio a un control MSHFlexGrid (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.
Valora esta pregunta


0