none
Carregar itens de Database em ListView RRS feed

  • Pergunta

  • Olá! Tudo bem pessoal? Eu preciso carregar dados de Microsoft Access Database (.mdb) em uma ListView, com as respectivas colunas. Obrigado.
    sábado, 7 de dezembro de 2013 23:54

Respostas

  • Segue o link de um ótimo exemplo.

    http://www.macoratti.net/vbn_lvc2.htm


    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.


    domingo, 8 de dezembro de 2013 00:14
  • Veja essa Sub aqui:

    Sub FullListView()
            Dim s_SQL As String = "SELECT * FROM Tabela"
            Using Con As New OleDbConnection(Scon)
                Con.Open()
                Using Cmd As New OleDbCommand(s_SQL, Con)
                    Using Dr As OleDbDataReader = Cmd.ExecuteReader
                        ' Colocando Nomes nas colunas do ListView:
    
                        With ListView1
                            .Clear()
                            .Columns.Add("Data", 130, System.Windows.Forms.HorizontalAlignment.Center)
                            .Columns.Add("Tipo", 150, System.Windows.Forms.HorizontalAlignment.Left)
                            .Columns.Add("Metragem", 140, System.Windows.Forms.HorizontalAlignment.Right)
                            .Columns.Add("Turno", 100, System.Windows.Forms.HorizontalAlignment.Left)
                        End With
    
                        ' Povoando o ListView
                        While Dr.Read
                            Dim Dt As String = Dr.Item("Data")
                            Dim Ls As New ListViewItem(Dt, 1)
                            With Ls
                                .SubItems.Add(Dr.Item("Tipo"))
                                .SubItems.Add(FormatNumber(Dr.Item("Metragem"), 2))
                                .SubItems.Add(Dr.Item("Turno"))
                                ListView1.Items.Add(Ls)
                            End With
                        End While
                    End Using
                End Using
            End Using
        End Sub


    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Giovani Cr segunda-feira, 16 de dezembro de 2013 18:05
    domingo, 8 de dezembro de 2013 00:18
  • OleDbConnection aceita string, o ClientesDataSet não está como String.

    Se a string de conexão realmente for ela, tente converter então o ClientesDataSet, caso contrário, passe uma string válida.

    Até mais.

    • Marcado como Resposta Giovani Cr segunda-feira, 16 de dezembro de 2013 18:05
    domingo, 8 de dezembro de 2013 01:24
  • Não entendi. Tenho que criar uma string em Settings?

    ClientesDataSet é um tipo de DataSetTipado correto ... se pode carregalo e fazer um for no mesmo!

    O código proposta pela galera é um exemplo, abstraia e faça adaptações no seu ai!!!


    Fulvio Cezar Canducci Dias

    • Marcado como Resposta Giovani Cr segunda-feira, 16 de dezembro de 2013 18:05
    domingo, 8 de dezembro de 2013 13:25

Todas as Respostas

  • Segue o link de um ótimo exemplo.

    http://www.macoratti.net/vbn_lvc2.htm


    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.


    domingo, 8 de dezembro de 2013 00:14
  • Veja essa Sub aqui:

    Sub FullListView()
            Dim s_SQL As String = "SELECT * FROM Tabela"
            Using Con As New OleDbConnection(Scon)
                Con.Open()
                Using Cmd As New OleDbCommand(s_SQL, Con)
                    Using Dr As OleDbDataReader = Cmd.ExecuteReader
                        ' Colocando Nomes nas colunas do ListView:
    
                        With ListView1
                            .Clear()
                            .Columns.Add("Data", 130, System.Windows.Forms.HorizontalAlignment.Center)
                            .Columns.Add("Tipo", 150, System.Windows.Forms.HorizontalAlignment.Left)
                            .Columns.Add("Metragem", 140, System.Windows.Forms.HorizontalAlignment.Right)
                            .Columns.Add("Turno", 100, System.Windows.Forms.HorizontalAlignment.Left)
                        End With
    
                        ' Povoando o ListView
                        While Dr.Read
                            Dim Dt As String = Dr.Item("Data")
                            Dim Ls As New ListViewItem(Dt, 1)
                            With Ls
                                .SubItems.Add(Dr.Item("Tipo"))
                                .SubItems.Add(FormatNumber(Dr.Item("Metragem"), 2))
                                .SubItems.Add(Dr.Item("Turno"))
                                ListView1.Items.Add(Ls)
                            End With
                        End While
                    End Using
                End Using
            End Using
        End Sub


    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Giovani Cr segunda-feira, 16 de dezembro de 2013 18:05
    domingo, 8 de dezembro de 2013 00:18
  • Olá! Fiz e deu erro, está certo? Obrigado.

    Imports System.Data.OleDb Public Class Form1 Sub FullListView() Dim s_SQL As String = "SELECT * FROM Tabela" Using Con As New OleDbConnection(ClientesDataSet) Con.Open() Using Cmd As New OleDbCommand(s_SQL, Con) Using Dr As OleDbDataReader = Cmd.ExecuteReader ' Colocando Nomes nas colunas do ListView: With ListView1 .Clear() .Columns.Add("Data", 130, System.Windows.Forms.HorizontalAlignment.Center) .Columns.Add("Tipo", 150, System.Windows.Forms.HorizontalAlignment.Left) .Columns.Add("Metragem", 140, System.Windows.Forms.HorizontalAlignment.Right) .Columns.Add("Turno", 100, System.Windows.Forms.HorizontalAlignment.Left) End With ' Povoando o ListView While Dr.Read Dim Dt As String = Dr.Item("Data") Dim Ls As New ListViewItem(Dt, 1) With Ls .SubItems.Add(Dr.Item("Tipo")) .SubItems.Add(FormatNumber(Dr.Item("Metragem"), 2)) .SubItems.Add(Dr.Item("Turno")) ListView1.Items.Add(Ls) End With End While End Using End Using End Using End Sub

    ''ERRO:

    '"Error Value of type 'Clientes.ClientesDataSet' cannot be converted to 'String'.":

    'Código onde aconteceu o erro:

    'Using Con As New OleDbConnection(ClientesDataSet)

    domingo, 8 de dezembro de 2013 00:32
  • OleDbConnection aceita string, o ClientesDataSet não está como String.

    Se a string de conexão realmente for ela, tente converter então o ClientesDataSet, caso contrário, passe uma string válida.

    Até mais.

    • Marcado como Resposta Giovani Cr segunda-feira, 16 de dezembro de 2013 18:05
    domingo, 8 de dezembro de 2013 01:24
  • Não entendi. Tenho que criar uma string em Settings?
    domingo, 8 de dezembro de 2013 12:09
  • Não entendi. Tenho que criar uma string em Settings?

    ClientesDataSet é um tipo de DataSetTipado correto ... se pode carregalo e fazer um for no mesmo!

    O código proposta pela galera é um exemplo, abstraia e faça adaptações no seu ai!!!


    Fulvio Cezar Canducci Dias

    • Marcado como Resposta Giovani Cr segunda-feira, 16 de dezembro de 2013 18:05
    domingo, 8 de dezembro de 2013 13:25
  • Acho que isto pode vir a te ajudar a compreender

    http://www.macoratti.net/vbn_lvbd.htm


    Francisco Anastácio

    domingo, 8 de dezembro de 2013 16:59
  • Este projeto é do Visual Studio 2003.
    domingo, 8 de dezembro de 2013 17:23