Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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: 9
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: 3114
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


grsn
Acabou de chegar
Acabou de chegar
Mensagens: 9
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 2792 vezes
tabela controle.JPG
tabela controle.JPG (85.3 KiB) Exibido 2792 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
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


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