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]Incluir consulta Access em SQL

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 11/12/2017, 10:55

    Bom dia!

    to quebrando a cabeça aqui como colocar a consulta abaixo dentro do Preencher_lst_teste, agradeço a ajuda desde ja. Very Happy

    Código:
    Preencher_lst_teste

    Dim query As String
       
        query = "SELECT * " & _
        " FROM tbl_GeMon"
       
        conexao.Abrir_Conexao
        conexao.Executar_Data_Reader (query)
       
        Set List_Os.Recordset = Nothing
        Set List_Os.Recordset = conexao.data_reader
       
        conexao.Fechar_Data_Reader

    End Sub


    Consulta que gostaria de inserir no codigo acima:


    SELECT tbl_GeMon.Codigo_Viagem AS Codigo,
    tbl_GeMon.Data_Ref AS Data,
    tbl_GeMon.Placa_Cavalo AS Placa,
    tbl_GeMon.Tomador_Servico AS Tomador,
    tbl_GeMon.Status_Prog AS [Status Prog],
    tbl_GeMon.Local AS Localização,
    tbl_GeMon.Dt_Hr_Atualizacao AS Atualização,
    tbl_GeMon.Ultimo_Status_Viagem AS [Status Viagem],
    tbl_GeMon.Num_Solicitacao AS [Nº Solicitação],
    tbl_GeMon.Baixa_Monitoramento,
    tbl_GeMon.Reg_Criado AS Criado,
    tbl_GeMon.Programador,
    tbl_GeMon.Motorista,
    tbl_GeMon.Baixa_Comercial FROM tbl_GeMon WHERE (((tbl_GeMon.Status_Prog) Like Forms!frm_GeProg!txtstatus & "*") And ((tbl_Ge
    Mon.Baixa_Monitoramento)=False) And ((tbl_GeMon.Programador) Like Forms!frm_GeProg!txtProgramador & "*") And ((tbl_GeMon.Baixa_Comercial)=True)) ORDER BY tbl_GeMon.Codigo_Viagem;


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    José Machado
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 13/09/2016

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  José Machado em 11/12/2017, 12:04

    Bom dia

    Como vc está usando apenas um tabela para consulta, não precisa chamar os objetos em todos os campos. Use apenas o atributo.
    E para fazer o comparativo, vc deve usar aspas duplas e o &, ex: WHERE seu_campo = "& txt_seu_campo &"

    Tente esse critério
    ''FROM tbl_GeMon "& _"
    WHERE Status_Prog Like "& Forms!frm_GeProg!txtstatus & "*' And Baixa_Monitoramento = False And Programador Like "& Forms!frm_GeProg!txtProgramador & "*" And Baixa_Comercial = True "& _
    " ORDER BY Codigo_Viagem;

    Att
    José
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  Alexandre Fim em 11/12/2017, 12:44

    Bom dia Nois,

    Fiz um exemplo onde é feito o preenchimento do listbox através de um recordset ADO.

    Att,


    Alexandre
    Anexos
    [Resolvido]Incluir consulta Access em SQL AttachmentListBoxADO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 17 vez(es)
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 11/12/2017, 12:46

    Mais uma vez agradeço pela força!

    mas nao entendi com relação a renomear o campo, pois eu coloquei na tabela como Codigo_Viagem e queria que aparecesse como Codigo no titulo da listbox

    no codigo da consulta do access fica assim: Codigo_Viagem AS Codigo

    outro detalhe minha tabela tem várias colunas, preciso que me retorne apenas algumas especificas, ou seja dai minha dificuldade...






    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  Alexandre Fim em 11/12/2017, 12:50

    Nois, veja a instrução abaixo:

    sSql = "SELECT "
    sSql = sSql & " TB_DADOS.codigo AS [CÓDIGO] ==> esse é o alias(apelido) que vc dá a coluna do listbox"
    sSql = sSql & " , TB_DADOS.nome AS [NOME]"
    sSql = sSql & " , TB_DADOS.data_Adm AS [DATA ADMISSÃO]"
    sSql = sSql & " FROM TB_DADOS;"


    E para montar a string, vc coloca os campos necessários para preencher seu list.

    Att,

    Alexandre
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 11/12/2017, 12:50

    Alexandre valeu pelo exemplo muito simples e objetivo!

    como consigo inputar uma condicional neste teu exemplo

    dessa forma

    'tbl_GeMon.Baixa_Comercial FROM tbl_GeMon WHERE (((tbl_GeMon.Status_Prog) Like Forms!frm_GeProg!txtstatus & "*") And ((tbl_GeMon.Baixa_Monitoramento)=False) And ((tbl_GeMon.Programador) Like Forms!frm_GeProg!txtProgramador & "*") And ((tbl_GeMon.Baixa_Comercial)=True)) ORDER BY tbl_GeMon.Codigo_Viagem;


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  Alexandre Fim em 11/12/2017, 12:58

    Nois,

    A condicional (WHERE) já esta na sua string. Eu apenas criei uma variavel string (sSql) para quebrar o select em várias linhas. Desta forma, fica melhor a visualização e também para dar manutenção.


    sSql = "SELECT tbl_GeMon.Baixa_Comercial "
    sSql = sSql & " FROM tbl_GeMon "
    sSql = sSql & " WHERE (((tbl_GeMon.Status_Prog) Like Forms!frm_GeProg!txtstatus & " * ") "
    sSql = sSql & " And ((tbl_GeMon.Baixa_Monitoramento)=False) "
    sSql = sSql & " And ((tbl_GeMon.Programador) Like Forms!frm_GeProg!txtProgramador & " * ") "
    sSql = sSql & " And ((tbl_GeMon.Baixa_Comercial)=True)) "
    sSql = sSql & " ORDER BY tbl_GeMon.Codigo_Viagem;"



    Valeu

    Abraços
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 11/12/2017, 14:03

    Onde que estou errando aqui meu carissimo

    Código:
    Sub CarregaListBox()

    Dim rs As New ADODB.Recordset
    Dim sSql As String


        sSql = "SELECT "
        sSql = sSql & "   tbl_GeMon.Data_Ref AS [Data]"
        sSql = sSql & " , tbl_GeMon.Placa_Cavalo AS [Placa]"
        sSql = sSql & " , tbl_GeMon.Tomador_Servico AS [Tomador]"
        sSql = sSql & " , tbl_GeMon.Status_Prog AS [Status Prog]"
        sSql = sSql & " , tbl_GeMon.Local AS [Localização]"
        sSql = sSql & " , tbl_GeMon.Dt_Hr_Atualizacao AS [Atualização]"
        sSql = sSql & " , tbl_GeMon.Ultimo_Status_Viagem AS [Status Viagem]"
        sSql = sSql & " , tbl_GeMon.Num_Solicitacao AS [Nº Solicitação]"
        sSql = sSql & " , tbl_GeMon.Baixa_Monitoramento"
        sSql = sSql & " , tbl_GeMon.Reg_Criado AS [Criado]"
        sSql = sSql & " , tbl_GeMon.Programador"
        sSql = sSql & " , tbl_GeMon.Motorista"
        sSql = sSql & " , tbl_GeMon.Baixa_Comercial"
        sSql = sSql & " FROM tbl_GeMon"
        sSql = sSql & " WHERE (((tbl_GeMon.Status_Prog) Like Forms!frm_GeProg!txtstatus & " * ") "
        sSql = sSql & " And ((tbl_GeMon.Baixa_Monitoramento)=False) "
        sSql = sSql & " And ((tbl_GeMon.Programador) Like Forms!frm_GeProg!txtProgramador & " * ") "
        sSql = sSql & " And ((tbl_GeMon.Baixa_Comercial)=True)) "
        sSql = sSql & " ORDER BY tbl_GeMon.Codigo_Viagem;"
        
        
        Set rs = New ADODB.Recordset
        rs.CursorLocation = adUseClient
        rs.Open sSql, CurrentProject.connection, adOpenKeyset, adLockOptimistic
        Set Me.List_Os.Recordset = rs
        
        rs.Close
        Set rs = Nothing

    End Sub


    Código:
    SELECT tbl_GeMon.Codigo_Viagem AS Codigo, tbl_GeMon.Data_Ref AS Data, tbl_GeMon.Placa_Cavalo AS Placa, tbl_GeMon.Tomador_Servico AS Tomador, tbl_GeMon.Status_Prog AS [Status Prog], tbl_GeMon.Local AS Localização, tbl_GeMon.Dt_Hr_Atualizacao AS Atualização, tbl_GeMon.Ultimo_Status_Viagem AS [Status Viagem], tbl_GeMon.Num_Solicitacao AS [Nº Solicitação], tbl_GeMon.Baixa_Monitoramento, tbl_GeMon.Reg_Criado AS Criado, tbl_GeMon.Programador, tbl_GeMon.Motorista, tbl_GeMon.Baixa_Comercial
    FROM tbl_GeMon
    WHERE (((tbl_GeMon.Status_Prog) Like [Forms]![frm_GeProg]![txtstatus] & "*") AND ((tbl_GeMon.Baixa_Monitoramento)=False) AND ((tbl_GeMon.Programador) Like [Forms]![frm_GeProg]![txtProgramador] & "*") AND ((tbl_GeMon.Baixa_Comercial)=True))
    ORDER BY tbl_GeMon.Codigo_Viagem;


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 11/12/2017, 14:56

    da dando erro aqui

    WHERE (((tbl_GeMon.Status_Prog) Like [Forms]![frm_GeProg]![txtstatus] & "*") AND ((tbl_GeMon.Baixa_Monitoramento)=False) AND ((tbl_GeMon.Programador) Like [Forms]![frm_GeProg]![txtProgramador] & "*") AND ((tbl_GeMon.Baixa_Comercial)=True))


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 11/12/2017, 18:10

    Garrei so no Where.... Neutral

    Código:
    Sub CarregaListBox()

    Dim rs As New ADODB.Recordset
    Dim sSql As String


        sSql = "SELECT "
        sSql = sSql & " Codigo_Viagem AS [Codigo]"
        sSql = sSql & " , tbl_GeMon.Data_Ref AS [Data Ref]"
        sSql = sSql & " , tbl_GeMon.Placa_Cavalo AS [Placa]"
        sSql = sSql & " , tbl_GeMon.Tomador_Servico AS [Tomador]"
        sSql = sSql & " , tbl_GeMon.Status_Prog"
        sSql = sSql & " , tbl_GeMon.[Local] AS [Localizacao]"    'palavra reservada Local****
        sSql = sSql & " , tbl_GeMon.Dt_Hr_Atualizacao AS [Atualizacao]"
        sSql = sSql & " , tbl_GeMon.Ultimo_Status_Viagem AS [Status]"
        sSql = sSql & " , tbl_GeMon.Num_Solicitacao AS [N Solicitacao]"
        sSql = sSql & " , tbl_GeMon.Baixa_Monitoramento"
        sSql = sSql & " , tbl_GeMon.Reg_Criado AS [Criado]"
        sSql = sSql & " , tbl_GeMon.Programador"
        sSql = sSql & " , tbl_GeMon.Motorista"
        sSql = sSql & " , tbl_GeMon.Baixa_Comercial"
        sSql = sSql & " FROM tbl_GeMon"
    ' ====>>>  sSql = sSql & " WHERE (((tbl_GeMon.Status_Prog) Like [Formulários]![frm_GeProg]![txtstatus] & "*") And ((tbl_GeMon.Baixa_Monitoramento) = False) And ((tbl_GeMon.Programador) Like [Formulários]![frm_GeProg]![txtProgramador] & " * ") And ((tbl_GeMon.Baixa_Comercial) = True))"
        sSql = sSql & " ORDER BY tbl_GeMon.Codigo_Viagem;"
       
        Set rs = New ADODB.Recordset
        rs.CursorLocation = adUseClient
        rs.Open sSql, CurrentProject.connection, adOpenKeyset, adLockOptimistic
        Set Me.List_Os.Recordset = rs
       
        rs.Close
        Set rs = Nothing

    End Sub


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 12/12/2017, 17:15

    up Neutral


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    José Machado
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 13/09/2016

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  José Machado em 12/12/2017, 17:53

    Amigo...



    Mande uma copia do projeto, fica mais fácil ajudar

    Att
    José
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 12/12/2017, 21:29

    Segue em anexo


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    José Machado
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 13/09/2016

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  José Machado em 13/12/2017, 11:00

    Segue anexo

    Ja resolvido o problema da Query

    *quando usa-se ADODB o caracter que significa todos '*' tem de ser '%' e para DAO tem de ser '*'
    Anexos
    [Resolvido]Incluir consulta Access em SQL AttachmentListBoxADO_Ajustada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (80 Kb) Baixado 22 vez(es)
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 859
    Registrado : 09/11/2012

    [Resolvido]Incluir consulta Access em SQL Empty Re: [Resolvido]Incluir consulta Access em SQL

    Mensagem  =>Nois em 13/12/2017, 11:17

    cheers cheers Muito Obrigado pela ajuda!!! king

    Ficou Fino


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 24/10/2020, 13:07