Borrar datos con IBX y FB2.0

[[FGarcia]]

Hola!!

En el dataset editor (IBDataSet) tengo esta sentencia para DeleteSQL:

Código Delphi [-]
delete from DATOS
where
  CONSECUTIVO = :OLD_CONSECUTIVO

Pero en lo real quiero hacer esto:

Código Delphi [-]
procedure TdmDatos.BorrarDatos(indice: integer);
begin
  with dstDatos  do
    begin
      DeleteSQL.Clear;
      if (indice < 4) then
        begin
          DeleteSQL.Text := 'DELETE FROM Datos WHERE Bascula = :Borrar';
          ParamByName('Borrar').Value := indice;
        end
      else
        DeleteSQL.text := 'DELETE FROM Datos' ;
      ExecSQL;
    end;
end;

Me da un mensaje de Horror que dice:

---------------------------
Debugger Exception Notification
---------------------------
Project Captura.exe raised exception class EIBClientError with message 'Field "Borrar" not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Es decir que no encuentra el campo "Borrar" y se supone que estoy pasando un parametro llamado "Borrar".

¿Que estoy haciendo mal?

[lbuelvas]

Hola, hice la siguiente prueba con una tabla de mi base de datos y me funcionó bien. Mi base de datos es Firebird 1.5.5. Lo diferente es que utilicé un objeto TIBQuery en vez de un TIBDataset, este ultimo objeto lo utilizo para navegación y manipulacion de registros.

Me parece que es mas apropiado un TIBQuery o incluso es mejor un TIBSQL pues estas lanzando eliminaciones de registros.

Código Delphi [-]
    for i := 10000 to 10005 do
    begin
      IBQuery1.SQL.Clear;
      if (i < 10005) then
        begin
          IBQuery1.SQL.Text := 'DELETE FROM RESOLUCION WHERE ID = :Borrar';
          IBQuery1.ParamByName('Borrar').Value := I;
        end
      else
        IBQuery1.SQL.Text := 'DELETE FROM RESOLUCION WHERE ID = 1000000' ;
      IBQuery1.ExecSQL;
    end;

[[FGarcia]]

Gracias por tu respuesta Luis Fernando, lo voy a probar aunque aun me queda la duda, pues se supone que El IBDataset es un producto de dos componentes IBX como son el el IBQuery y el IBUpdateSql y deberia tener la capacidad de hacer lo que intento, en fin se me hace que ¡¡he vivido engañado!!

[[FGarcia]]

pues no!
Algo anda mal, no me funciona. Tal vez estoy mal en el concepto de lo que quiero hacer.

Tengo una tabla:

ID - Bascula - campoX - CampoY
=========================
1 1 xx yy
2 2 xx yy
3 3 xx yy
4 4 xx yy
||
||
||
1150 1 xx yy
1151 2 xx yy
1152 3 xx yy
1153 4 xx yy

Lo que necesito es borrar todos los registros que cumplan la condicion del indice (1 o 2 o 3 o 4) de la consulta por eso

Código SQL [-]
WHERE BASCULA = :BORRAR
ParambyName('BORRAR') = indice

¿?¿? NPI

[lbuelvas]

Lo que pasa es que los TIBDataset exigen que exista una clausula select, las demas propiedades SQL son opcionales y creo que tu no utilizas el select.

Me da la impresion que por esos lados puede ser el problema, porque en tu tabla no existe un campo 'Borrar'.

Bueno estas con Firebird 2 y yo no he trabajado con esa version. Porque no pruebas con el nombre del parametro en mayusculas 'BORRAR'.

La otra posibilidad aunque queda algo feo es cambiar tu segmento de codigo de manera que no utilices parametros, asi:

Código Delphi [-]
procedure TdmDatos.BorrarDatos(indice: integer);
begin
  with dstDatos  do
    begin
      DeleteSQL.Clear;
      if (indice < 4) then
        begin
          DeleteSQL.Text := 'DELETE FROM Datos WHERE Bascula = ' + IntToStr(indice);
        end
      else
        DeleteSQL.text := 'DELETE FROM Datos' ;
      ExecSQL;
    end;
end;

Si no te funciona porque no utilizas un procedimiento almacenado.

[[Lepe]]

¡¡ quieto parao !!

Me parece que estás complicando la cosa mucho, lo simple es esto:
- En el ibdataset, escribe el selectSQL, típico: select * from tabla
- ahora clic derecho en el tibdataset y elige la opción "dataset editor"
- Obtienes una ventana donde puedes elegir la tabla y los campos, por defecto te aparece la sql de select que escribiste antes y en esta ventana:

- pulsa en el botón "select primary keys" y los 3 botones que tienes abajo.
- cambia de pestaña y verás que las sqls de borrado, inserción y modificación se han escrito correctamente.
- Acepta la pantalla.

- configura un dbnavigator que apunte a ese datasource
- Listo, ya puedes borrar registros, añadir, modificar y seleccionar.

Las SQLs ya no tienes que tocarlas para nada, ni tampoco pasarle parámetros, se usará el registro que esté en pantalla (obviamente moviéndote con el dbnavigator).

Edito:
Aunque puedes configurar la propiedad DeleteSQL para borrar un grupo de registros, no lo considero oportuno, el DELETESQL es para el registro que se encuentre activo. Si necesitas borrar un grupo de registros, usa un Query o un procedimiento almacenado.

Saludos