Bueno, ya hice unas pruebas con el mentado UpdateSQL.
Imagino que nuestro amigo
mjjj ya tiene un Query, un DataSource y un DbGrid.
Agregamos un UpdateSQL a nuestra forma y modificamos las siguientes propiedades del Query
- CachedUpdate a True
- RequestLive a True
- UpDateObject es el UpdateSQL
Debemos crear la sentencia DeleteSQL en el UpdateSQL, puede hacerse automatico o manual, yo lo hice manualmente ya que solo me interesa el Delete y no InsertSQL ni ModifySQL.
Código SQL
[-]
delete from llamadaH
where Folio = :OLD_Folio
En un botón metemos este código
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
try
UpDateSQL1.Apply(ukDelete);
Query1.CommitUpdates;
except
ShowMessage('Algo oscuro paso');
end;
Query1.Close;
Query1.Open;
end;
Ejecutamos nuestro programa, aqui quiero comentar algo, aunque me manda error al borrar, la linea si es borrada, debo checar porque esta pasando eso, creo que por ahi lei un comentario de roman que decia que evitaba el uso del UpdateSQL porque le parecia el lado oscuro del VCL de Delphi
.
Bueno, pues seguimos viendo la mejor manera de resolver este problema, por el momento debo salir.
Salud OS.