Variable not defined

[Buddi 0]

Estou a fazer um projecto utilizando uma listview que se conecta à base de dados e que mostra os dados de uma tabela.

Essa listview quando faço load do programa dá o seguinte erro: "Compile Error: Variable not defined" e aparece seleccionado o 'Col'

Aqui está o código onde aparece o erro:

 

Private Sub Form_Load()

ListView1.ColumnHeaders.Add , , "Codigo", 55
ListView1.ColumnHeaders.Add , , "Nome", 192
ListView1.ColumnHeaders.Add , , "Sala", 192
ListView1.ColumnHeaders.Add , , "PC", 192
ListView1.ColumnHeaders.Add , , "OBS", 192
ListView1.ColumnHeaders.Add , , "Hora", 192
ListView1.ColumnHeaders.Add , , "Data", 192
ListView1.Font = "Trebuchet MS"
ListView1.Font.Size = 10
ListView1.BorderStyle = ccFixedSingle
'o comando view altera a forma de visualização dos items
ListView1.View = lvwReport 'exibe detelhe dos itens
'coloca a selecção do listview em todos os itens
ListView1.FullRowSelect = True

rs.Open "select cod_msg,nome_utilizador FROM mensagens;", cn, adOpenKeyset, adLockOptimistic

Do While Not rs.EOF

	Set Col = ListView1.ListItems.Add(, , rs!cod_msg)
			Col.SubItems(1) = rs!nome_utilizador
	rs.MoveNext
Loop

rs.Close

End Sub

Já tentei definir a variável Col mas continou igual.

 

Cumps

[hargon 64]

Como e onde você tentou definir a variável?

[Buddi 0]

experimentei declarar o 'Col' de duas formas:

- Private Col as integer

- Dim Col as integer

 

mas da erro:

"Compile error: object required"

[scorpio 7]

http://www.macoratti.net/lstview2.htm

[hargon 64]

É como o scorpio postou, você não pode declarar com um tipo e depois armazenar outro tipo na variável, principalmente se tratando objeto.

[Buddi 0]

acho que já sei qual é o erro.

pelo que estive a ver no link que o scorpio me deu a listview que stou a usar está numa versão abaixo à que devemos usar.(tenho a versão SP2 em vez de ter a SP3 ou SP4) <_<