Bom dia,
Sou novo com VBA + Access, Montei uma conexão do Excel para o banco do Access, no meu formulário tem um Listview, mas eu não estou conseguindo fazer a consulta, da erro.. Ele Carrega o List.. mas quando digito no Textbox, para carregar a consulta ele não Vai..
Tentei usar um dos 4 "rs.Open"... mesmo assim da erro.. alguém pode me ajudar?
Sub filtrar_List()
Dim vBusca As String
Dim LinhaListView1 As Integer
Dim item As ListItem
'ListView1.ListItems.Clear
vBusca = LstBusca
' ConectDB
' 1 - rs.Open "Select * from TBDados where Nome like'" & Replace(vBusca, "'", "''") & "%'" & _
' "or Codigo like '" & Replace(vBusca, "'", "''") & "%'" & " or Sexo like '" & Replace(vBusca, "'", "''") & "%'", db, 3,
2 - ' rs.Open "Select * from TBDados where Nome like'%" & Replace(vBusca, "'", "''") & "%'" & _
' "or Re like '" & Replace(vBusca, "'", "''") & "%' order by Re", db, 3, 3
3- 'rs.Open " select * from TBDados where Nome like'%" & vBusca & "%' order by re", db, 3, 3
4- rs.Open "select * from TBDados where Nome LIKE '" & vBusca & "%" & "'", db, 3, 3
Do Until (rs.EOF)
Set item = ListView1.ListItems.Add(, , rsNome)
item.SubItems(1) = "" & rs!Nome
item.SubItems(2) = "" & rs!CELULAR
item.SubItems(3) = "" & rs!TELEFONE
LinhaListView1 = LinhaListView1 + 1
rs.MoveNext
Loop
Set rs = Nothing
db.Close: Set db = Nothing
FechaDB
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
listview - Excel e Access
Moderador: joseA
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: listview - Excel e Access
Pode disponibilizar seu modelo?, altere dados para ficticios se necessario
-
- Colaborador
- Mensagens: 12
- Registrado em: Ter Ago 23, 2011 11:07 pm
Re: listview - Excel e Access
bom dia amigo,
estou enviando o código que uso para fazer uma buscar no banco de dados e filtrar dados na listview:
Dim item As ListItem
lstCad.ListItems.Clear
ConnectBD
rs.Open "select * from Parcelas where ID like'" & txt_alunoselecionado.Text & "%'", db, 3, 3
Do Until rs.EOF
Set item = lstCad.ListItems.Add(, , rs!Codigo)
item.SubItems(1) = rs!ID
item.SubItems(2) = rs!NParcela
item.SubItems(3) = rs!DataPagamento
item.SubItems(4) = "" & Format(rs!ValorPagamento, "currency")
item.SubItems(5) = rs!NRecibo
item.SubItems(6) = rs!Atendente
item.SubItems(7) = rs!DataHoje
item.SubItems(8) = rs!Observacao
item.SubItems(9) = rs!Dias
item.SubItems(10) = "" & Format(rs!ValorMensalidade, "currency")
item.SubItems(11) = "" & Format(rs!ValorJuros, "currency")
item.SubItems(12) = "" & Format(rs!Valor_a_Pagar, "currency")
' Item.SubItems(12) = "" & Format(rs!ValorTeste, "currency")
item.SubItems(13) = rs!status
item.SubItems(14) = rs!Pagamento
item.SubItems(15) = rs!Situacao
item.SubItems(16) = "" & Format(rs!ValorTeste, "currency")
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
estou enviando o código que uso para fazer uma buscar no banco de dados e filtrar dados na listview:
Dim item As ListItem
lstCad.ListItems.Clear
ConnectBD
rs.Open "select * from Parcelas where ID like'" & txt_alunoselecionado.Text & "%'", db, 3, 3
Do Until rs.EOF
Set item = lstCad.ListItems.Add(, , rs!Codigo)
item.SubItems(1) = rs!ID
item.SubItems(2) = rs!NParcela
item.SubItems(3) = rs!DataPagamento
item.SubItems(4) = "" & Format(rs!ValorPagamento, "currency")
item.SubItems(5) = rs!NRecibo
item.SubItems(6) = rs!Atendente
item.SubItems(7) = rs!DataHoje
item.SubItems(8) = rs!Observacao
item.SubItems(9) = rs!Dias
item.SubItems(10) = "" & Format(rs!ValorMensalidade, "currency")
item.SubItems(11) = "" & Format(rs!ValorJuros, "currency")
item.SubItems(12) = "" & Format(rs!Valor_a_Pagar, "currency")
' Item.SubItems(12) = "" & Format(rs!ValorTeste, "currency")
item.SubItems(13) = rs!status
item.SubItems(14) = rs!Pagamento
item.SubItems(15) = rs!Situacao
item.SubItems(16) = "" & Format(rs!ValorTeste, "currency")
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing