O QUE ESTA ERRADO?

USUARIO.EXCLUIDOS 18/12/2006 16:08:32
#190682
Eu gostaria de uma ajudinha coloquei no meu form um listview pra carregar os dados do banco!!! Criei uma rotinazinha que carrega os dados no listview mais ta acontecendo um probleminha qria ver se alguem pode me dar uma ajuda!! o codigo q eu fiz tah aqui:

FAZENDO A CONEXAO NO BANCO DE DADOS NO FORM LOAD:
Private Sub Form_Load()
Set conexao = New ADODB.Connection

    conexao.Open "provider=microsoft.jet.oledb.4.0;data source=bddenso.mdb"
    
    Set RSUSUARIOS = New ADODB.Recordset
    RSUSUARIOS.CursorLocation = adUseClient
    
    
    
    RSUSUARIOS.Open "select catden,codcli from tblfiat", conexao, adOpenKeyset, adLockPessimistic
    
 Call carrega
 
End Sub







CARREGANDO A LISTA DE DADOS A SEREM CARREGADOS NO LISTVIEW

Private Sub carrega()

Dim LSt As ListItem
ListView1.ListItems.Clear

Do While Not RSUSUARIOS.EOF
 
   Set LSt = ListView1.ListItems.Add
       With LSt
            .Text = RSUSUARIOS(0)
            .SubItems(1) = RSUSUARIOS(0)
            .SubItems(2) = RSUSUARIOS(1)
       End With
      
   RSUSUARIOS.MoveNext

Loop

Set LSt = Nothing


End Sub


SE ALGUEM PUDER ME AJUDAR TAMO AI
USUARIO.EXCLUIDOS 18/12/2006 16:13:13
#190687 Resposta escolhida
Tá dando erro onde? Qual erro?
ALMARTI 18/12/2006 16:18:02
#190692
conexao.Open "provider=microsoft.jet.oledb.4.0;data source=bddenso.mdb"

Qual o endereço do banco?
DAVYS 18/12/2006 16:19:33
#190695
Veio fica meio tenso localizar o erro assim, fale exatamenta a linha q da o erro e fala qual é o erro, q fica mais facil pra te ajudar

flw
ESLEYSANCHES 18/12/2006 16:22:59
#190697
Pois é ... de uma informada na linha que está dando erro, mais apesar disso, de uma olhadinha nos links abaixo:

Usando o Controle TreeView
http://www.macoratti.net/treeview.htm

Usando o Controle TreeView na Prática II
http://www.macoratti.net/treview2.htm

VB - Exibindo tabelas e registros no controle TreeView
http://www.macoratti.net/vb_tree2.htm

Espero que te ajude !!
Abraços !!
ALMARTI 18/12/2006 16:25:59
#190699
Se esta usando listview, de uma olhada em
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=151
USUARIO.EXCLUIDOS 18/12/2006 16:52:53
#190710
Foi mal galera o erro que dando e o seguinte

Invalid Property Value:

na seguinte linha:
.SubItems(1) = RSUSUARIOS(0)

me desculpem ai pelo transtorno
USUARIO.EXCLUIDOS 18/12/2006 16:55:35
#190712
Olá Blemer,

Talvez o conteúdo do campo possa estar vazio.

Experimente o seguinte:

.SubItems(1) = "" & RSUSUARIOS(0)

Obs.: Na primeira coluna não podem ter valores nulos, ok ?

Boa Sorte,


Daniel
WHELLNET 18/12/2006 19:36:52
#190746
Tá faltando vc criar as colunas do ListView antes
no form load coloque isso
With ListView1.ListItems
   .ColumnHeaders.Add "1", "1", "Usuario 1"
   .ColumnHeaders.Add "2", "1", "Usuario 2"
   .ColumnHeaders.Add "3", "1", "Usuario 3"
End With


Ou se preferir pode fazer pelo modo projeto mesmo, também dá certo
Tópico encerrado , respostas não são mais permitidas
Voltar