exclusao por periodo

Delphi

21/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
Lucas

Lucas

Curtidas 0

Melhor post

Anderson Gonçalves

Anderson Gonçalves

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');
GOSTEI 1

Mais Respostas

Alberto Mota

Alberto Mota

21/02/2020

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!'');
GOSTEI 0
Anderson Gonçalves

Anderson Gonçalves

21/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
GOSTEI 0
Lucas

Lucas

21/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');



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