ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Ajuda em consulta

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

grsn
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Mar 18, 2020 7:01 am

Ajuda em consulta

Mensagem por grsn »

Bom dia!
Como seria para fazer uma busca com sql em uma tabela e trazer os dados de uma subfolha de acordo com seu Id?
Atenciosamente


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2928
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda em consulta

Mensagem por webmaster »

Pode compartilhar a estrutura das tabelas? Imagem ou DDL serve


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
grsn
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Mar 18, 2020 7:01 am

Re: Ajuda em consulta

Mensagem por grsn »

Código que busca todas as contas da tabela
Public Sub CarregaListaContas()
Dim commSQL As String
Dim total As Long
Dim linha As Long


commSQL = "SELECT TB_Salas.SEQ_Conta, TB_Salas.Conta_Nome, TB_Salas.Tipo, TB_Salas.Professor, "
commSQL = commSQL & "TB_Salas.Saldo_Inicial, TB_Salas.Status_Conta, TB_Salas.Periodo FROM TB_Salas "
commSQL = commSQL & "WHERE ((TB_Salas.Status_Conta)=TRUE) "
commSQL = commSQL & "ORDER BY TB_Salas.Conta_Nome"

total = BuscarSQL(commSQL)

.empLista.Clear

For linha = 0 To total - 1

.empLista.AddItem Resultado(0, linha)
.empLista.List(linha, 1) = Resultado(1, linha)
.empLista.List(linha, 2) = Resultado(2, linha)
.empLista.List(linha, 3) = Resultado(3, linha)
.empLista.List(linha, 4) = Resultado(4, linha)
.empLista.List(linha, 5) = Resultado(5, linha)
.empLista.List(linha, 6) = Resultado(6, linha)

Next linha

End With


End Sub
Anexos
tabelas.JPG
tabelas.JPG (142 KiB) Exibido 166 vezes
tabela controle.JPG
tabela controle.JPG (85.3 KiB) Exibido 166 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 2928
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda em consulta

Mensagem por webmaster »

Colega,

Você tem familiaridade com a cláusula JOIN? Caso não, recomendo dar uma olhada aqui:

https://www.youtube.com/watch?v=HmFUrlQcCJ0


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder