Recuperar el valor de Returning
Buenas, tengo lo siguiente:
Hasta aquí todo bien, resulta que quiero recuperar el valor que viene en Returning y no se como hacerlo. ¿Alguna sugerencia? Uso Delphi 7, Firebird 2.1, MDO version 0.8.8. Gracias. |
Esto dice en la página 49 de Firebird 2.1 Release Notes
Rules for Using a RETURNING Clause ... 2 - The presence of the RETURNING clause causes an INSERT statement to be described by the API as isc_info_sql_stmt_exec_procedure rather than isc_info_sql_stmt_insert. Existing connectivity drivers should already be capable of supporting this feature without special alterations. Creo entender que los componentes que estamos usando deberían de alguna manera capturar el dato que viene en Returning sin demasiado problema... la pregunta es como. Bueno, espero que aporte algo esto. Santiago. |
procedure insert_con_returning(query:TMDOQuery);
Código:
var tVardelTipodelField: tipo; begin with query do begin Close; sql.Clear; SQL.Add('Insert into familias (cod_familia, fecha_ingreso_familia, estado_familia) '); sql.Add('Select gen_id(Select ibe$log, 1), current_timestamp, '); sql.Add('''A'' From rdb$database '); sql.Add('returning cod_familia '); try ExecSQL; Código:
tVardelTipodelField := FieldbyName('cod_familia').as....; raise; end; end; end; |
Hola Combat
Al hacer lo que sugieres me sale el siguiente error: query: Field 'cod_familia' not found |
bueno y si en lugar de execsql se usa open?
|
Usando Open me dice lo mismo: query: Field 'cod_familia' not found.
|
Ya le encontré la vuelta... un segundo por favor que ya lo publico...
|
Bueno la cosa viene así:
Pongo el código y luego lo explico, aunque es muy claro.
En primer lugar debemos usar un TMDOSQL en lugar de un TMDOQuery, la consulta va igual, asignamos los parámetros de entrada con Params.ByName. Hacemos ExecQuery en lugar de ExecSQL y recuperamos el valor a través de FieldByName... Bueno esto funcionó bien. Abajo pongo un Message para ver en la pantalla el id devuelto. Con eso podemos recuperar de una sola vuelta los valores generados por gen_id sin tener que hacer cosas raras. Espero haber ayudado, gracias a todos por los aportes. Saludos. |
Hola Amigos como estan.. Estoy tratando de Recuperar el valor del returning.
Me emocione al ver que lo han logrado con el MDO. Pero yo utilizo DELPHI XE y Firebird 2.5 y al parecer no existen mas los componentes MDO para el XE de delphi.. alguna sugerencia? he buscado mucho y no lo encuentro...:confused: |
Quizás puedas adaptarlos fácilmente. En todo caso podrás usar IBX que viene con delphi, son casi iguales, pero algo más avanzados.
|
Estoy peleando con los DBX pero no le encuentro el lado aún.
Si encuentro una solución la publico |
De todas formas he dicho IBX, no DBX.
|
Ok probare con los IBX :D
|
Cita:
|
Cita:
|
hola todo mal con IBDataBase
Cuando intento conectarme tengo los siguientes mensajes. Si coloco en el DatabaseName = C:\BD\bd_local.FDB Me lanza el siguiente mensaje "Unavailable database" En cambio si coloco de esta manera = 127.0.0.1:C:\BD\bd_local.FDB me lanza lo siguiente "connection rejected by remote interface." Lo curioso es que en el mismo DM tengo un TSQLConnetion el cual apunta a la misma BD y se conecta sin ningún problema. Les ha pasado esto alguna vez? |
Poco podemos hacer si no explicas algo más, pones código, etc.
Yo diría que estás conectando cuando ya está conectada. |
Lo que pasa es que no hay mucho codigo mas que los componentes en el IDE.
Solo inserte el componente IBDataBase en mi DataModule Le coloque la ruta de mi BD, el usuario y contraseña y al darle TRUE en la propiedad connected del IBDataBase ya tira ese error. |
|
Muchas gracias Casimiro por los enlaces, los he leído pero de igual manera era lo que yo ya estaba haciendo.
Cuando seleccione Local me sale un mensaje luego de apretar el test. Y cuando selecciono remote me da el otro mensaje de error. No creo que sea mi gds32.dll ni el fbclient.dll por que en el mismo DataModule tengo un TSqlConnetion que apunta a la misma base de datos en los parámetros y se conecta perfectamente, como también me conecto desde el IBExpert. Es por eso que me parece muy raro que me cree problemas el IBDatabase que estoy intentando conectar. Cita:
|
La franja horaria es GMT +2. Ahora son las 16:05:50. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi