forma correcta de acceder y guardar en firebird con ibx

[anubis]

Gracias por las respuestas,

Uso un generador asi que no asigno ningun id_producto a "mano".
Respecto a si posiciono bien, ya lo he resuelto, tuve que usar un locate para posicionarme.
Y, sobre sacar el id_producto despues de hacer post y commitretaining, no tengo más remedio que cerrar la tabla y volverla a abrir.

Esto es normal?. Cada vez, cerrar y abrir tablas?

[[AgustinOrtu]]

Yo utilizo la clausula RETURNING del INSERT INTO para que me devuelva el valor de Id que el generador le dio al registro que estoy insertado. De esta manera evitas problemas de concurrencia y hasta es mas eficiente, puesto que en una sola operacion insertas y obtenes el id que necesitas

[Casimiro Notevi]

Empezado por AgustinOrtu

Yo utilizo la clausula RETURNING del INSERT INTO para que me devuelva el valor de Id que el generador le dio al registro que estoy insertado. De esta manera evitas problemas de concurrencia y hasta es mas eficiente, puesto que en una sola operacion insertas y obtenes el id que necesitas

[ecfisa]

Hola.

Empezado por anubis

Uso un generador asi que no asigno ningun id_producto a "mano".

Entonces, para obtener el ID recién generado, sin alterar su valor:

Código SQL [-]
SELECT GEN_ID(G_TUTABLA, 0) AS NEXT_ID FROM RDB$DATABASE

Y para obtener el próximo ID ( incrementando su valor ):

Código SQL [-]
SELECT GEN_ID(G_TUTABLA, 1) AS NEXT_ID FROM RDB$DATABASE

Empezado por anubis

Y, sobre sacar el id_producto despues de hacer post y commitretaining, no tengo más remedio que cerrar la tabla y volverla a abrir.

No necesariamente. Podes obtener el último ID de forma directa, o haciéndote una función, independientemente de si la tabla está abierta o cerrada:

Código Delphi [-]
function Tmodulodatos.TuTablaGetLastID: Int64;
begin
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'SELECT GEN_ID(G_TUTABLA, 0) AS NEXT_ID FROM RDB$DATABASE';
  IBQuery1.Open;
  Result := IBQuery1.FieldByName('NEXT_ID').AsInteger;
  IBQuery1.Close;
end;

Y claro que también como te indica Agustín, al momento de realizar la inserción.

Saludos

[anubis]

Gracias.

Pues si, son opciones a tener en cuenta y las voy a probar .

De todas formas, el problema que tengo es que, despues de insertar un nuevo registro, si pido ese registro el, id_producto por ejemplo, me devuelve 0 y en el dbgrid me sale en blanco.
Lo soluciono cerrando la tabla y abriendola de nuevo.
Ya probe con refresh y tampoco me lo resuelve.

[ecfisa]

Hola.

Empezado por anubis

...
De todas formas, el problema que tengo es que, despues de insertar un nuevo registro, si pido ese registro el, id_producto por ejemplo, me devuelve 0 y en el dbgrid me sale en blanco.
Lo soluciono cerrando la tabla y abriendola de nuevo.
Ya probe con refresh y tampoco me lo resuelve.

Es que cuando Firebird incrementa el generador desde un trigger (vg. BEFORE INSERT) el DataSet no se entera del nuevo valor asignado hasta que lo cierres y abras nuevamente.

Una cosa que podes hacer es usar la propiedad GeneratorFielddel TIBDataSet, ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  DS: TIBDataSet;
begin
  DS := IBDataSet1;
  DS.GeneratorField.Generator   := 'G_TABLA';
  DS.GeneratorField.Field       := 'ID';
  DS.GeneratorField.IncrementBy := 1;
  DS.GeneratorField.ApplyEvent  := gamOnPost;
end;

(Configuré la propiedad en tiempo de ejecución para clarificar, pero podes hacerlo en tiempo de diseño desde el Inspector Object)


Hay dos cosas que olvidé mencionarte, la primera es que los componentes IBX para Delphi hasta la versión 7.8 inclusive, no soportan la cláusula RETURNING (no sé si es así en versiónes posteriores de IBX).

La segunda y mas importante, es que no uses el modo del mensaje #7

Código SQL [-]
SELECT MAX(ID_PRODUCTO) as ULTIMO_ID FROM PRODUCTO

para obtener el último identificador en un entorno multiusuario, por que fácilmente se podría generar incongruencia en los datos. Lo conveniente es solicitar la generación de un ID

Código SQL [-]
SELECT GEN_ID(G_PRODUCTO, 1) AS TENTATIVE_ID FROM RDB$DATABASE

, almacenarlo y luego utilizarlo (Commit) o bién descartar ese valor (Rollback).

Saludos

[anubis]

Muchas gracias eficsa,
Lo voy a checar, aunque ya me has aclarado bastante, sobretodo con la duda que llevo mucho tiempo sin resolver, que el dataset no se entera del id generado hasta que no cierre y vuelva a abrir.

Y, respecto al generador, usare tu solución , es entendible y ademas, llevo con esto mucho tiempo pero sigo siendo novato, incluso no creo que llegue a esa categoria por el tiempo .