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;
Cita:
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