Listview

[Ricardo Goncakves 0]

Seguinte, eu estou a usar o código abaixo para listar os campos de uma tabela em Acess numa listview, só que ele só me está a listar o ultimo valor da tabela ou seja eu tenho na tabela dados no campo nome 2 nomes Rita e Ricardo , e só me está a listar o ricardo, alguém sabe o erro? Obrigado.Private Sub Form_Load()Set WS = DBEngine.Workspaces(0)DbFile = (App.Path & "\dados.mdb")PwdString = "swordfish"Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)Set rs = db.OpenRecordset("dados", dbOpenTable)Set itens = List3.ListItems.Add()Max = rs.RecordCountIf rs.RecordCount = 0 Then Exit SubElse rs.MoveFirst For i = 1 To Max itens.Text = rs!nome itens.SubItems(1) = rs!nome rs.MoveNext Next iEnd IfEnd Sub

[Dennys Lopes 0]

qual erro que dá?

[luiz humberto 0]

Muda a sua estrutura de repetição, conforme mostrado abaixo:

 

While not rs.Eofitens.Text = rs!nomeitens.SubItems(1) = rs!nomers.MoveNextWend