Hola RoyTan.
Seguramente estés utilizando el mismo
TIBQuery para insertar y mostrar, probá de este modo:
Código Delphi
[-]
procedure TF_AAgenda.BAnadirClick(Sender: TObject);
var
SQLStrTmp: string;
begin
if trim(ECodigo.Text) = '' then
Begin
ShowMessage('El campo CODIGO no puede quedar vacío.');
ECodigo.SetFocus;
End
else
Begin
SQLStrTmp:= ModuloDatos.IBQAgenda.SQL.TExt;
ModuloDatos.IBQAgenda.Close;
ModuloDatos.IBQAgenda.SQL.Text := 'insert into AGENDA Values(:pb1,:pb2,:pb3)';
ModuloDatos.IBQAgenda.ParamByName('pb1').AsInteger := StrToInt(ECodigo.Text);
ModuloDatos.IBQAgenda.ParamByName('pb2').AsDate := MEFechaA.Date;
Modulodatos.IBQAgenda.ParamByName('pb3').AsString := EDescripcion.Text;
ModuloDatos.IBQAgenda.ExecSQL;
ModuloDatos.IBQAgenda.Transaction.CommitRetaining;
ModuloDatos.IBQAgenda.Close;
ModuloDatos.IBQAgenda.SQL.Text:= SQLStrTmp
ModuloDatos.IBQAgenda.Open;
ShowMessage('Registro insertado con Exito');
End;
end;
Saludos.