Fórum Ajuda na Instrução Sql #347675

procedure TFrmRelPraticas.spbexiClick(Sender: TObject);
begin
   With DtmIza.QryPraticas do
     Begin
         Close;
         Sql.Clear;
         Sql.Add (´Select A.Aluno, A.Instrutor, A.Data, I.Aluno From Praticas A, ´ +
                  ´Praticas I Where A.Instrutor=´ + TxtCodIn.Text +
                  ´ AND where (Dat_Exa >= :d1) and (Dat_Exa <= :d2)´);
         ParambyName(´d1´).value  := FormatDateTime (´dd/mm/yyyy´ , StrToDate (TxtDtIni.Text));
         ParambyName(´d2´).value  := FormatDateTime (´dd/mm/yyyy´ , StrToDate (TxtDtfin.Text));
        Open;
     end;
    With DtmIza.QryRelAlu do
     Begin
       Close;
       Sql.Clear;
       Sql.Add(´SELECT * FROM Alunos´);
       Open;
     End ;

  With TFrmPraticaDiaria.Create(Application) do
     Try
       QuickRep1.Preview;
     Finally
       Free;
  End;
end;