ajuda com listview no vba(office 2003) carregando valores
11/08/2008
0
estou com 1 listview no vba ok?
fiz uma query em uma tabela q tenho
abri a conexao com o banco...
Dim lcn As ADODB.Connection
Dim lrec As New ADODB.Recordset
Set lcn = New ADODB.Connection
Dim query as String
´abre conexao
lcn.connectiontimeout = 20
lcn.Open ConectaSC
query = ´SELECT * from CONTROLE_PTC ´
lrec.Open query, lcn, adOpenForwardOnly, adLockReadOnly
While Not (lrec.EOF)
ListView1.ColumnHeaders.Add 1, , ´Cadeia´
ListView1.ColumnHeaders.Add 2, , ´job´
ListView1.ColumnHeaders.Add 3, , ´subsistema´
ListView1.ColumnHeaders.Add 4, , ´modulo´
ListView1.ListItems.Add 1, , lrec(0)
ListView1.ListItems.Add 2, , lrec(1)
ListView1.ListItems.Add 3, , lrec(2)
ListView1.ListItems.Add 4, , lrec(3)
Wend
lrec.Close
lcn.Close
meu problema é, todo resultado do SELECT fica na coluna da ´ Cadeia ´ la no meu listview, queria q o lrec(0) fosse na cadeia, lrec(1) no job lrec(2) no subsistema....
entendem?
so quero q meus resultado fossem nas respectivas colunas que criei
Obrigado
fiz uma query em uma tabela q tenho
abri a conexao com o banco...
Dim lcn As ADODB.Connection
Dim lrec As New ADODB.Recordset
Set lcn = New ADODB.Connection
Dim query as String
´abre conexao
lcn.connectiontimeout = 20
lcn.Open ConectaSC
query = ´SELECT * from CONTROLE_PTC ´
lrec.Open query, lcn, adOpenForwardOnly, adLockReadOnly
While Not (lrec.EOF)
ListView1.ColumnHeaders.Add 1, , ´Cadeia´
ListView1.ColumnHeaders.Add 2, , ´job´
ListView1.ColumnHeaders.Add 3, , ´subsistema´
ListView1.ColumnHeaders.Add 4, , ´modulo´
ListView1.ListItems.Add 1, , lrec(0)
ListView1.ListItems.Add 2, , lrec(1)
ListView1.ListItems.Add 3, , lrec(2)
ListView1.ListItems.Add 4, , lrec(3)
Wend
lrec.Close
lcn.Close
meu problema é, todo resultado do SELECT fica na coluna da ´ Cadeia ´ la no meu listview, queria q o lrec(0) fosse na cadeia, lrec(1) no job lrec(2) no subsistema....
entendem?
so quero q meus resultado fossem nas respectivas colunas que criei
Obrigado
Dougfinal
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)