Fórum Consultar duas tabelas #174865
13/08/2003
0
É o seguinte, pessoal, faço uma consulta na tabela ALUNOS como descrito
a seguir:
procedure TfmListaAlunos.BitBtnConsultarEnter(Sender: TObject);
var vConsSQL : String;
begin
Begin
With dmBoletim do
Begin
dmBoletim.qryConsAluno.Close;
dmBoletim.qryConsAluno.SQL.Clear;
vConsSQL := (´SELECT * FROM Alunos WHERE AnoLetivo= :pAnoLetivo´);
vConsSQL := vConsSQL+(´ AND Serie LIKE :pSerie AND Turma LIKE :pTurma´);
vConsSQL := vConsSQL+(´ AND Turno LIKE :pTurno AND Curso LIKE :pCurso´);
vConsSQL := vConsSQL+(´ AND Materia LIKE :pMateria´);
dmBoletim.qryConsAluno.SQL.Add(vConsSQL);
dmBoletim.qryConsAluno.Params[0].AsInteger := StrToInt(fmPrincipal.memoAno.Text);
dmBoletim.qryConsAluno.Params[1].AsString := cbSerie.Text;
dmBoletim.qryConsAluno.Params[2].AsString := cbTurma.Text;
dmBoletim.qryConsAluno.Params[3].AsString := cbTurno.Text;
dmBoletim.qryConsAluno.Params[4].AsString := cbCurso.Text;
dmBoletim.qryConsAluno.Params[5].AsString := edtMaterias.Text;
dmBoletim.qryConsAluno.Open;
End;
End;
end;
Agora quero consultar a tabela MATRICULAS onde o campo=matriculas
seja os mesmos da consultaAlunos onde tenho também o campo MATRICULAS. Como faço isso?
Uso Delphi6 e Paradox.
Desde já, agradeço a todos.
a seguir:
procedure TfmListaAlunos.BitBtnConsultarEnter(Sender: TObject);
var vConsSQL : String;
begin
Begin
With dmBoletim do
Begin
dmBoletim.qryConsAluno.Close;
dmBoletim.qryConsAluno.SQL.Clear;
vConsSQL := (´SELECT * FROM Alunos WHERE AnoLetivo= :pAnoLetivo´);
vConsSQL := vConsSQL+(´ AND Serie LIKE :pSerie AND Turma LIKE :pTurma´);
vConsSQL := vConsSQL+(´ AND Turno LIKE :pTurno AND Curso LIKE :pCurso´);
vConsSQL := vConsSQL+(´ AND Materia LIKE :pMateria´);
dmBoletim.qryConsAluno.SQL.Add(vConsSQL);
dmBoletim.qryConsAluno.Params[0].AsInteger := StrToInt(fmPrincipal.memoAno.Text);
dmBoletim.qryConsAluno.Params[1].AsString := cbSerie.Text;
dmBoletim.qryConsAluno.Params[2].AsString := cbTurma.Text;
dmBoletim.qryConsAluno.Params[3].AsString := cbTurno.Text;
dmBoletim.qryConsAluno.Params[4].AsString := cbCurso.Text;
dmBoletim.qryConsAluno.Params[5].AsString := edtMaterias.Text;
dmBoletim.qryConsAluno.Open;
End;
End;
end;
Agora quero consultar a tabela MATRICULAS onde o campo=matriculas
seja os mesmos da consultaAlunos onde tenho também o campo MATRICULAS. Como faço isso?
Uso Delphi6 e Paradox.
Desde já, agradeço a todos.
Candynho
Curtir tópico
+ 0
Responder
Posts
14/08/2003
Sakamuta
se vc ainda estiver precisando do comando me mande um email,
pq ai eu te passo com fazer a consulta em duas tabelas usando comandinho de SQl.
sakamuta@vergos.com.br
Falow
pq ai eu te passo com fazer a consulta em duas tabelas usando comandinho de SQl.
sakamuta@vergos.com.br
Falow
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)