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

Hola

Código Delphi [-]
if not Modulo.IBTransaction1.InTransaction then
Modulo.IBTransaction1.StartTransaction;
with Modulo.IBAlquiler do begin
Close;
SelectSQL.Text:= 'Delete * FROM Alquiler Where ID_pelicula = :car';
ParamByName('car').AsTrimString := id.Text;
ExecSQL;
Modulo.IBTransaction1.CommitRetaining;
end;

Saludos

Yo no uso FB, pero como lo haces es válido siempre que las consultas sean editables. El problema puede ser que no tengas mas registros en la tabla. LA ventaja de hacerlo como lo haces es que si tienes ligada la consulta a un grid o algo similar éstos se actualizan reflejando el registro borrado.

Como lo hace Caral también funciona pero tendrás que refrescar cualquier componente enlazado a la tabla.

Hola
Estas demasiado exigente maestro.
Bueno, cambiemos ExecSQL por Open :D
Nos exigen demasiado a los novatos:D:D
Saludos

Hola Zakio14 como estas "alimentando" el IBdataSet (IBAlquiler) en tiempo de ejecucion debes poner también las otras sentencias SQL, es decir, te falta deleSQL, updateSQL y refreshSQL (que peude ser el mismo selectSQL), algo así como lo siguiente:

Código SQL [-]
size="3">    //El query para borrar:
    DeleteSQL.Add('delete FROM Alquiler ');
   size="3">Deletesize="3">SQL.Add('Where ID_pelicula = :car');
  
    //Actualizar:
size="3">   updateSQL.Add('Alquiler set campo1 =:campo1, campo2 = :campo2');
   size="3">updateSQL.Add('Where ID_pelicula = :car');

o mas Fácil aun, en tiempo de desarrollo solo pones el query que tu mismo hiciste en la propiedad selectSQL (de IBAlquiler) en el inspector de objetos, luego en el le das click derecho al componente visual y le seleccionas DataSet Editor y ahi das click en get Table Files, luego en key FIleds seleccionas ID_pelicula y en "Update Fields" seleccionas tod, al final das click en el boton generate SQL y ya....


Nota: Personalmente creo que es una mala practica ir poniendo querys en cualquier parte del código, prefiero llenar el modulo de componentes IBDataSet, IBQuery y IBScrips con sus correspondientes e inmutables querys donde solo mando parámetros, mas nunca (valga la redundancia) en otra unidad uso xxxSQL.add(´el cambio que sea´), ya que a la hora de mantener en el futuro dicho código será en extremo desgastante.

Pura vida foristas!

Gracias por sus valiosas respuestas!!

Gracias CARAL por tu respuesta tan acertada

y gracias RONPABLO por ese comentario que tomare mucho en cuenta


mil millones de gracias!!!!!!!!!