15 respuestas en este tema

[enecumene]

Pos eso amigos, estoy teniendo problemas en actualizar registros existentes con los componentes IBX más especí­fico con el IBDataset, he probado con Post, ModifySQL, UpdateRecord y ApplyUpdates y nada, en algunos casos la tabla se cierra al usar Commit pero no al usar CommitRetaining, code:

delphi

procedure TFMantenimiento.imActualizarClick(Sender: TObject);
begin
if MessageDlg('¿Seguro deseas actualizar estos datos?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
    cliCodigo.SetFocus;
    CamposVacios(dsClientes);
    try
      dmData.QIBClientes.Post;
    Except
      on E: Exception do
      if E.ClassNameIs('EDatabaseError') then
        begin
          ShowMessage('Se produjo un error al intentar conectarse a la base de datos.');
          dmData.IBTrans.Rollback;
          Abort;
        end;
    end;
    dmData.IBTrans.CommitRetaining;
 end;
end;

No sé qué pasa, ¿alquien me echa una manito? .

Saludos.

[Delphius]

Hola Fernando,
¿Te aseguraste de que el nivel de isolation es el adecuado? No veo que inicies la transacción. ¿Lo haces en otra parte? ¿En qué estado está el dataset?

Por otra parte... si usas Firebird 2.x toma con pinzas el uso de los IBX.

Saludos,

[enecumene]

Hola Delphius la transaction está activa todo el tiempo, ¿a qué te refieres con isolation?, pues uso la versión 2.0 por lo que veo deberé usar los IBX con pinzas como dices, ¿quién habrá sido el que me indujo a usar los IBX si estaba contento con ZEOS? mmm ¿quién habrá sido?  .

Saludos.

[Delphius]

Hola Delphius la transaction está activa todo el tiempo, ¿a qué te refieres con isolation?, pues uso la versión 2.0 por lo que veo deberé usar los IBX con pinzas como dices, ¿quién habrá sido el que me indujo a usar los IBX si estaba contento con ZEOS? mmm ¿quién habrá sido?  .

Saludos.

Pues con isolation me refiero al isolation level y las configuraciones que se debe establecer a las transacciones:
* Snapshot
* Read Commited
....

Recuerda que, en IBX, cuando confirmas una transacción ésta se cierra.

Pues amigo, desde siempre se habló que la compatibilidad de IBX y las versiones nuevas de Firebird es un tema cuestionado, y que lo mejor es prevenir. Yo no uso Firebird 2.x, mientras siga teniendo D6 no quiero arriesgarme.
Si bien ahora hay noticias de que se empezará a dar soporte oficial a Firebird, no se descarta que existan ciertas dificultades en versiones de D6+ y Firebird 2.x.

Hay quienes dicen que no tienen problemas con IBX y Firebird, pero no está demás prevenirse.

Si con ZEOS vas bien amigo, yo dirí­a que mejor sigas con él antes de arriesgar más al avanzar con IBX.
Como quien dirí­a: mejor malo conocido que bueno por conocer ... o algo así­.

Saludos,

[enecumene]

Bueno, por lo que veo me costará volver a ZEOS, lo más extraño es que la inserción funciona, bueno, no todo debe funcionar a la perfección. 

Saludos.

[Delphius]

Pues amigo... releyendo tus palabras.... a como lo veo creo que es lo esperado.

De que se realiza, se realiza. La cuestión es que el Commit, confirma y sin mantener retenido el contexto; es decir confirma y no guarda la información de las operaciones realizadas. Una vez que se confirma la transacción se cierra el dataset. Si lo que buscas es confirmar y retener el contexto de dicha transacción hay que usar CommitRetaining.

Call CommitRetaining to permanently store to the database server all updates, insertions, and deletions of data associated with the current transaction and then retain the transaction context. The current transaction is the last transaction started by calling StartTransaction.

Note: Before calling CommitRetaining, an application may check the status of the InTransaction property. If an application calls CommitRetaining and there is no current transaction, an exception is raised.

Saludos,

[egostar]

Hola Delphius la transaction está activa todo el tiempo, ¿a qué te refieres con isolation?, pues uso la versión 2.0 por lo que veo deberé usar los IBX con pinzas como dices, ¿quién habrá sido el que me indujo a usar los IBX si estaba contento con ZEOS? mmm ¿quién habrá sido?  .

Saludos.

Hola

No veo porque tengas que usar IBX con pinzas  8-), cierto que IBX tiene sus cosas ocultas pero ZEOS  +o( caray, mejor usa dbExpress

Bueno, por lo que veo me costará volver a ZEOS, lo más extraño es que la inserción funciona, bueno, no todo debe funcionar a la perfección.

Asi dicen los que a la primera cosa desconocida botan los guantes y se van por la mas fácil

Salud OS

[Delphius]

Hola

No veo porque tengas que usar IBX con pinzas   8-), cierto que IBX tiene sus cosas ocultas pero ZEOS  +o( caray, mejor usa dbExpress

Pues, yo no más decí­a... que mejor ser precavido. Hasta Firebird 1.5.5 se puede garantizar que el funcionamiento y la compatibilidad se mantiene... en los Delphi inferiores a 200x. En las versiones nuevas no se sabe hasta que punto son compatibles.

Deberí­a funcionar, puesto que Firebird siempre busca mantener compatibilidad hacia atrás; más no se puede garantizar que las nuevas versiones de IBX estén bien en sintoní­a con Firebird 2.x. En algunos sitios se estaba diciendo que en un futuro cercano IBX iba a dejar de soportar a Firebird ya que se iban a rediseñar sus componentes.

Ahora que se ha hecho público de que brindará soporte a Firebird es de esperar que así­ sea.

Yo no creo que existan demasiados problemas, pero algo de precaución no estarí­a demás.

[Kipow]

Yo utilizo Delphi2009/IBX/Firebird 2.1 y quitando que tuve que modificar unas partes del codigo de la IBSQL.pas cero problemas.

[Delphius]

Yo utilizo Delphi2009/IBX/Firebird 2.1 y quitando que tuve que modificar unas partes del codigo de la IBSQL.pas cero problemas.

Entonces podremos sentirnos más cómodos
Serí­a bueno que nos comentases que inconvenientes o que tipo de modificaciones tuviste que realizar. Creo que tus explicaciones podrán ser de ayuda para muchos.
Si lo consideras apropiado, se inicia un nuevo hilo sobre ésto.

Saludos,

[Kipow]

Basicamente cambie esto:

En la unidad IBSQL.pas

version original

delphi

procedure TIBXSQLVAR.SetAsVariant(Value: Variant);
begin
  if VarIsNull(Value) then
    IsNull := True
  else
  case VarType(Value) of
    varEmpty, varNull:
      IsNull := True;
    varSmallint, varInteger, varByte, varShortInt, varWord, varLongWord:
      AsLong := Value;
    varSingle, varDouble:
      AsDouble := Value;
    varCurrency:
      AsCurrency := Value;
    varBoolean:
      if Value then
        AsBoolean := true
      else
        AsBoolean := false;
    varDate:
      AsDateTime := Value;
    varOleStr, varString:
      AsString := Value;
    varArray:
      IBError(ibxeNotSupported, [nil]);
    varByRef, varDispatch, varError, varUnknown, varVariant:
      IBError(ibxeNotPermitted, [nil]);
    varInt64:
      AsInt64 := Value;
    else
      IBError(ibxeNotSupported, [nil]);
  end;
end;

Mi version.

delphi

procedure TIBXSQLVAR.SetAsVariant(Value: Variant);
var
   TypeStr : string;
begin
  TypeSTR := VarTypeAsText(VarType(Value));
  if VarIsNull(Value) then
    IsNull := True
  else
  case VarType(Value) of
    varEmpty, varNull:
      IsNull := True;
    varSmallint, varInteger, varByte, varShortInt, varWord, varLongWord:
      AsLong := Value;
    varSingle, varDouble :
      AsDouble := Value;
    varCurrency:
      AsCurrency := Value;
    varBoolean:
      if Value then
        AsBoolean := true
      else
        AsBoolean := false;
    varDate:
      AsDateTime := Value;
    varOleStr, varString, varUString:
      AsString := Value;
    varArray:
      IBError(ibxeNotSupported, [nil]);
    varByRef, varDispatch, varError, varUnknown, varVariant:
      IBError(ibxeNotPermitted, [nil]);
    varInt64:
      AsInt64 := Value;
    else    
     begin      
          if TypeStr = 'FMTBcdVariantType' then         
                 AsDouble := Value
      else
         IBError(ibxeNotSupported, [nil]);
    end;
  end;
end;

Y otro asunto importante a considerar al menos a mi el IBEvent no me funciono como deberia, solamente puedo registrar 1 evento por componente, pues eso hice no me complique y registre 1 evento por componente (dinamicamente).

Saludos.

[alexontiveros]

Hola a todo el foro, amigo enecumene podrias ser mas especifico en cuanto al tipo de error, si no te esta guardando datos , si usas un Ibtable o un ibquery, que tipo de sentencia sql usas, si esta en una red o esta de manera local, etc, etc,  te mando un saludo y espero poder cooperar en esta comunidad.

[egostar]

Hola a todo el foro, amigo enecumene podrias ser mas especifico en cuanto al tipo de error, si no te esta guardando datos , si usas un Ibtable o un ibquery, que tipo de sentencia sql usas, si esta en una red o esta de manera local, etc, etc,  te mando un saludo y espero poder cooperar en esta comunidad.

Hola amigo Alex, me da gusto verte por estos lares, hacia tiempo que te habias desaparecido , bienvenido de nuevo y claro será un gusto tenerte por aquí­ mas seguido.

Salud OS

[enecumene]

Hola Alex bienvenido al foro, pues ese es el problema no produce ningún tipo de error simplemente simula guardar los datos y cierra la tabla pero no guarda nada, en todo caso me volví­ a utilizar ZEOS hasta que me familiarice con IBX.

Saludos.

[ramonrafe]

Hola.

El error que comentas es muy similar al que me ha pasado a mí varias veces.

En mi caso, el problema fue que, después de modificar los campos de una tabla en Firebird, no había "incluido" esos campos correctamente en la lista de campos del IBDataSet. Lo que se consigue al hacer doble clic sobre el componente IBDataSet, haciendo clic con el botón derecho y seleccionando "add fields" o algo así (lo escribo de memoria).

También me ha ocurrido porque, después de haber hecho lo anterior, no actualicé las sentencias SQL en el IBDataSet. Haciendo clic con el botón derecho y seleccionando "DataSet editor", seleccionando los campos que interesan y actualizando las órdenes SQL con el botón "Generate SQL". Por ello, las sentencias SQL actualizaban unos campos (los antíguos), pero dejaban sin actualizar los campos nuevos.

Quizás también a tí se te olvido realizar alguno de estos pasos.

Ramón.

[ivand]

Know programo en delohi2009 firebird pero no puedo hacer que Ibevent funcione podrias indicarme porfa como has manejado el tema de los events

Gracias