Help_ListView basico


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Help_ListView basico

c4b3ç4

SÃO PAULO
SP - BRASIL

Postada em 21/12/2007 13:33 hs

Boa tarde a todos, à dúvida é com listView, preciso carregar de um Access, segue abaixo o code, estou no segundo dia, aprendi muita coisa mas não funciona:

erro: #380: Invalid property value

Private Sub 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"

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")

End Sub

Obrigado a todos

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 21/12/2007 13:42 hs

Algum valor está vindo nulo provavelmente... tenta assim colega:

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") & ""

Qualquer dúvida postae.

at+

PC²
não registrado

ENUNCIADA !

Postada em 21/12/2007 14:11 hs

Eu mudaria o seguinte:

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

Para ler o codigo do campo, eu uso esta funcção:

Function LCod(X As String) As String
If X = "" Then
LCod = X
Else
LCod = Right(X, Len(X) - 1)
End If
End Function

c4b3ç4

SÃO PAULO
SP - BRASIL

Postada em 21/12/2007 14:25 hs

amigo, continua dando erro nesta linhe ele para:

itmx.SubItems(8) = RST("Celular_fun") & ""

obs na miha tabela inseri dados, ela esta assim mais ou menos:

cod_fun - numero

nome_fun- texto

endereco texto

celular numero

c4b3ç4

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 21/12/2007 14:37 hs

Function Carrega_Funcionario()

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

Dim itmx As ListItem
Dim colx As ColumnHeader

'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")

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

End Function

obs.: sem campo nulo

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 21/12/2007 15:49 hs

tenta isso

abaixo de ...

itmx.SubItems(8) = RST("Celular_fun") & ""

coleque isso ...

RST.Close

Página(s): 1/3 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR