Paso de parámetros a TDataset
 

Hola a todos, uso Delphi 5, Firebird 1.5 y componentes IBX, tengo el siguiente código:

if Column.Title.Caption = 'Precio' then begin
// Rellena el query
dmDatos.dsArticulos.Close;
dmDatos.dsArticulos.ModifySQL.Clear;
dmDatos.dsArticulos.ModifySQL.Add('update ARTICULOS set PRECIO = :Precio where REFERENCIA = :Referencia');
// Pide el nuevo precio
sPrecio:= InputBox('Nuevo precio', 'Nuevo precio', '0');
try
// Modifica el precio
dPrecio:= StrToFloat(sPrecio);
if dPrecio> 0 then begin
dmDatos.dsArticulos.Params.ByName('Precio').AsFloat := dPrecio; // <---- AQUÍ FALLA
dmDatos.dsArticulos.Params.ByName('Referencia').AsString:= dmDatos.dsArticulosREFERENCIA.Value;
dmDatos.dsArticulos.Open;
end;
except
raise Exception.CreateFmt('El nuevo precio no es correcto',[]);
end;

al ejecutarlo me da el error 'Field "Precio" not found', es evidente que el campo Precio si que existe en la tabla.

El caso es que en todos los sitios que busco la forma de pasar los parámetros es:

dsArticulos.ParamByName('Referencia').AsString := 'cadena';

pero a mi me dice que no tiene ese procedimiento, solo puedo usar la forma:

dsArticulos.Params.ByName('Referencia').AsString := 'cadena';

Agradeceré cualquier comentario al respecto.

Un saludo

¿No sería más sencillo usar un TIBQuery en vez del TIBDataSet?

Código Delphi [-]
if Column.Title.Caption = 'Precio' 
then begin   
  dmDatos.dsArticulosQuery.Close;   
  dmDatos.dsArticulosQuery.SQL.Clear;   
  dmDatos.dsArticulosQuery.SQL.Add('update ARTICULOS set PRECIO = :Precio where REFERENCIA = :Referencia');
// Pide el nuevo precio
  sPrecio:= InputBox('Nuevo precio', 'Nuevo precio', '0');
  try  // Modifica el precio
    dPrecio:= StrToFloat(sPrecio);
    if dPrecio> 0 
    then begin       
      dmDatos.dsArticulosQuery.ParamByName('Precio').AsFloat := dPrecio; 
      dmDatos.dsArticulosQuery.ParamByName('Referencia').AsString := 
        dmDatos.dsArticulosREFERENCIA.Value;
      dmDatos.dsArticulosQuery.Open;
    end;
  except     
    raise Exception.CreateFmt('El nuevo precio no es correcto',[]);
  end;
end;

TIBQuery vs TIBDataset
 

En la documentación del firebird, se indica que el uso de TIBQuery está desaconsejado, dado que solo se incorpora por compatibilidad.

Prefiero sufrir un poco al inicio de mi conocimiento del tema (llevo años con paradox, pero solo un par de semanas con firebird), y prepararme para una hipotética desaparición del componente.

De todas formas, he encontrado un hilo:

Problema con ibDataSet y parametros

y voy a probar a trabajarlo desde ahí.

Gracias de todas formas por tu interés.

Un saludo

Creo te estas complicando la vida. Es normal cuando se empieza con Firebird, aquí la solución:

Uso del TIbDataset (todo en tiempo de diseño !!):
- Asignar la Base de datos y transaction
- Asignar el Select "select * from tabla where claveprimaria = :clave"
- Usar el evento beforeOpen del TibDataset y poner:
ibdataset1.parambyname('clave').Asxxxx := lo que sea;
- Boton derecho sobre el TIbdataset y "Dataset Editor"
Saldrá una ventana con todos los campos de la tabla, pulsa los 3 botones que tienes a la izquierda (no hace falta encomillar los nombres de los campos si no usas espacios en dichos nombres.
- por curiosidad, mira las sqls que propone el componente (insert sql, delete, update, etc)
-Acepta la ventana.

Ahora el código:

Código Delphi [-]
dmDatos.dsArticulos.Open;
dmDatos.dsArtículos.Edit;
dmDatos.dsArticulos.FieldByName('Referencia').AsString:= dmDatos.dsArticulosREFERENCIA.Value;
dmDatos.dsArticulos.Post;
---- hacer el commit o commitRetaining ---
dmDatos.Close;
dmDAtos.Open; // para ver los cambios

Las 3 últimas líneas quizás no te hagan falta, si tiene el objeto transaction configurado para que automáticamente haga el commitRetainig después del Post, suprime las 3 últimas líneas

Como ves he usado un select que solo trae un registro a la vez, se supone es lo más efiiciente y como debería hacerse. En caso de usar un "Select * from tabla order by nombre", no hace falta usar el evento BeforeOpen, ni tampoco pasar parámetros.

Saludos

Error al pasar parámetros
 

Pues va a ser que no :mad:, sigo teniendo el mismo problema, me dice que no encuentra el campo REFERENCIA.

¿Alguien tiene código donde se realice una modificación de un tabla firebird con componentes IBX, que esté dispuesto a mostrármelo o enviármelo para ver como se hace?

de todas formas, respecto a esto:

- Boton derecho sobre el TIbdataset y "Dataset Editor"
Saldrá una ventana con todos los campos de la tabla, pulsa los 3 botones que tienes a la izquierda (no hace falta encomillar los nombres de los campos si no usas espacios en dichos nombres.
- por curiosidad, mira las sqls que propone el componente (insert sql, delete, update, etc)
-Acepta la ventana.


a mi no me aparece esa ventana, solo un StringList editor, y tampoco tengo el procedimiento ParamByName.

Lo digo por si a alguien le sirve de referencia.

Saludos

Estoy usando Delphi 7 y los IBX que trae instalados, puedo asegurarte que está ahí esa ventana.... pero no está en el inspector de objetos !!.

En tu Form, tendrás puesto el IBDataset1, pues selecciona el IBDataset (como si fueras a moverlo de sitio en la ventana) y después botón derecho sobre él. Tendrás varias opciones en el popup que sale:
- Fields editor
- Dataset Editor <<<<<<<<< este es el que debes usar.

Esta es la forma de construir todas las sqls (UpdateSql, DeleteSql, InsertSql, RefreshSql) de golpe y en tiempo de diseño.

Como la opción está un poco escondida, no se suele ver.


Saludos

Error en el paso de parámatros
 

Gracias por tu interés, pero no te habrás dado cuenta que en mi primer mensaje decía que uso Delphi 5, quizás por eso no me aparece el Dataset Editor ;)

La gran duda es el paso de parámetros.

Entiendo que debo establecer el procedimiento ModifySQL tal que así:

Código Delphi [-]
dmDatos.dsArticulos.ModifySQL.Add('update ARTICULOS set PRECIO = :Precio where REFERENCIA = :Referencia');

para después enviarle el parámetro al DataSet tal que así:

Código Delphi [-]
dmDatos.dsArticulos.Params.ByName('Referencia').AsString:= dmDatos.dsArticulosREFERENCIA.Value;
dmDatos.dsArticulos.Params.ByName('Precio').AsFloat := dPrecio;

pero no hay nada que hacer, al llegar al paso del parámetro Referencia se para y me dice que no existe ese campo.

Saludos a todos

Creo recordar que el en un TIBDataSet, solo "entiende" como parámetros
los que tenga en su propiedad SelectSQL, por eso te propuse usar un TIBQuery.

Tambien puedes usar un TIBSQL, que es un componente mucho menos "pesado" que el TIBDataSet
e incluso te permite ejecutar código DDL.

Asegurate de tener mayusculas a los parametros, y tb en el codigo, eso es un problema de los IBX, con los MDO esto no pasa ;)

¿Puedes ampliar la información, Delfino?
 

¿De qué problema hablas, delfino?
Hasta ahora no he tenido ninguno de este tipo...claro que la opción "DataSet Editor" me pone todos los nombres de campos en mayúsculas...
No tenia ni idea de que hubiese algún problema con IBX y el paso de parámetros...
¿Puedes ampliar la información?