Function Carrega_Funcionario()

Set RST = CreateObject("ADODB.Recordset")
RST.Open "select * from Funcionario ", CNN, adOpenKeyset, adLockOptimistic

Dim itmx As ListItem
Dim colx As ColumnHeader

ListView1.ColumnHeaders.Add , , "Coluna1"
ListView1.ColumnHeaders.Add , , "Coluna3"
ListView1.ColumnHeaders.Add , , "Coluna4"
ListView1.ColumnHeaders.Add , , "Coluna5"
ListView1.ColumnHeaders.Add , , "Coluna6"
ListView1.ColumnHeaders.Add , , "Coluna7"
ListView1.ColumnHeaders.Add , , "Coluna8"
ListView1.ColumnHeaders.Add , , "Coluna9"
ListView1.ColumnHeaders.Add , , "Coluna10"

Set itmx = ListView1.ListItems.Add(, , RST("Cod_fun"))

itmx.SubItems(1) = "" & RST("Nome_fun") & ""
itmx.SubItems(2) = "" & RST("Endereco_fun") & ""
itmx.SubItems(3) = "" & RST("ComplEnd_fun") & ""
itmx.SubItems(4) = "" & RST("Cep_fun") & ""
itmx.SubItems(5) = "" & RST("Bairro_fun") & ""
itmx.SubItems(6) = "" & RST("Cidade_fun") & ""
itmx.SubItems(7) = "" & RST("Telefone_fun") & ""
itmx.SubItems(8) = "" & RST("Celular_fun") & ""

RST.Close
End Function

 

Obs.: Não entendo o pq n consigo usar ListView, ele está trazendo apenas o primeiro codigo do primeiro registro.

 

Atenciosamente

Function Carrega_Funcionario()

Set RST = CreateObject("ADODB.Recordset")
RST.Open "select * from Funcionario ", CNN, adOpenKeyset, adLockOptimistic

Dim itmx As ListItem
Dim colx As ColumnHeader

ListView1.ColumnHeaders.Add , , "Coluna1"
ListView1.ColumnHeaders.Add , , "Coluna3"
ListView1.ColumnHeaders.Add , , "Coluna4"
ListView1.ColumnHeaders.Add , , "Coluna5"
ListView1.ColumnHeaders.Add , , "Coluna6"
ListView1.ColumnHeaders.Add , , "Coluna7"
ListView1.ColumnHeaders.Add , , "Coluna8"
ListView1.ColumnHeaders.Add , , "Coluna9"
ListView1.ColumnHeaders.Add , , "Coluna10"

Set itmx = ListView1.ListItems.Add(, , "A" & RST("Cod_fun"))

 

itmx.SubItems(1) = RST("Nome_fun") & ""
itmx.SubItems(2) = RST("Endereco_fun") & ""
itmx.SubItems(3) = RST("ComplEnd_fun") & ""
itmx.SubItems(4) = RST("Cep_fun") & ""
itmx.SubItems(5) = RST("Bairro_fun") & ""
itmx.SubItems(6) = RST("Cidade_fun") & ""
itmx.SubItems(7) = RST("Telefone_fun") & ""
itmx.SubItems(8) = RST("Celular_fun") & ""

RST.Close
End Function

 

Obs.: Até traz a primeira coluna que esta aqui:

 

Set itmx = ListView1.ListItems.Add(, , "A" & RST("Cod_fun"))

 

Mas esse subItems não consigo colocar na ListView

 

 

ATT

desculpa, sou nb não vi q tinha próxima page XD

Por favor para usar litView precisa de referenciar algo ou declarar algo?

 

Pois no codigo:

itmx.SubItems(4) = RST("Cep_fun").Value

Debugando ele eu tenho os valores do record set (depois do "="),

mas antes do = qdo coloco o mouse em cima aparece:

itmx.SubItems(4) = ""

 

vazio...

 

ATT

 

eu reparei um "A" no seu código o que seria isto

Tirei o 'A'

 

segue codigo que n funciona de jeito nenhum, ele traz na listView somente

o codigo de func(Cod_fun), o problema sao os subItems que não fuicionam acho, como

fazer funcionar, desde ja agradeço a todos:

 

segue code

 

Private Sub Form_Load()
Dim x As Integer
Set RST = CreateObject("ADODB.Recordset")
RST.Open "select * from Funcionario ", CNN, adOpenKeyset, adLockOptimistic

Dim itmx As ListItem

'Dim colx As ColumnHeader '

ListView1.ColumnHeaders.Add , , "Coluna1"
ListView1.ColumnHeaders.Add , , "Coluna3" '
ListView1.ColumnHeaders.Add , , "Coluna4"
ListView1.ColumnHeaders.Add , , "Coluna5"
ListView1.ColumnHeaders.Add , , "Coluna6"
ListView1.ColumnHeaders.Add , , "Coluna7"
ListView1.ColumnHeaders.Add , , "Coluna8"
ListView1.ColumnHeaders.Add , , "Coluna9"
ListView1.ColumnHeaders.Add , , "Coluna10"

Do Until RST.EOF

'Set itmx = ListView1.ListItems.Add(, , RST("Cod_fun") & RST("Nome_fun") & RST("Endereco_fun") & RST("ComplEnd_fun") & RST("Cep_fun") & RST("Bairro_fun") & RST("Cidade_fun") & RST("Telefone_fun") & RST("Celular_fun"))

'itmx = ListView1.ListItems.Add(, , RST("Endereco_fun"))
'itmx = ListView1.ListItems.Add(, , RST("ComplEnd_fun"))
'itmx = ListView1.ListItems.Add(, , RST("Cep_fun"))
'itmx = ListView1.ListItems.Add(, , RST("Bairro_fun"))
'itmx = ListView1.ListItems.Add(, , RST("Cidade_fun"))
'itmx = ListView1.ListItems.Add(, , RST("Telefone_fun"))
'itmx = ListView1.ListItems.Add(, , RST("Celular_fun"))
    Set itmx = ListView1.ListItems.Add(, , RST("Cod_fun").Value)
        itmx.SubItems("1") = RST("Nome_fun").Value
        itmx.SubItems("2") = RST("Endereco_fun").Value
        itmx.SubItems("3") = RST("ComplEnd_fun").Value
        itmx.SubItems("4") = RST("Cep_fun").Value
        itmx.SubItems("5") = RST("Bairro_fun").Value
        itmx.SubItems("6") = RST("Cidade_fun").Value
        itmx.SubItems("7") = RST("Telefone_fun").Value
        itmx.SubItems("8") = RST("Celular_fun").Value
    RST.MoveNext
Loop
RST.Close

End Sub

 

 

ATT