Tibquery !!!

[mantraxer21]

Estimados:

Trabajo con las TibQuery + UpdateSql, en el Create del formulario coloco lo siguiente:

Código Delphi [-]
query.active:=true;

el query en tiempo diseño está active = false, está conectada la base de datos y funciona todo la verdad muy bien, el tema es que cuando creo un nuevo registro, me muestra en los campos "TBEdit" el último registro insertado en la bd.

Cómo puedo hacer para que ello no ocurra al momento de crear un registro nuevo no me aparezca el ultimo registro insertado?

En el evento onClick del boton nuevo tengo:

Código Delphi [-]
query.Close;
query.Open;
query.Append;

En el guardar tengo

Código Delphi [-]
query.Post;
query.ApplyUpdates;
data_module.Transaccion.CommitRetaining;

[[Caral]]

Hola
Y cual registro quieres ver?.
Un DBEdit mostrara los registros siempre y cuando este el query activo.
Si no quieres que se vea nada, cierra el query, si quieres que se vea el primero, ponlo en first y asi sucesivamente.
Seguro no entiendo bien el problema, tal vez puedas ampliar mas lo que necesitas.
Saludos

[ecfisa]

Hola mantraxer21.

Un consejo, trata de que el título sea más descriptivo de tu problema así más gente se acercará a leerlo. guía de estilo .

Si no querés que aparezca el último registro insertado me insinúa que querés seguir añadiendo registros...
Y para que no aparezca el último registro insertado, sólo tenés que agregar una línea al código donde guardas:

Código Delphi [-]
  query.Post;
  query.ApplyUpdates;
  data_module.Transaccion.CommitRetaining;
  query.Append;  // <-

En el código del botón nuevo, no es necesario abrir y cerrar el IBQuery para realizar:

Código Delphi [-]
  query.Append;

Saludos.

[ecfisa]

Algo que me olvidé de mencionarte es que usando un TIBDataSet, tenés aunada la funcionalidad de los componentes
TIBQuery y TIBUpdateSql y simplificas el código.


Un saludo.