FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
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 guardes nunca en la cabeza aquello que te quepa en un bolsillo." Albert Einstein |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Paso de parametros | Delphos | Varios | 4 | 18-01-2005 15:32:07 |
Paso de parametros | senpiterno | Varios | 1 | 11-04-2004 03:44:17 |
paso de parametros | gustavo2 | SQL | 7 | 16-01-2004 15:46:23 |
Paso de parametros | __cadetill | PHP | 2 | 12-08-2003 10:15:09 |
Paso de Parámetros | vinny | Varios | 1 | 29-05-2003 12:54:07 |
|