elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección.


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | |-+  Error al recorrer una colección
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Error al recorrer una colección  (Leído 775 veces)
mart1n

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Error al recorrer una colección
« en: 24 Agosto 2017, 15:52 »

Hola, que tal.

Estoy intentando recorrer una colección a través de un bucle dentro de una función y me tira object variable or with block variable not set cuando comienza a recorrer el for:


Les dejo el código:


Código
  1. Public Function CargaGrillaComers(pr As Collection)
  2.  
  3. Dim rs As New ADODB.Recordset
  4. Set rs = New ADODB.Recordset
  5. Dim sSql As String
  6.  
  7. sSql = ""
  8.        sSql = sSql & "Select * from Comers "
  9.        sSql = sSql & "and Prestamo" & ArmaCadena(pr)
  10.  
  11. If Conectar() Then
  12.    rs.CursorLocation = adUseClient
  13.    rs.Open sSql, CN
  14.    Set Comers.grGrilla.DataSource = rs
  15. End If
  16.  
  17. End Function


Código
  1. Public Function ArmaCadena(COL As Collection)
  2.  
  3.  
  4. i = 1
  5.  
  6. sSql = "" & "in ("
  7.  
  8. For i = i To COL.Count  --------------------> Aquí me tira el error
  9.     sSql = sSql & COL.Item(i) & ","
  10. Next
  11.  
  12. sSql = Left(sSql, Len(sSql) - 1)
  13.  
  14. sSql = sSql & ")"
  15.  
  16.  
  17. End Function


Saludos!!


En línea

mart1n

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Error al recorrer una colección
« Respuesta #1 en: 24 Agosto 2017, 16:00 »

Ya encontré el error, la variable pr que le pasaba a la funcion armacadena estaba vacía...perdón y gracias!!!


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
REcorrer ARreglos???
Programación General
Mr.Zeros0 2 1,254 Último mensaje 10 Mayo 2005, 01:04
por Slasher-K
Recorrer Archivos
Programación Visual Basic
el_chente23 4 1,786 Último mensaje 27 Agosto 2007, 00:23
por lupino666
[Source] Recorrer la IAT
Programación C/C++
Thor 5 2,605 Último mensaje 29 Junio 2008, 18:29
por hijocker
Recorrer una table
Programación General
sasj13 1 2,328 Último mensaje 24 Junio 2010, 13:22
por jlrvpuma
Recorrer dataGrid
.NET
proteus8 6 5,160 Último mensaje 25 Febrero 2011, 16:00
por .::IT::.
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines