MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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: 3/7/2020, 18:43