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", gloDB, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.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 intervalo. debe ser un valor no negativo o inferior al tamaño de la coleccion. nombre del parametro: index
espero su gran ayuda