none
Problema com listview + access RRS feed

  • Pergunta

  • Boa tarde pessoal!

     

    Estou com um problema na atualização da minha listview a partir de um banco de dados do access.

     

    Meu problema é o seguinte, o código só funciona se no access eu colocar os tipos de dados "texto curto", se eu colocar como número a listagem não é feita.

     

    Segue o comando: 

     

        Private Sub refreshdata()
            If Not cnn.State = ConnectionState.Open Then cnn.Open()
            Dim dt As New DataTable
            Dim ds As New DataSet
            ds.Tables.Add(dt)
            Dim da As New OleDb.OleDbDataAdapter("select * from tb_cestoque", cnn)
            da.Fill(dt)
            Dim myrow As DataRow
            For Each myrow In dt.Rows
                ListView1.Items.Add(myrow.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
            Next
            cnn.Close()
        End Sub
     
    Alguém sabe o que pode ser?
    domingo, 7 de dezembro de 2014 16:28