MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Filtro em Access usando VB6

    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Filtro em Access usando VB6 Empty [Resolvido]Filtro em Access usando VB6

    Mensagem  danielmarcos17 em 16/6/2019, 01:55

    Galera boa noite,
    gostaria de saber como faço para fazer um filtre em duas colunas de uma tabela em Access.

    Exemplo:
    COLUNA DIA: SEGUNDA FEIRA
    COLUNA HORARIO: 08:00 AS 10:00

    Gostaria de pesquisar resultados que tenham esses valores em suas colunas.
    estou usando o seguinte codigo, porém ele me retorna um erro de sintaxe:
    diz que a conexão esta inválida ou fechada nesse contexto

    segue o codigo que estou utlizando:

    Código:
    Private Sub cmb_filtro_Horario_Click()
    Dim Item As ListItem
       lstAlunos.ListItems.Clear
       
       
        db.Open "Provider=microsoft.ace.oledb.12.0;User ID=Admin;Data Source=C:\Users\InforPrint\Downloads\Ribbon 2007-20190522T003724Z-001\Ribbon 2007\banco.accdb;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database='';Jet OLEDB:Database Password='10102020'"
       
           'rs.Open "select * from Turmas where Horario like'%" & cmb_filtro_Horario.Text & "%'", db, 3, 3
           rs.Open "Select *from Turmas where Dia Like'%" & cmb_filtro_Dia.Text & "%' And Horario like '%" & cmb_filtro_Horario.Text & "%', db, 3, 3 "

               Do Until rs.EOF
                   Set Item = lstAlunos.ListItems.Add(, , rs!Codigo)
                        Item.SubItems(1) = "" & rs!ID
                       Item.SubItems(2) = "" & rs!Dia
                       Item.SubItems(3) = "" & rs!Horario
                       Item.SubItems(4) = "" & rs!Modalidade
                       Item.SubItems(5) = "" & rs!StatusAluno
                       Item.SubItems(6) = "" & rs!Curso

                       
                       
                   rs.MoveNext
               Loop
           
       rs.Close: Set rs = Nothing
       db.Close: Set db = Nothing

    obs: quando utilizado apenas para filtrar em uma coluna, ele funciona
    Código:
    rs.Open "select * from Turmas where Horario like'%" & cmb_filtro_Horario.Text & "%'", db, 3, 3

    porém preciso filtrar em 2 colunas ao mesmo tempo para trazer a informação que necessito.

    Alguem poderia me ajudar?
    avatar
    danielmarcos17
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 01/07/2015

    [Resolvido]Filtro em Access usando VB6 Empty Resolvido

    Mensagem  danielmarcos17 em 16/6/2019, 04:13

    Resolvido

      Data/hora atual: 21/11/2019, 14:48