Ver Mensaje Individual
  #1  
Antiguo 26-07-2004
chona chona is offline
Miembro
 
Registrado: abr 2004
Posts: 57
Reputación: 21
chona Va por buen camino
Question mostrar los registros

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?

Última edición por marto fecha: 27-07-2004 a las 11:02:17.
Responder Con Cita