IBX, DLL, Actualizar Dato

[defcon1_es]

Hola,
prueba a poner esto:

Código Delphi [-]
...
ibqryContactos.ExecSQL;
if ibqryContactos.Transaction.InTransaction
then ibqryContactos.Transaction.Commit;
Result := True;
...

Supongo que tendrás un componente TIBTransaction, ¿no?
Pulsa botón derecho sobre él, elige la opción "Transaction Editor ..."
y selecciona la opción "Read Commited".

Comprueba las propiedades del componente TIBTransaction:
AutoStopAction = saCommit o saCommitRetaining
DefaultAction = TACommit o TACommitRetaining

Salu2.

[paren]

Gracias defcon1_es, tu solucion me ha ayudado,
solo como documentacion al principio segui lo que lla ayuda decia e hice
esto:

Código Delphi [-]
  Function ActualizaTabla(Id_Buscar, Id_Campo, Campo_Valor : PChar) : Boolean; StdCall;
  Begin
   dtamdlDatos := TdtamdlDatos.Create(Nil);
   With dtamdlDatos Do
   Begin
    Try
     ibdbsContactos.Open;
     ibtrnTransaccion.StartTransaction;
     ibqryContactos.Close;
     ibqryContactos.SQL.Clear;
     ibqryContactos.SQL.Add('Update Cliente');
     ibqryContactos.SQL.Add('Set ' + Id_Campo + ' = :PValor');
     ibqryContactos.SQL.Add('Where Id_Empresa = ' + QuotedStr(Id_Buscar));
     ibqryContactos.Params[0].AsString := StrPas(Campo_Valor);
     ibqryContactos.ExecSQL;
     ibtrnTransaccion.Commit;
     Result := True;
    Except
     ibtrnTransaccion.Rollback;
     Result := False;
    End;
   End;
  End;

Pero con este codigo me regresaba la funcion como false, supongo que se debera por algun error de la base de datos o de los componentes IBX
de hecho nolo sabre, pues no se como debugear un dll,
despues hice lo que me dijiste y el codigo quedo así:

Código Delphi [-]
  Function ActualizaTabla(Id_Buscar, Id_Campo, Campo_Valor : PChar) : Boolean; StdCall;
  Begin
   dtamdlDatos := TdtamdlDatos.Create(Nil);
   With dtamdlDatos Do
   Begin
    Try
     ibqryContactos.Close;
     ibqryContactos.SQL.Clear;
     ibqryContactos.SQL.Add('Update Cliente');
     ibqryContactos.SQL.Add('Set ' + Id_Campo + ' = :PValor');
     ibqryContactos.SQL.Add('Where Id_Empresa = ' + QuotedStr(Id_Buscar));
     ibqryContactos.Params[0].AsString := StrPas(Campo_Valor);
     ibqryContactos.ExecSQL;
     If ibqryContactos.Transaction.InTransaction
     Then ibqryContactos.Transaction.Commit;
     Result := True;
    Except
     ibqryContactos.Transaction.Rollback;
     Result := False;
    End;
   End;
  End;

Comprueba las propiedades del componente TIBTransaction:
AutoStopAction = saCommit o saCommitRetaining

Esa propiedad no la encontre en diseño, ni en codigo, la otra si

Con esta modificacion si actualiza la tabla, entonces si funciona, solo mi duda es si no debo de poner algo asi como esto antes del query

Código Delphi [-]
  ...
   Try
 ibdbsContactos.Open;
 ibtrnTransaccion.StartTransaction;
 ibqryContactos.Close;
  ...

Gracias

[defcon1_es]

Hola, como bien dices, no está demás que preguntes si no hay una transacción activa, entonces que inicie una:

Código Delphi [-]
If not(ibqryContactos.Transaction.InTransaction)
then ibqryContactos.Transaction.StartTransaction;

Sobre la propiedad AutoStopAction, fijate bien,
en diseño es la 3ª propiedad del componente IBTransaction.

Salu2.