Fórum exclusao por periodo #608310

21/02/2020

0

Delphi

tenho uma tela e nela quero fazer uma exclusão no banco de dados por periodo estou usando sqlserver
e no delphi o componente adoquery
Lucas

Lucas

Responder

Post mais votado

26/02/2020

tenho uma tela e nela quero fazer uma exclusão no banco de dados por periodo estou usando sqlserver
e no delphi o componente adoquery



Acho que você quer intervalo de datas então vou colocar aqui

With ADOQuery1 do
begin
close;
sql.clear;
sql.Add('Select * from TABELA');
sql.Add('Where DATA between :inicio and :final');
Parameters.ParamByName('Inicio').Value := StrToDate(EditDataInicio.Text);
Parameters.ParamByName('Inicio').Value := StrToDate(EditDataInicio.Text);
Open;
end;

Qualquer coisa me chama no skype
anderson@case13.com.br



No seu caso é um delete então você adapta

SQL.Add('Delete From Tabela');
SQL.Add('Where DATA between :INICIO and :FINAL');

Anderson Gonçalves

Anderson Gonçalves
Responder

Gostei + 1

Mais Posts

22/02/2020

Alberto Mota

Espero que ajude.
-----------------
AdoQuery2.sql.Clear;
AdoQuery2.sql.Add(''Delete from TblMovimentacao where dtproc =:a1'');
AdoQuery2.Parameters.ParamByName(''a1'').Value := MaskEdit3.text;
AdoQuery2.execSql;
DadosM.Close;
DadosM.open;
showmessage(''comando executado com sucesso!'');
Responder

Gostei + 0

26/02/2020

Anderson Gonçalves

tenho uma tela e nela quero fazer uma exclusão no banco de dados por periodo estou usando sqlserver
e no delphi o componente adoquery



Acho que você quer intervalo de datas então vou colocar aqui

With ADOQuery1 do
begin
close;
sql.clear;
sql.Add('Select * from TABELA');
sql.Add('Where DATA between :inicio and :final');
Parameters.ParamByName('Inicio').Value := StrToDate(EditDataInicio.Text);
Parameters.ParamByName('Inicio').Value := StrToDate(EditDataInicio.Text);
Open;
end;

Qualquer coisa me chama no skype
anderson@case13.com.br
Responder

Gostei + 0

26/02/2020

Lucas

tenho uma tela e nela quero fazer uma exclusão no banco de dados por periodo estou usando sqlserver
e no delphi o componente adoquery



Acho que você quer intervalo de datas então vou colocar aqui

With ADOQuery1 do
begin
close;
sql.clear;
sql.Add('Select * from TABELA');
sql.Add('Where DATA between :inicio and :final');
Parameters.ParamByName('Inicio').Value := StrToDate(EditDataInicio.Text);
Parameters.ParamByName('Inicio').Value := StrToDate(EditDataInicio.Text);
Open;
end;

Qualquer coisa me chama no skype
anderson@case13.com.br



No seu caso é um delete então você adapta

SQL.Add('Delete From Tabela');
SQL.Add('Where DATA between :INICIO and :FINAL');



deu certo porem tenho uma pergunta,tem como mostrar quantos registro foram apagados em um messagedlg ?
Responder

Gostei + 0

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

Aceitar