'esto te genera una matriz en memoria arrResultSet = oRecordSet.GetRows() 'así averiguamos cuántos registros tengo iLastRow = ubound(arrResultSet,2)
'luego podríamos hacer For iCounter=0 to iLastRow aqui dentro jugamos con iCounter (Actual) y con iCounter+1 (Siguiente) Next _____ De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Diego Campos Enviado el: jueves, 23 de agosto de 2007 17:53 Para: vbusers List Member Asunto: [vbusers] Navegar un Recordset Estuve intentando lo siguiente: rs as adodb.recordset rs1 as adodb.recordset set rs = commando.execute OP1 Set rs1 = rs.Clone Error: Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. OP2 Set rs1 = rs No da error pero ambos recordset se mueven conjuntamente... y no me sirve. OP3 rec as adodb.record rec.open rs Error: Object or provider is not capable of performing requested operation. Alguna idea ?? Gracias.- Pata del Santo wrote: Se me ocurre más o menos así : - me paro en el primero - oActual = registro - si hay más de uno - avanzo uno, hasta el segundo - mientras no se acabe - oSiguiente = registro - procesar oActual (espiando oSiguiente) - oActual=oSiguiente - procesar oActual (teniendo en cuenta que ya no hay oSiguiente) ojo, porque todo el tiempo estarás parado en el "siguiente" Pata. _____ De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Diego Campos Enviado el: jueves, 23 de agosto de 2007 16:43 Para: vbusers List Member Asunto: [vbusers] Navegar un Recordset Otra aclaración... Estoy necesitando poder leer en avance la proxima línea para obtener algunos datos y luego continuar la lectura de la línea actual.. Se entiende ? Gracias y disculpén si no me explique bien. Saludos.- Diego Campos wrote: Hola, Estoy trabajando con unos recordset que se cargan atravez de la ejecución de un ADODB.Command. Este tipo de Recordset es del tipo forwardonly...por lo que pude ver.. Hay alguna posibilidad de clonarlo/transformarlo en otro tipo de recordset (adOpenDynamic, etc) ?? Utilizo VB 6 sp 5. Codigo. Set Comando = New ADODB.Command Set rsGL = New ADODB.Recordset With Comando .ActiveConnection = CN .CommandText = "spFESA01GL_VB" .CommandType = adCmdStoredProc .CommandTimeout = TimeOut End With Set rsGL = Comando.Execute rsGL.MoveFirst Gracias.. -- SISTEMATICA ingenieria de software srl Diego Campos SISTEMATICA ingenieria de software <http://www.sistematica-is.com> srl Pasco 1675 (2000) Rosario, Santa Fe, Argentina. Tel./Fax: +54 (341) 485-1432 / 568-0183 -- SISTEMATICA ingenieria de software srl Diego Campos SISTEMATICA ingenieria de software srl <http://www.sistematica-is.com> Pasco 1675 (2000) Rosario, Santa Fe, Argentina. Tel./Fax: +54 (341) 485-1432 / 568-0183 -- SISTEMATICA ingenieria de software srl Diego Campos SISTEMATICA ingenieria de <http://www.sistematica-is.com> software srl Pasco 1675 (2000) Rosario, Santa Fe, Argentina. Tel./Fax: +54 (341) 485-1432 / 568-0183
<<ATT00071.png>>
<<ATT00074.png>>
<<logo_sistematica_sm.png>>
