MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Procurar valor na tabela no Access usando o SQL

    avatar
    Jadiel
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 05/12/2017

    Procurar valor na tabela no Access usando o SQL Empty Procurar valor na tabela no Access usando o SQL

    Mensagem  Jadiel 5/12/2017, 10:51

    Gostaria de saber como resolver o problema abaixo:

    No SQL do access faço conexão com um "Servidor" nele eu tenho algumas informações sendo uma delas a "Chave" das pessoas que vem do servidor e salva na tabela "X" junto com outras informações, porém não tenho o nome dessas pessoas no "Servidor" e criei a tabela "Z" com o nome das pessoas e do lado tenha a chave de cada uma.

    Como faço do SQL para verificar a "Chave" que vem do servidor e procurar na tabela "Z" de qual pessoa pertence a "Chave" e trazer na tabela "X" o nome na coluna "Nome"?

    ________________________________________________________________________________________________________________________________
    A informações que tem no SQL abaixo:
    ________________________________________________________________________________________________________________________________
    Sub Dados()
    Conexao
    'Tabela = "Servidor"
    datax = Format(Now, "dd/0" & Form_Atualizar.lbl_Mes.Caption & "/yyyy")
    UltimoDia (datax)
    FimMes = CDate("31/12/2017")
    FimMes = Format(FimMes, "yyyy-mm-dd 23:59:59")

       Set rsADO = New ADODB.Recordset
           SQL = "SELECT ""Servidor"".db_Chave, ""Servidor"".""Data-de-Criação"", " & _
           ""Servidor"".db_produto, ""Servidor"".db_NP, " & _
           "FROM ""Servidor"" ""Servidor"" WHERE (""Servidor""."Produto")
           rsADO.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
           
     
               Do While Not rsADO.EOF
           
                   Set db = CurrentDb()
                       LocalSQL = "SELECT * FROM [Tb_X] " & _
                       "WHERE db_Chave = " & rsADO!db_Chave & " AND [Data-de-Criação]= #" & Format(rsADO("Data-de-Criação"), "mm/dd/yyyy hh🇲🇲ss") & "#"
                       Set sr = db.OpenRecordset(LocalSQL)
                       
                        If sr.EOF Then
                           sr.AddNew
                       Else
                           sr.Edit
                       End If
                   
                           sr!Chave = "" & rsADO!("db_Chave")
                           sr("Data-de-Criação") = "" & Format(rsADO("Data-de-Criação"), "dd/mm/yyyy hh🇲🇲ss")
                           sr!Chave = "" & rsADO!db_ChaveAnalista
                           sr!Produto = "" & rsADO("db_Produto")

                                                                                             
                           sr.Update
           
                   rsADO.MoveNext
                   db.Close
                   Set sr = Nothing
                   Set db = Nothing
               Loop
               
               
           
           cn.Close
           Set rsADO = Nothing
           Set cn = Nothing
           Exit Sub
           
    End Sub

    ________________________________________________________________________________________________________________________________
    Informações da tabela:
    ________________________________________________________________________________________________________________________________
    Tb_X

    Chave|Produto|Data-criação|Nome
    B |45fg44|05/12/2017|
    A |45a544|05/12/2017|
    D |4545d4|05/12/2017|
    B |45s5a4|05/12/2017|


    Tb_Z

    Chave|Nome
    A |Pedro
    B |João
    C |Maria
    D |Francisco
    ________________________________________________________________________________________________________________________________
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Procurar valor na tabela no Access usando o SQL Empty Re: Procurar valor na tabela no Access usando o SQL

    Mensagem  Alexandre Neves 5/12/2017, 11:57

    Boa tarde, e bem-vindo ao fórum
    Aqui tem consulta de às 2 tabelas
    SELECT * FROM Tb_X LEFT JOIN Tb_Z ON Tb_X.Chave=Tb_Z.Chave


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 21/11/2024, 15:17