Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/10/2011, 10:30
Geovanny0401
 
Fecha de Ingreso: diciembre-2009
Mensajes: 137
Antigüedad: 14 años, 3 meses
Puntos: 4
Error indice fuera del intervalo

amigos del foro estoy realizando una consulta en datagridview aca adjunto el codigo
Código PHP:
    Private Sub Recuperar_Datos_Subsidiado()
        
Dim lngfila As Integer 0
        
Try
            
dbCerrar(gloRS)
            
gloRS.Open("SELECT * FROM EPSCOMFACOR.EPSBDUAOK"gloDBADODB.CursorTypeEnum.adOpenDynamicADODB.LockTypeEnum.adLockOptimistic)
            
dgvCon.Rows.Clear()
            
dgvCon.Rows.Add(20)
            
gloRS.MoveFirst()
            
lngfila 0
            
Do While Not gloRS.EOF
                dgvCon
.Item("CONSECUTIVO"lngfila).Value IIf(IsDBNull(gloRS.Fields("CONSECUTIVO").Value), ""gloRS.Fields("CONSECUTIVO").Value)
                
dgvCon.Item("CODENTIDAD"lngfila).Value IIf(IsDBNull(gloRS.Fields("CODENTIDAD").Value), ""gloRS.Fields("CODENTIDAD").Value)
                
dgvCon.Item("TIPCABAFI"lngfila).Value IIf(IsDBNull(gloRS.Fields("TIPCABAFI").Value), ""gloRS.Fields("TIPCABAFI").Value)
                
dgvCon.Item("NUMCABAFI"lngfila).Value IIf(IsDBNull(gloRS.Fields("NUMCABAFI").Value), ""gloRS.Fields("NUMCABAFI").Value)
                
dgvCon.Item("TIPODOC"lngfila).Value IIf(IsDBNull(gloRS.Fields("TIPDOCUMENTO").Value), ""gloRS.Fields("TIPDOCUMENTO").Value)
                
dgvCon.Item("DOCUMENTO"lngfila).Value IIf(IsDBNull(gloRS.Fields("DOCUMENTO").Value), ""gloRS.Fields("DOCUMENTO").Value)
                
dgvCon.Item("APE1"lngfila).Value IIf(IsDBNull(gloRS.Fields("APE1").Value), ""gloRS.Fields("APE1").Value)
                
dgvCon.Item("APE2"lngfila).Value IIf(IsDBNull(gloRS.Fields("APE2").Value), ""gloRS.Fields("APE2").Value)
                
dgvCon.Item("NOM1"lngfila).Value IIf(IsDBNull(gloRS.Fields("NOM1").Value), ""gloRS.Fields("NOM1").Value)
                
dgvCon.Item("NOM2"lngfila).Value IIf(IsDBNull(gloRS.Fields("NOM2").Value), ""gloRS.Fields("NOM2").Value)
                
dgvCon.Item("FECHNAC"lngfila).Value IIf(IsDBNull(gloRS.Fields("FECNAC").Value), ""gloRS.Fields("FECNAC").Value)
                
dgvCon.Item("SEXO"lngfila).Value IIf(IsDBNull(gloRS.Fields("SEXO").Value), ""gloRS.Fields("SEXO").Value)
                
dgvCon.Item("TIPAFILIADO"lngfila).Value IIf(IsDBNull(gloRS.Fields("TIPAFILIADO").Value), ""gloRS.Fields("TIPAFILIADO").Value)
                
dgvCon.Item("PARENTEZCO"lngfila).Value IIf(IsDBNull(gloRS.Fields("PARENTEZCO").Value), ""gloRS.Fields("PARENTEZCO").Value)
                
dgvCon.Item("GRUPOBLACIONAL"lngfila).Value IIf(IsDBNull(gloRS.Fields("GRUPOBLACIONAL").Value), ""gloRS.Fields("GRUPOBLACIONAL").Value)
                
dgvCon.Item("NIVSISBEN"lngfila).Value IIf(IsDBNull(gloRS.Fields("NIVSISBEN").Value), ""gloRS.Fields("NIVSISBEN").Value)
                
dgvCon.Item("FICSISBEN"lngfila).Value IIf(IsDBNull(gloRS.Fields("FICSISBEN").Value), ""gloRS.Fields("FICSISBEN").Value)
                
dgvCon.Item("CONDICION"lngfila).Value IIf(IsDBNull(gloRS.Fields("CONDICION").Value), ""gloRS.Fields("CONDICION").Value)
                
dgvCon.Item("CODDPTO"lngfila).Value IIf(IsDBNull(gloRS.Fields("CODDPTO").Value), ""gloRS.Fields("CODDPTO").Value)
                
dgvCon.Item("CODMPIO"lngfila).Value IIf(IsDBNull(gloRS.Fields("CODMPIO").Value), ""gloRS.Fields("CODMPIO").Value)
                
dgvCon.Item("ZONA"lngfila).Value IIf(IsDBNull(gloRS.Fields("ZONA").Value), ""gloRS.Fields("ZONA").Value)
                
dgvCon.Item("FECAFISGSSS"lngfila).Value IIf(IsDBNull(gloRS.Fields("FECAFISGSSS").Value), ""gloRS.Fields("FECAFISGSSS").Value)
                
dgvCon.Item("FECAFIENTIDAD"lngfila).Value IIf(IsDBNull(gloRS.Fields("FECAFIENTIDAD").Value), ""gloRS.Fields("FECAFIENTIDAD").Value)
                
dgvCon.Item("NUMCONTRATO"lngfila).Value IIf(IsDBNull(gloRS.Fields("NUMCONTRATO").Value), ""gloRS.Fields("NUMCONTRATO").Value)
                
dgvCon.Item("FECINICONTRATO"lngfila).Value IIf(IsDBNull(gloRS.Fields("FECINICONTRATO").Value), ""gloRS.Fields("FECINICONTRATO").Value)
                
dgvCon.Item("TIPCONTRATO"lngfila).Value IIf(IsDBNull(gloRS.Fields("TIPCONTRATO").Value), ""gloRS.Fields("TIPCONTRATO").Value)
                
dgvCon.Item("ETNICA"lngfila).Value IIf(IsDBNull(gloRS.Fields("ETNICA").Value), ""gloRS.Fields("ETNICA").Value)
                
dgvCon.Item("MODALIDAD"lngfila).Value IIf(IsDBNull(gloRS.Fields("MODALIDAD").Value), ""gloRS.Fields("MODALIDAD").Value)
                
dgvCon.Item("ESTADO"lngfila).Value IIf(IsDBNull(gloRS.Fields("ESTADO").Value), ""gloRS.Fields("ESTADO").Value)
                
dgvCon.Item("FECHA"lngfila).Value IIf(IsDBNull(gloRS.Fields("FECHA").Value), ""gloRS.Fields("FECHA").Value)
                
lngfila += 1
                gloRS
.MoveNext()
            
Loop
        
Catch ex As Exception
            MsgBox
("Error " ex.Message " Consulte al soporte")
            
sbMensaje.Text "Ocurrio el error " ex.Message " al consultar los datos del pedido, por favor reintente y si el problema persiste contacte a su soporte"
        
End Try
    
End Sub 
cuando cargo el formulario me genera este error y no veo la forma de arreglarlo

Código PHP:
Error el indice estaba fuera del intervalodebe ser un valor no negativo o inferior al tamaño de la coleccionnombre del parametroindex 
espero su gran ayuda