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