ERROR: Referencia a objeto no establecida como instancia de un objeto

[Geovanny0401]

cordial saludo

amigo estoy realizando una aplicacion donde estoy importando un archivo plano pero cuando le doy la opcion en el boton importar el me carga todo los regitro pero al final de la importacion me genera este error

Código HTML:

ERROR: Referencia a objeto no establecida como instancia de un objeto

aca le pongo mi codigo

Código:

  Dim I, cont As Integer
        Dim lngFilas As Long = dvgconsulta.Rows.Count - 1
        Try
            con.Execute("DELETE FROM SISBEN")
            With dvgconsulta
                Cerrar(rsDatos)
                rsDatos.Open("SELECT COUNT(*) FROM SISBEN", con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
                For I = 0 To lngFilas
                    con.Execute("INSERT INTO SISBEN(FICHA,ZONA,BARRIO,DIRECCION,FECENCUESTA,APE1,APE2,NOM1,NOM2,TIPODOC,DOCUMENTO,FECHNAC,SEXO,PUNTAJE,FECACTENCUESTA,NIVSISBEN,EDAD) VALUES ('" & .Item("FICHA", I).Value & "','" & .Item("ZONA", I).Value & "','" & .Item("BARRIO", I).Value & "','" & .Item("DIRECCION", I).Value & "','" & FechaAMD(.Item("FECENCUESTA", I).Value) & "','" & .Item("APE1", I).Value & "','" & .Item("APE2", I).Value & "','" & .Item("NOM1", I).Value & "','" & .Item("NOM2", I).Value & "','" & .Item("TIPODOC", I).Value & "','" & .Item("DOCUMENTO", I).Value & "','" & FechaDMA(.Item("FECHNAC", I).Value) & "','" & .Item("SEXO", I).Value & "','" & .Item("PUNTAJE", I).Value & "','" & FechaAMD(.Item("FECACTENCUESTA", I).Value) & "','" & .Item("NIVSISBEN", I).Value & "','" & .Item("EDAD", I).Value & "')")
                    cont += 1
                    Contar.Text = cont
                Next

                MsgBox("Usuarios cargado con exito")
            End With
        Catch ex As Exception
            sbError.Text = ex.Message
        End Try

le agradezco la atencion prestada

[Trulala de cordoba]

hola

en vez de usar un form para recorrer tu recordset usa un while

Do While Not rsDatos.Eof

' tu codigo



rsDatos.MoveNext

Loop

[mvazquez]

Hola, el error lo tienes en el "With dvgconsulta" es que tienes que decirle que lo haga mientras que................ tenga valor, sea diferente de cero, no se...., por ejemplo.... With dvgconsulta not is null o With dvgconsulta > 0 o With dvgconsulta <> 0, en fin ponle una condicion para que mientras se cumpla o cuando ya no se cumpla no entre o entre al while..... espero haberme dado antender....


Saludos.

[Geovanny0401]

cordial saludo

amigo pobre como me explcaron y todavia me sigue generando el mismo error

[mvazquez]

Usas VB6.0 ?

pasame el codigo y te apoyo...

[Geovanny0401]

gracias colega ya corregi el error en vez de -1 le coloq -2

Código:

Dim lngFilas As Long = dvgconsulta.Rows.Count - 2

caso resuelto