FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
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 |
#2
|
||||
|
||||
Cita:
__________________
Progress Openedge https://abevoelker.com/progress_open...dered_harmful/ Delphi forever... |
#3
|
||||
|
||||
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
__________________
"No guardes nunca en la cabeza aquello que te quepa en un bolsillo." Albert Einstein |
#4
|
||||
|
||||
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: 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
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. Última edición por Lepe fecha: 06-03-2008 a las 15:32:35. Razón: Completar info |
#5
|
||||
|
||||
Error al pasar parámetros
Pues va a ser que no , 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
__________________
"No guardes nunca en la cabeza aquello que te quepa en un bolsillo." Albert Einstein |
#6
|
||||
|
||||
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#7
|
||||
|
||||
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í:
para después enviarle el parámetro al DataSet tal que así:
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
__________________
"No guardes nunca en la cabeza aquello que te quepa en un bolsillo." Albert Einstein |
#8
|
||||
|
||||
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.
__________________
Progress Openedge https://abevoelker.com/progress_open...dered_harmful/ Delphi forever... |
#9
|
|||
|
|||
Cita:
|
#10
|
||||
|
||||
¿Puedes ampliar la información, Delfino?
Cita:
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?
__________________
Progress Openedge https://abevoelker.com/progress_open...dered_harmful/ Delphi forever... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
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 |
|