Mensaje enviado por "Ignacio Napal" <inapal@equiplus.com>

Aquí te envío un ejemplo de una lectura de recordset con un objeto Command en modo asíncrono.
Supongamos que "cn" es un objeto ADODB.Connection (ya abierto) y "Abort" es una variable de tipo Boolean, global al módulo, que será seteada a True en algún botón "Cancelar".

Dim Cmd As ADODB.Command
Dim rs As ADODB.Recordset

Set Cmd = New ADODB.Command
Cmd.ActiveConnection = cn
Cmd.CommandType = adCmdText
Cmd.CommandText = "SELECT * FROM Usuarios"
Abort = False

Set rs = Cmd.Execute( , , adAsyncExecute)
Do While CBool(Cmd.State And adStateExecuting)
    DoEvents
    If Abort Then
        Cmd.Cancel
    End If
Loop


Al salir del loop, tienes el recordset "rs" completo (simpre y cuando el usuario no haya abortado la operación, cosa que se puede detectar según el valor de la variable "Abort").
Espero sirva.

Ignacio Napal
Equiplus S.A.
e-mail: inapal@equiplus.com

----- Original Message -----
From: "Victor R. Barra Ruiz" <vbarra@infovia.cl>
To: <visualbasic-esp@yahoogroups.com>
Sent: Friday, September 07, 2001 2:28 PM
Subject: (VB-ESP) Como puedo hacer que el objeto COMMAND (ADO), al llenar un
recordset lo haga asíncrono.

> Hol@ lista.
>
> Cuando utilizo el método OPEN para un recorset en ADO y le indico que
> utilice el Options "adAsyncExecute" funciona perfectamente y realiza lo
que
> yo quiero.
>
> Pero cuando quiero realizar la misma tarea pero utilizando un objeto
COMMAND
> (ADO) para llenar un recordset no encuentro la manera que esta operación
> también sea asíncrona.
>
> Si alguien me puede guiar se lo agradezco.