Preciso preencher um listiview e não estou consequindo.Na minha aplicação tem uma tela Form2 com um lstviewDespesas.
Fiz um module.bas para realizar a conexão com o banco e fiz assim:
'declaração de variavel publica
Public conn As New ADODB.Connection
Public rec As New ADODB.Recordset
Public cmd As New ADODB.Command
Public Sub main()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "despesas.mdb"
conn.Open
cmd.ActiveConnection = conn
Form2.Show
End Sub
No form_load do meu Form2 eu coloquei o sequinte código:
Private Sub Form_Load()
'Set rec = New Recordset
On Error Resume Next
If rec.State > 0 Then rec.Close
lstvwDespesas.ColumnHeaders(0).Width = 2000
lstvwDespesas.ColumnHeaders(1).Width = 2000
lstvwDespesas.ColumnHeaders(2).Width = 2000
lstvwDespesas.ColumnHeaders(3).Width = 2000
lstvwDespesas.ColumnHeaders(4).Width = 2000
lstvwDespesas.ColumnHeaders(0).Text = "Código"
lstvwDespesas.ColumnHeaders(1).Text = "Data"
lstvwDespesas.ColumnHeaders(2).Text = "Renda Total"
lstvwDespesas.ColumnHeaders(3).Text = "Despesa Total"
lstvwDespesas.ColumnHeaders(4).Text = "Saldo"
rec.Open "select iddespesas, data, rendatotal, despesatotal, saldo from tbdespesas order by iddespesas", conn
While Not rec.EOF
Set ListView = lstvwDespesas.ListItems.Add(1, "Pa1" & Key, rec("iddespesas"), , 1)
ListView.ListSubItems.Add , "Pa" & Key, rec("data")
ListView.ListSubItems.Add , "Pa" & Key, rec("rendatotal")
ListView.ListSubItems.Add , "Pa" & Key, rec("despesatotal")
ListView.ListSubItems.Add , "Pa" & Key, rec("saldo")
Key = Key + 1
rec.MoveNext
Wend
' CompSearchLabel(1).Caption = ListView1.ListItems.Count & " Registros encontrados."
rec.Close
End Sub
Quando mando rodar aparece a mensagem: INDEX OUT OF BOUNDS
Tenho que setar os indices? Como faço isso ? Alquem poderia me ajudar a preecher o listview com os dados de minha tabela?Não sei mais o que fazer.
