Eliminar registro
Pura vida foro!
Trabajo con Firebird
Tabla Aquiler
Campos Id_socio, id_pelicula, nombre_pelicula (No tienen llave primaria)
Tengo un Edti(Id)
Y un Boton(Eliminar) en este botón tengo el siguiente código
if not Modulo.IBTransaction1.InTransaction then
Modulo.IBTransaction1.StartTransaction;
with Modulo.IBAlquiler do begin
Close;
SelectSQL.Clear;
SelectSQL.Add('SELECT * FROM Alquiler ');
SelectSQL.Add('Where ID_pelicula = :car');
ParamByName('car').AsTrimString := id.Text;
open;
Delete;
Refresh;
Close;
Modulo.IBTransaction1.CommitRetaining;
end;
La cosa es que me elimina todo lo que tengo en la tabla y no solo el registro que quiero.
Alguien me puede decir que estoy haciendo mal o algún comentario que me ayude hacer que funcione...
Se los agradezco
Mil millones de gracias
|