Deletando por Data
23/03/2006
0
sdsDelete.DataSet.CommandText:=´ ´;
sdsDelete.DataSet.CommandText:=´DELETE FROM ESTFISIC WHERE FLAG_BAIXA = ´*´ AND DATA >= :DTINI AND DATA <= :DTFIM´;
sdsDelete.Params.ParamByName(´DTINI´).AsString:=edtDTINI.Text;
sdsDelete.Params.ParamByName(´DTFIM´).AsString:=edtDTFIM.Text;
sdsDelete.Execute;
Quando eu roda a aplicação, aparece o seguinte erro: Operador Invalido.
Abraço
Bertocco
Posts
23/03/2006
Paullsoftware
With IbQuery1 do begin Close; Sql.Clear; Sql.Text := ´Delete From Cadastro Where DataCad Between :Di And :Df´; ParamByName(´Di´).AsDate := dtp1.Date; ParamByName(´Df´).AsDate := dtp2.Date; ExecSql; end;
23/03/2006
Bertocco
With IbQuery1 do begin Close; Sql.Clear; Sql.Text := ´Delete From Cadastro Where DataCad Between :Di And :Df´; ParamByName(´Di´).AsDate := dtp1.Date; ParamByName(´Df´).AsDate := dtp2.Date; ExecSql; end;
Mais eu preciso desse campo: WHERE FLAG_BAIXA = ´*´
23/03/2006
Paullsoftware
Ele é do tipo VarChar então complemente assim:
With IbQuery1 do
begin
Close;
Sql.Clear;
Sql.Text := ´Delete From Cadastro Where DataCad Between :Di And :Df and Tipo=:t´;
ParamByName(´Di´).AsDate := dtp1.Date;
ParamByName(´Df´).AsDate := dtp2.Date;
ParamByName(´t´).AsString := Edit1.Text;//Onde pode ser substituido por ´*´
ExecSql;
end;
23/03/2006
Bertocco
Agradeço sua ajuda, muito obrigado
Clique aqui para fazer login e interagir na Comunidade :)