Fórum Como apagar várias linhas da tabela? #431095
16/12/2012
0
Estou tentanto apagar 13 linhas ao mesmo tempo, usando esse código, mas não funciona.
Osmar.
procedure TFrmFinanceiro.cxButton7Click(Sender: TObject);
begin
with DmDados.IBQueryApagar_Mensalidade do
begin
Close;
SQL.Clear;
SQl.Add('Delete from MENSALIDADE');
SQL.Add('where escola = :escola and matricula_mensalidade = :matricula_mensalidade');
SQL.Add('and ano_mensalidade = :ano_mensalidade');
ParamByName('ESCOLA').AsString := DmDados.IBQryMensalidadeESCOLA.AsString;
ParamByName('matricula_mensalidade').AsString := DmDados.IBQryMensalidadeMATRICULA_MENSALIDADE.AsString;
ParamByName('ano_mensalidade').AsString := DmDados.IBQryMensalidadeANO_MENSALIDADE.AsString;
DmDados.IBQueryApagar_Mensalidade.ExecSQL;
DmDados.IBQryMensalidade.close;
DmDados.IBQryMensalidade.open;
end;
end;
Osmar
Curtir tópico
+ 0Posts
16/12/2012
Claudia Nogueira
Gostei + 0
16/12/2012
Osmar
First chance exception at $7523C6E3. Exception class EIBClientError with message 'Database not assigned'. Process GE.exe (2720)
Gostei + 0
17/12/2012
Alan Souza
Gostei + 0
17/12/2012
Osmar
procedure TFrmFinanceiro.ButtonExcluir_MensalidadeClick(Sender: TObject);
begin
with QryExcuir_Mensalidade do
begin
Close;
SQL.Clear;
SQl.Add('Delete from MENSALIDADE');
SQL.Add('where escola = :escola and matricula_mensalidade = :matricula_mensalidade and ano_mensalidade = :ano_mensalidade');
ParamByName('ESCOLA').AsInteger := DmDados.IBQryAlunoESCOLA.AsInteger;
ParamByName('matricula_mensalidade').AsInteger := DmDados.IBQryAlunoMATRICULA.AsInteger;
ParamByName('ano_mensalidade').AsInteger := DmDados.IBQryMensalidadeANO_MENSALIDADE.AsInteger;
ExecSQL;
IBQryMensalidade.close;
IBQryMensalidade.open;
DmDados.IBQryAluno.Close;
DmDados.IBQryAluno.Open;
end;
end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)