Popular um ListView via DAO

[eclipsekiller 0]

Ae galera, estou com uma dificudade imensa para popular um list view atraves de um while que faco em uma base de dados do access.

 

Alguem ai poderia me ajudar?? :rolleyes:

[Rafael Portal 0]

O que você quiz dizer com "Popular" ????Oks, Rafael Portal

[claudio_ribeiro 0]

Popular é preencher com os dados ! <_<

[eclipsekiller 0]

Popular é preencher com os dados ! <_<

Isso Mesmo, eu quero saber como faço para "popular" um listview com dados de uma tabela atraves do DAO...Ajudem me Please

[lgustavoc 0]

faz assim:<sua tabela>.MoveFirstDo While Not <sua tabela>.EOF List1.AddItem <sua tabela>!<campo da tabela> <sua tabela>.MoveNextLoop

[eclipsekiller 0]

faz assim:

 

 

<sua tabela>.MoveFirst

 

Do While Not <sua tabela>.EOF

List1.AddItem <sua tabela>!<campo da tabela>

<sua tabela>.MoveNext

Loop

Certo... isso da certo com uma LISTBOX

 

O codigo que uso para o listbox é:

 

TBSegurados.MoveFirst

Do While Not TBSegurados.EOF = True

If TBSegurados("CodOrgao") = FRMIDSegurados.CBOCodOrgao.Text Then

List1.AddItem TBSegurados("Nome")

End If

TBSegurados.MoveNext

Loop

 

mas no caso eu quero usar um LISTVIEW

Como seria o codigo??

[claudio_ribeiro 0]

Tava precisando de algo assim e descobri esse codigo para combobox, mas acho que dá pra listview(desculpe o copyrigth, mas não lembro o autor... :rolleyes: )Private Sub FillComboCli() Set DB2 = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\mybase.mdb") Set RS2 = DB2.OpenRecordset("Clientes") cmbCliente.Clear While Not RS2.EOF cmbCliente.AddItem RS2!CódigoDoCliente If RS2.EOF Then GoTo Exitna End If RS2.MoveNext WendExitna: RS2.Close ' close table Set RS2 = NothingEnd SubPrivate Sub cmbCliente_DropDown() FillComboCliEnd SubAjuda ?Claudio Ribeiro

[eclipsekiller 0]

Tava precisando de algo assim e descobri esse codigo para combobox, mas acho que dá pra listview

 

(desculpe o copyrigth, mas não lembro o autor... :rolleyes: )

 

Private Sub FillComboCli()

Set DB2 = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\mybase.mdb")

Set RS2 = DB2.OpenRecordset("Clientes")

cmbCliente.Clear

While Not RS2.EOF

cmbCliente.AddItem RS2!CódigoDoCliente

If RS2.EOF Then

GoTo Exitna

End If

RS2.MoveNext

Wend

Exitna:

RS2.Close ' close table

Set RS2 = Nothing

End Sub

 

Private Sub cmbCliente_DropDown()

FillComboCli

End Sub

 

 

Ajuda ?

 

Claudio Ribeiro

Infelismente o ListView nao tem a propriedade .additem e sim .listitem.add() e o dificil tae... quando coloco um subitem ele da pau e fala que a propriedade ta invalida.

 

nao sei se é por causa do DAO ou o motivo.

preciso de ajuda urgente....

 

HELP ME, HELP ME!