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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ajuda em consulta
Moderador: joseA
Re: Ajuda em consulta
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
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 (142 KiB) Exibido 2889 vezes
-
- tabela controle.JPG (85.3 KiB) Exibido 2889 vezes
Re: Ajuda em consulta
Colega,
Você tem familiaridade com a cláusula JOIN? Caso não, recomendo dar uma olhada aqui:
https://www.youtube.com/watch?v=HmFUrlQcCJ0
Você tem familiaridade com a cláusula JOIN? Caso não, recomendo dar uma olhada aqui:
https://www.youtube.com/watch?v=HmFUrlQcCJ0