GARANTIR DESCONTO

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.


Candynho

Candynho

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar