CARREGAR DADOS NO LISTVIEW.

EDISIMOES 22/09/2012 17:09:35
#410248
Ola a todos,
gostaria de uma ajuda que as vezes para algum é moleza,
preciso carregar um listview com dados vindo do sqlserver.
Se alguem poder me ajudar, agradecido.

Edi Carlos
FILMAN 22/09/2012 21:04:41
#410252
FEDERHEN 24/09/2012 08:27:55
#410317 Resposta escolhida
Seria algo mais ou menos assim:

SQL = [Ô]Select ....[Ô]
Set rec = New ADODB.Recordset
rec.open SQL, Conexao, adOpenForwardOnly, adLockReadOnly
Do Until rec.Eof
listview.ListItems.Add
intLinha = listview.ListItems.Count
listview.ListItems(intLinha).Text = rec!campo1
listview.ListItems(intLinha).SubItems(1) = rec!campo2
rec.MoveNext
Loop
rec.Close
AZORSCA 24/09/2012 10:10:39
#410322
Amigo eu carrego diversos dados no ListView e utilizo o seguinte:

[ô] Carrega todas as notas registradas na Listagem (lstConsulta)

Set oConCadC = New ADODB.Connection
oConCadC.ConnectionString = Init.vStrConSQLServer
oConCadC.Open
Set oRecCadC = New ADODB.Recordset
vStrSql = [Ô]Select * From ger105 Order By controle[Ô]
oRecCadC.Open vStrSql, oConCadC, adOpenDynamic, adLockReadOnly

lstConsulta.ListItems.Clear
Do While Not oRecCadC.EOF
Set lst = lstConsulta.ListItems.Add
With lst
.Text = oRecCadC.Fields([Ô]controle[Ô])
.SubItems(1) = oRecCadC.Fields([Ô]numnota[Ô])
.SubItems(2) = oRecCadC.Fields([Ô]nome[Ô])
.SubItems(3) = oRecCadC.Fields([Ô]status[Ô])
.SubItems(4) = oRecCadC.Fields([Ô]descricao[Ô])
.SubItems(5) = oRecCadC.Fields([Ô]dataentrada[Ô])
.SubItems(6) = Format(oRecCadC.Fields([Ô]valortotalnota[Ô]).value, [Ô]Currency[Ô])
End With
oRecCadC.MoveNext
Loop

[ô] Fecha as conexões aberta com a base de dados
Call fechaObjetoConnection(oConCadC)

Pode testar aí que vai funcionar. abraços
Tópico encerrado , respostas não são mais permitidas
Voltar