Holas, haber si alguien me puede ayudar.. tengo una funcion almacenada que
devuelve un refcursor en postgres, esto lo capturo en VB6 en un recordset a
traves del driver oledb.. hasta ahi todo bien.. pero... el problema es que
cuando son unos 1000 registros a mas los q se devuelven el recorrerlos
Jose J. Ayala Pineda escribió:
Holas, haber si alguien me puede ayudar.. tengo una funcion almacenada
que devuelve un refcursor en postgres, esto lo capturo en VB6 en un
recordset a traves del driver oledb.. hasta ahi todo bien.. pero... el
problema es que cuando son unos 1000 registros a mas l
--- El vie 17-abr-09, Jose J. Ayala Pineda escribió:
> De: Jose J. Ayala Pineda
> Asunto: [pgsql-es-ayuda] Refcursor + vb6 + oledb
> A: pgsql-es-ayuda@postgresql.org
> Fecha: viernes, 17 abril, 2009, 12:27 pm
> Holas, haber si alguien me puede ayudar.. tengo una funcion
&
'data', pero no me
despliega la informacion alguien ha podido hacerlo?
Slds
- Original Message -
From: "Gabriel Hermes Colina Zambra"
To: ; "Jose J. Ayala Pineda"
Sent: Saturday, April 18, 2009 10:18 PM
Subject: Re: [pgsql-es-ayuda] Refcursor + vb6 + ol
- Mensaje original
> De: Jose J. Ayala Pineda
> Para: pgsql-es-ayuda@postgresql.org
> Enviado: jueves 30 de abril de 2009, 10:56:44
> Asunto: Re: [pgsql-es-ayuda] Refcursor + vb6 + oledb
>
> Hola Gabriel, te cuento que rehice la funcion y me devuelve ahora un set
Jose J. Ayala Pineda escribió:
> Conn.BeginTrans
> Cmd.ActiveConnection = Conn
> Cmd.CommandText = "select
> kardexf('017033','01/04/2009','30/04/2009','data');FETCH ALL IN data;"
> Set Rst = Cmd.Execute
> Do Until Rst.EOF
> Me.List1.AddItem Rst.Fields(0) 'Rst!Movimiento
> Rst.MoveNext
> Loop
>
or 'data', pero no me
despliega la informacion alguien ha podido hacerlo?
Slds
- Original Message -
From: "Gabriel Hermes Colina Zambra"
To: ; "Jose J. Ayala Pineda"
Sent: Saturday, April 18, 2009 10:18 PM
Subject: Re: [pgsql-es-ayuda] Refcursor + vb6 + ol
Buenos dias,
Disculpe por reabrir este mensaje pero tengo la solucion a lo que usted
necesita. Veamos su ejemplo
Conn.BeginTrans
> Cmd.ActiveConnection = Conn
> Cmd.CommandText = "select
> kardexf('017033','01/04/2009','30/04/2009','data');FETCH ALL IN data;"
> Set Rst = Cmd.Execute
Rst.NextRec
