IBX, DLL, Actualizar Dato

[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