Pessoal

 

Tenho 4 Campos em uma TABELA.

Estou tentando preencher uma ListView com o conteudo dos 4 campos da minha tabela. A ListView tem 4 Colunas

 

 

Public Sub Monta_Lista()

'rs.Open "select razao, cnpj, cpf, codigo FROM empresas ORDER BY razao", cnn

 
  Lista.ListItems.Clear
  If rs.RecordCount = 0 Then Exit Sub
     While Not rs.EOF
           Set lst = Lista.ListItems.Add(, , rs(0))
           rs.MoveNext
     Wend
End Sub

eu monto assim amigo

 

 

Function LerListChaveiro()
'On Error GoTo erro

 Set RslistChave = New ADODB.Recordset
 Set ConexListChave = New ADODB.Connection
'FAZENDO A CONEXÃO COM O BANCO DE DADOS
 
 ConexListChave.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path & "Bdimobiliaria.MDB;Jet " & _
           "OLEDB:Database Password=123456;"

   RslistChave.Open "Select * FROM Tbl_Chaves Where CodigoChave = " & txtcod.Text, ConexListChave, adOpenKeyset, adLockOptimistic
   
     
   'encabeçando a LISVIEW
    LstChave.ListItems.Clear
    LstChave.ColumnHeaders.Clear
    LstChave.ColumnHeaders.Add 1, , "Codigo", 0
    LstChave.ColumnHeaders.Add 2, , "Numero Chave", 1500
    LstChave.ColumnHeaders.Add 3, , "Codigo Imóvel", 1500
    LstChave.ColumnHeaders.Add 4, , "Rua", 2000
    LstChave.ColumnHeaders.Add 5, , "Bairro", 2000
    LstChave.ColumnHeaders.Add 6, , "N°", 1000
    LstChave.ColumnHeaders.Add 7, , "Nome Edificio", 4000
    LstChave.ColumnHeaders.Add 8, , "N° AP", 1000
    LstChave.ColumnHeaders.Add 9, , "Bloco", 1000
    LstChave.ColumnHeaders.Add 10, , "Cidade", 2000
    LstChave.ColumnHeaders.Add 11, , "Valor Venda", 2000
    LstChave.ColumnHeaders.Add 12, , "Valor Aluguel", 2000
    LstChave.ColumnHeaders.Add 13, , "", 1
 
While Not RslistChave.EOF

    LstChave.ListItems.Add 1, , RslistChave!CodigoChave
    LstChave.ListItems(1).SubItems(1) = RslistChave!NumChave
    LstChave.ListItems(1).SubItems(2) = RslistChave!CodImovel
    LstChave.ListItems(1).SubItems(3) = RslistChave!RuaNoti
    LstChave.ListItems(1).SubItems(4) = RslistChave!BairroNoti
    LstChave.ListItems(1).SubItems(5) = RslistChave!Numeronoti
    LstChave.ListItems(1).SubItems(6) = RslistChave!Edificio
    LstChave.ListItems(1).SubItems(7) = RslistChave!NumApart
    LstChave.ListItems(1).SubItems(8) = RslistChave!Bloco
    LstChave.ListItems(1).SubItems(9) = RslistChave!CidadeNoti
    LstChave.ListItems(1).SubItems(10) = Format(RslistChave("ValorVenda"), "currency")
    LstChave.ListItems(1).SubItems(11) = Format(RslistChave("ValorAluguel"), "currency")
    LstChave.ListItems(1).SubItems(12) = RslistChave!CodigoChave
   
    RslistChave.MoveNext
   
Wend

RslistChave.Close

txtchaveauto = ""
txtcodimovel = ""
txtchave = ""
txtruachave = ""
txtbairrochave = ""
txtnunchave = ""
txtedChave = ""
txtNumApa = ""
txtBlocoChave = ""
txtcidadeChave = ""
txtvalorvenda = ""
txtvaloraluguel = ""

'erro:
End Function

 

Deu na mesma Treze só preenche a primeira COLUNA

Sem chance Treze

Poxa cara, da vontade de deixar isso de lado.