Erro ao deletar, msg de erro

Delphi

21/04/2016

Precisando de uma luz.


procedure TFrmEntrada.BitBtn1Click(Sender: TObject); 
begin 
 if application.messagebox(Pchar('Deseja Excluir todos os dados desta Tabela?'), Pchar('Excluir Dados'+Self.Caption), MB_ICONQUESTION 
     + MB_YESNO) = IDYES then 
 begin 

  with DmControl.dSetPrincipal do 
   begin 
      Close; 
      SelectSQL.Add('TRUNCATE TABLE PRINCIPAL'); 
   try 
      ExecSQL; 
      SelectSQL.Add('select * from PRINCIPAL'); 
      open; 
   except 
   on E:Exception do 
   begin 
      ShowMessage('Falha na Exclusão dos Dados!'#13#10' Mensagem: '+E.Message); 
   end; 
  end; 
 end; 
end; 
end; 

end.


Mais esse:


procedure TFrmEntrada.BitBtn1Click(Sender: TObject); 
begin 
 if application.messagebox(Pchar('Deseja Excluir todos os dados desta Tabela?'), Pchar('Excluir Dados'+Self.Caption), MB_ICONQUESTION 
     + MB_YESNO) = IDYES then 
 begin 

  with DmControl.dSetPrincipal do 
   begin 
      Close; 
      SelectSQL.Add('DELETE FROM PRINCIPAL'); 
   try 
      ExecSQL; 
      SelectSQL.Add('select * from PRINCIPAL'); 
      open; 
   except 
   on E:Exception do 
   begin 
      ShowMessage('Falha na Exclusão dos Dados!'#13#10' Mensagem: '+E.Message); 
   end; 
  end; 
 end; 
end; 
end; 

end.


Mensagem de erro

Menssagem:Dynamic SQL Error
SQL erro code=-104
Token unknown - line2, column 10
TABLE ou DELETE


Estou utilizando o IBDataSet da Paleta Interbase
Valdenir Netto

Valdenir Netto

Curtidas 0

Respostas

Bin Laden

Bin Laden

21/04/2016

tente limpar o dataset antes

Close;
Clear;
SelectSQL.Add('DELETE FROM PRINCIPAL');
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

21/04/2016

Você está adicionando os comandos continuamente. Precisa "zerar" o comando. Algo assim:

  with DmControl.dSetPrincipal do
  begin
      Close;
      SelectSQL.Text := 'DELETE FROM PRINCIPAL';
      try
         ExecSQL;
         SelectSQL.Text := 'select * from PRINCIPAL';
         open;
      except
         on E:Exception do
         begin
            ShowMessage('Falha na Exclusão dos Dados!'#13#10' Mensagem: '+E.Message);
         end;
      end;
   end;
GOSTEI 0
Valdenir Netto

Valdenir Netto

21/04/2016

É somente isso mesmo?
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

21/04/2016

Como você está fazendo duas operações seguidas com o mesmo dataset, experimente fechá-lo (close) entre estas operações:

with DmControl.dSetPrincipal do
begin
    Close;
    SelectSQL.Text := 'DELETE FROM PRINCIPAL';
    try
       ExecSQL;
       Close;
       SelectSQL.Text := 'select * from PRINCIPAL';
       open;
    except
       on E:Exception do
       begin
          ShowMessage('Falha na Exclusão dos Dados!'#13#10' Mensagem: '+E.Message);
       end;
    end;
 end;
GOSTEI 0
Valdenir Netto

Valdenir Netto

21/04/2016

Certinho Natanael.

Obrigado Bin Laden, Natanael.
GOSTEI 0
Valdenir Netto

Valdenir Netto

21/04/2016

Certinho Natanael.

Obrigado Bin Laden, Natanael.
GOSTEI 0
Valdenir Netto

Valdenir Netto

21/04/2016

Podem fechar o post.
GOSTEI 0
POSTAR