IBX, DLL, Actualizar Dato
 

Delphi 5.0
Win98 SE
Interbase

Cree una funcion en un DLL para que actualice un dato de una tabla en especifico, regresa verdadera si este fue modificado, para esto agregue un TDataModule para poner ahi el componente TIBDatabase, TIBTransaction, TIBQuery.

El problemas es que cuando uso el DLL en la aplicación que deseo, me regresa la función como verdadera, sin embargo no modifica el dato.

Probe los mismo con una Tform en vez del TDataModule, y con este si funciona, es decir, me regresa la funcion como verdadera y ademas actualiza el campo de la tabla.

Cual es el problema???

Código Delphi [-]
  
  library ActualizaW32;
  
  uses
    SysUtils,
    Classes,
    UdtamdlDatos in 'UdtamdlDatos.pas' {dtamdlDatos: TDataModule};
  
  {$R *.RES}
  
  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;
     Result := True;
    Except
     Result := False;
    End;
   End;
  End;
  
  Exports
   ActualizaTabla;
   
  begin
  end.

Código de la aplicacion

Código Delphi [-]
   If ActualizaTabla(PChar(Edit1.Text), PChar('email'), PChar(DBEdit15.Text)) Then
    ShowMessage('True')
   Else
    ShowMessage('False');

Espero haberme explicado
Gracias por su atención

Hola,
supongo que harás un commit de la transacción de la query en algún momento, ¿no?.

Deberia, pero...
 

Gracias por responder defcon1_es, la situacion es que la verdad, no se como se hace, ya lo he hecho con componentes TDatabase, pero TIBDatabase, es diferente, me podrias dar alguna referencia mas explicada que la ayuda de Delphi o de Interbase.:confused:

Ayuda Interbase
 

fijate que ya cheque bien la ayuda de interbase, y encontre esto:

Código Delphi [-]
 The following procedure illustrates how to apply a dataset’s 
 cached updates to a database in response to a button click:
 
 procedure TForm1.ApplyButtonClick(Sender: TObject);
 begin
   with CustomerQuery do
   begin
   IBDatabase1.Open;
   IBTransaction1.StartTransaction;
   Table1.Insert;
   Table1.FieldByName('QUANTITY').AsInteger := StrToIn(Edit1.Text);
   Table1.Post;
   IBTransaction1.Commit;
   end;
 end;
 
 In the above example, you could substitute Rollback or RollbackRetaining
 (an InterBase 6 feature) for Commit.

Es a lo que te referias verdad?
lo voy a probar a ver si así me funciona
gracias

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.

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;

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

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.