Borrar datos con IBX y FB2.0

[[Delphius]]

Hola FGarcia,
No dejes que el SQL te quite el sueño.
El tema del DELETE y el asterisco es que se debe a dos cosas:
1. O Borras todo el registro o no borras nada. No puedes pedirle al motor que borre algunos campos. El DELETE afecta a todo el registro, por tanto no le interesa cuantos campos tenga.
2. Como corolario de 1, el estándar SQL definió que la sentencia DELETE se establezca del siguiente modo:

Código SQL [-]
DELETE FROM tabla WHERE ....

Saludos,

[[FGarcia]]

Delphius NO quiero borrar campos de un registro. Quiero borrar todos los registros que cumplan con la condicion de campo "bascula = indice"; es decir que si tengo el indice con valor 3 entonces todos los registros cuyo valor de campo (bascula) sea igual a 3 sean borrados de la tabla. El * definitivamente no lo reconoce el DELETE. La sentencia "DELETE FROM TABLA" borra perfectamente toda la tabla.

Hay algo que no comprendo en esto de firebird e IBX, con Access esto funciona bastante facil.

[[Delphius]]

A ver amigo, tal vez no me expliqué bien, el tema del asterisco en un DELETE es que no responde al estandar SQL. Una sentencia SQL del tipo DELETE no espera ningún asterisco, espera la orden que le informe cuantos o cuales registros debe borrar.

El asterisco sólo tiene sentido en un SELECT, puesto que se espere que regrese todos los campos que forman al registro.

Me extraña que tengas problemas, esta consulta SQL debería funcionarte:

Código SQL [-]
DELETE FROM TuTabla
WHERE TuCampo = :Parametro

Saludos,

[[FGarcia]]

Bueno, despues de andar reinventando el hilo negro y no se que carajos traia en la cabez esto quedo asi:

Código Delphi [-]
procedure TdmDatos.BorrarDatosBascula(indice: integer);
begin
  //Cambie el dataset por un query
   with qyApoyo do
    begin
      Close;
      SQL.Text := 'DELETE FROM DATOS WHERE BASCULA = :indice';
      Params.ParamByName ('indice').Value := indice;
      ExecSQL;  //Aqui usaba open 
    end;
 
  //Aqui actualizo la parte visual de los datos
  qyResumen.Close ;
  qyResumen.Open ;
  qyPlot.Close ;
  qyPlot.Open ;
end;

¡Gracias por la ayuda!