Ir para conteúdo
Fórum Script Brasil

luis lpc

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que luis lpc postou

  1. 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
×
×
  • Criar Novo...