Fórum delete com sql #490978

procedure TFrmFrequencia.BtnExcluirClick(Sender: TObject);
Var
 PegaData, RecebeData : string;
 dia, mes, ano : Word;
 sSQL  : String;
begin
 PegaData := FormatDateTime('yyyymm', Edt_DataFrequencia.Date);
 DecodeDate(edt_datafrequencia.Date,ano,mes, dia);

 with DmDados.IBQryFrequencia do
  begin
    Close;
    sSQL  := SQL.Text;
    SQL.Clear;
    SQl.Add('DELETE FROM FREQUENCIA FREQUENCIA_FALTA_' + inttostr(dia));
    SQL.Add('where escola =:escola and codigo_Turma =:turma and codigo_disciplina =:disciplina and anomes =:data');
    ParamByName('ESCOLA').AsInteger     := DmDados.IBQryEscolaCODIGO.AsInteger;
    ParamByName('turma').AsInteger      := DmDados.IBQryTurmaCODIGO.AsInteger;
    ParamByName('disciplina').AsInteger := DmDados.IBQryDisciplinaCODIGO.AsInteger;
    ParamByName('data').AsString        := PegaData;
    ExecSQL;
    DmDados.IBTransaction.CommitRetaining;
    SQL.Text  := sSQL;
 end;