mostrar los registros

[chona]

Hola amigos, tengo un problemita para mostrar los registros recién cargados. desde una aplicacion delphi 5 e interbase 6.Lo hago de la siguinete manera:
Legajo:TIBTable

Para cargar los registros:

Código Delphi [-]
datamodule.DataModule1.Legajo01.Open;
datamodule.DataModule1.Legajo01.Insert;
DataModule1.Legajo01.FieldByName('tipdoc_01').AsString:=tipo_1;
...
DataModule1.Legajo01.FieldByName('observ_01').AsString:=observ.Text;
DataModule1.Legajo01.Post;
DataModule1.Legajo01.Refresh;
DataModule1.IBTransaction1.CommitRetaining;
datamodule.DataModule1.Legajo01.Close;

//y despues muestro los datos con un IBQuery llamado existe:
 
procedure TForm1.numdocExit(Sender: TObject);//evento
var campo:string;
begin
  existe.Params[0].AsString:=tipdoc.Text;
  existe.Params[1].AsString:=numdoc.Text;
  existe.Active:=true;
  if existe.RecordCount<>0 then
    begin
 
      observ.Text:=existe.FieldByName('observ_01').AsString;
      ...
      nacion.Text:=decoder(existe.FieldByName('idnaci_01').AsString);
    end;
  end.
end;

Los pasos que hago son, primero cargo un registro, despues lo quiero listar con el evento y el existe.RecordCount me da cero, sindo que recién cargue el registro. Cierro la aplicacion y la vuelvo abrir, ejecuto el evento y ahí si el existe.RecordCount me da distinto de cero. ¿Que pasa con esto?

[StartKill]

Hola, en verdad no soy muy experto en esto y por lo datos que das podria deducir el problema.

El RecordCount te dice cuando registros hay no? humm, pero exactamente no es asi-hay que hacer alguna tarea con los registros,

Por ejemplo que tienes una grilla que solo permiten como primer plasmazo en pantalla de 4 registros el RecordCount te dira que solo hay 4, si navegas por la regilla un total de 40 registros el RecordCount te dara 40, entonces teniendo esto en cuenta: HAy que traajar con los registros (todos) si desas todos...

existe.last //si tipeas esta linea antes de contar..
if existe.RecordCount then

creo que con esto solucionas este problema.

Your friend

StartKill
Lima-Peru

[chona]

El problema es que no me refresca los datos recién insertado. para que me muestre estos datos (recien insertados) tengo que cerrar la aplicacion y volver a ejecutarla.

[Gydba]

Hola,

Fijáte el tipo de transacción que estás usando, de todas maneras no me fiaría del RecordCount.

Saludos!

[marto]

Wop!

Te recomiendo que encierres tus trocos de código entre tags [delphi], [sql] o [code] según corresponda, de esta manera quedará mucho más legible. Ésta vez te lo he modificado yo para que veas lo bien que queda

También te recomiendo que te leas la guia de estilo del club!

[chona]

Gracias amigos, pero ya lo solucioné. Les cuento por si le pasa a alguno, antes de activar la consulta ejecuté lo siguiente:

Código Delphi [-]
 
existe.Transaction.Active:=true;
existe.Transaction.Commit;

Gracias marto por la recomendación.