• 0
Sign in to follow this  
luis lpc

Carregar dados Banco .mdb em textbox

Question

Boa tarde amigos

Desculpe se estiver postando no lugar errado.

Sou novato em visualbasic, minha duvida é simples, mas já pesquisei por tudo e não encontrei como fazer. preciso colocar os registros do banco de dados .mdb em textboxs. por exemplo:

Tenho cadastrado COD: 1 NOME: LUIS FUNÇÃO: NENHUMA

COD: 2 NOME: JOAO FUNÇÃO: NENHUMA2

COD: 3 NOME: CARLOS FUNÇÃO: NENHUMA3

Tenho um codigo para conexao com o bd funcionando e adicionando os itens ao listview. porem o que preciso fazer tambem é adicionar os registros do bd em alguns textbox, mas no caso o campo nome.

Ficaria algo assim:

Text1.text = NOME1

Text2.text = NOME2

Text3.text = NOME3 (isso feito da forma correta)

Porém já pesquisei muito e não encontrei como fazer, o que consegui fazer foi listar em labels o conteudo do listview com este codigo:

codigo1.Caption = (ListView1.ListItems(1))
codigo2.Caption = (ListView1.ListItems(2))
codigo3.Caption = (ListView1.ListItems(3))
codigo4.Caption = (ListView1.ListItems(4))
codigo5.Caption = (ListView1.ListItems(5))
codigo6.Caption = (ListView1.ListItems(6))
codigo7.Caption = (ListView1.ListItems(7))
codigo8.Caption = (ListView1.ListItems(8))
se fizer em texbox tambem funciona, ele exibe os registros em sequencia, porem so consegui fazer exibir o campo1, que é o campo do código. Mas se eu conseguir fazer com que venha diretamente do banco de dados melhor ainda. abaixo esta meu codigo que faz a conexão e adiciona os itens em um listview.
Public Function listar()
With ListView1
  With .ColumnHeaders
    .Clear
    .Add , , "Código", 1000, lvwColumnLeft
    .Add , , "Equipamento", 1500, lvwColumnLeft
    .Add , , "Potência em Watts", 1800, lvwColumnLeft
    .Add , , "Marca", 1000, lvwColumnLeft
  End With
  .View = lvwReport
End With
'teste2

With frmcadastroequip.ListView1
  With .ColumnHeaders
    .Clear
    .Add , , "Código", 1000, lvwColumnLeft
    .Add , , "Equipamento", 1500, lvwColumnLeft
    .Add , , "Potência em Watts", 1800, lvwColumnLeft
    .Add , , "Marca", 1000, lvwColumnLeft
  End With
  .View = lvwReport
End With


'fim teste 2

'Lembre-se de substituir pelo nome e caminho do seu MDB
Mdb = "automacaocasa.MDB"

Set Cn = New Connection

With Cn
  .CursorLocation = adUseClient
  .Mode = adModeReadWrite
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .ConnectionString = "Data Source=" & Mdb
  .Open
End With

Set Rs = New Recordset
'Lembre-se de substituir a instrução SQL para chamar a sua tabela
Set Rs = Cn.Execute("SELECT codigo,equipamento,potencia_watts,marca FROM cadequipamentos;")

Qtd = Rs.RecordCount

If Not Qtd = 0 Then

  For Cont = 1 To Qtd

    'Lembre-se de substituir os nomes dos campos, pelos campos da sua tabela
    Set LstDados = ListView1.ListItems.Add(, , Rs!codigo)
    'LstDados.Tag = Rs!potencia_watts
    LstDados.SubItems(1) = Rs!equipamento
    LstDados.SubItems(2) = Rs!potencia_watts
    LstDados.SubItems(3) = Rs!marca

    'teste2
    'Lembre-se de substituir os nomes dos campos, pelos campos da sua tabela
    Set LstDados2 = frmcadastroequip.ListView1.ListItems.Add(, , Rs!codigo)
    'LstDados.Tag = Rs!potencia_watts
    LstDados2.SubItems(1) = Rs!equipamento
    LstDados2.SubItems(2) = Rs!potencia_watts
    LstDados2.SubItems(3) = Rs!marca
    'fimteste2
    
    
    
    
    
    Rs.MoveNext

  Next

Else

  MsgBox "Não há dados nesta consulta."

End If

Cn.Close
Set Cn = Nothing
Set Rs = Nothing

End Function

agradeço a ajuda...muito obrigado

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Boa noite Luis, seja bem vindo ao forum!!

Você pode coletar dados a partir de uma variavel chamada rsdados... tente dessa maneira

set rsdados = new adodb.recordset
rsdados.open "select * from NOMEDATABELA",NOMEDACONEXAO

txtnome.text = rsdados("Nome")
txtfuncao.text = rsdados("funcao")

Altere o que está em maiusculo de acordo com suas configurações...

Abraço e poste nos o resultado!

Edited by Matheus-vb6

Share this post


Link to post
Share on other sites
  • 0

Olá luis lpc

Tem como sim e é até simples de fazer...

só explique se esses dados que ficarão nas TextBoxes serão alterados...se irão, quando serão ? ao navegar nas linhas do ListView ? :rolleyes:

Editado:

Revendo sua dúvida, só para esclarecer, os dados que você quer que apareçam nas TextBoxes estão listadas na ListView ou não ??? :blink:

Edited by Danleonhart

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this