none
RECORRER FILA CON SUS CAMPOS DE TABLA DE ACCESS VB.NET RRS feed

  • Pregunta

  • Hola, necesito recorrer una tabla de access, fila por fila con vb.net, en un bucle. 

    Necesito hacerle focus o seek(como en vb6) o detenerme en el primer registro, guardar sus datos en variables , trabajar con esos datos (no modificarlos) y luego pasar al siguiente registro. 

    Trabajé con visual basic 6, y es muy diferente al .net, por eso necesito ayuda, gracias! 

    jueves, 22 de noviembre de 2018 19:09

Todas las respuestas

  • Hola  Jimeprogramac

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, para darte una mejor atención es necesario que nos brindes de favor un poco más de información acerca del problema que tienes ya sea colocando fragmento de codigo o form.

    Gracias por usar los foros de MSDN.

    Pablo Rubio
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    jueves, 22 de noviembre de 2018 21:48
    Moderador
  • Hola! Pude adelantar.. Leo una tabla y a partir de esa tabla, relleno otra. El problema es que me tira error porque me crearía indices duplicados. No sé si debo trabajar con señales o inicializar (una vez que leyó e hizo todo el proceso) las variables en cero. 

    Private Sub INICIAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INICIAR.Click
            'SE LLENA LA TABLA INTEGRADOFINAL 
           
            Dim cmd As New OleDbCommand("SELECT * FROM RETORNO", conexion)
            Dim rdr As OleDbDataReader = cmd.ExecuteReader

            Do While rdr.Read

                SOCIO = 0
                RETORNO = 0
                CONDIVA = 0
                INT = 0
                RETENC = 0
                SOCIO = Convert.ToInt32(rdr("SOCIO"))
                RETORNO = Convert.ToSingle(rdr("RETORNO"))
                If RETORNO = 0 Then
                    comando = New OleDbCommand("INSERT INTO INTEGRADOFINAL(SOCIO,RETORNO,INTERES,NO_SUJETO,RETENCION) VALUES ( " & SOCIO & ", " & RETORNO & ", " & 0 & " , " & 0 & ", " & 0 & ")", conexion)
                    comando.ExecuteNonQuery()
                End If

                CONDIIVA()
                LECTURA()
                CALCULOSPARAINTEGRADOFINAL()

                If RETORNO <> 0 Then
                    comando = New OleDbCommand("INSERT INTO INTEGRADOFINAL(SOCIO,RETORNO,INTERES,NO_SUJETO,RETENCION) VALUES ('" & SOCIO & "', '" & RETORNO & "', '" & INT & "', '" & NOSUJETO & "', " & RETENC & ")", conexion)
                    comando.ExecuteNonQuery()

                End If

            Loop
            MsgBox("HECHO!")

        End Sub

     
    lunes, 26 de noviembre de 2018 20:34