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

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [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;


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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é
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    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
    ListBoxADO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 9 vez(es)
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    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...






    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    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
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    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;


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    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
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    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;


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    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))


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Incluir consulta Access em SQL

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

    up Neutral


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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é
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Incluir consulta Access em SQL

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

    Segue em anexo


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    José Machado
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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
    ListBoxADO_Ajustada.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (80 Kb) Baixado 15 vez(es)
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Incluir consulta Access em SQL

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

    cheers cheers Muito Obrigado pela ajuda!!! king

    Ficou Fino


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: 15/11/2018, 04:46