listview - Excel e Access
Enviado: 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
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