[Resolvido]Incluir consulta Access em SQL

Bom dia!

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

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;

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é

Bom dia Nois,

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

Att,


Alexandre

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

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

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;

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

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;


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

Garrei so no Where....

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

up

Amigo...



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

Att
José

Segue em anexo

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 '*'

Muito Obrigado pela ajuda!!!

Ficou Fino