Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

listview - Excel e Access

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

Robson
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Fev 06, 2019 6:51 am

listview - Excel e Access

Mensagem por Robson » Qui Fev 21, 2019 7:49 am

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



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1098
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: listview - Excel e Access

Mensagem por Reinaldo » Sex Fev 22, 2019 11:09 am

Pode disponibilizar seu modelo?, altere dados para ficticios se necessario


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Responder