Update failed

Estou usando o seguinte codigo com uma tabela paradox que pretendo
actulizar em batch
c/ o N.ª de Recibo depois de ter sido bem sucedido na Impressão e,
quando vou fazer
UpdateSQL1.ExecSQL(ukModify) tenho sempre o mesmo erro:
EDataBaseError: "Update failed" porém, actualiza se fechar e abrir o
Query1 a actualização foi efectuada.
Alguem poderá ajudar?

Obrigado

Mário Reis


Query1.Close ;
Query1.ParamByName('OLD_SEQ_INT').AsString := '0000000083' ;
Query1.ParamByName('OLD_PEFECTIVO').Value := StrToDate('2008-01-01');
Query1.Open ;
I:= StrToIntDef(Query1DOCUMENT.AsString,0)+1;
Query1.Edit;
Updatesql1.SetParams(ukModify);
UpdateSQL1.Query[ukModify].ParamByName('Document').AsString:='00000'+
INTTOSTR(I);
UpdateSQL1.Query[ukModify].Prepare;


UpdateSQL1.ExecSQL(ukModify);


UpdateSQL1.Query[ukModify].CommitUpdates;


If UpdateSQL1.Query[ukModify].UpdatesPending Then
UpdateSQL1.Query[ukModify].ApplyUpdates;

that is Delphi code.. you should go to the Borland forums for help..

--
Steven Green - Myrtle Beach, South Carolina USA

Diamond Software Group
http://www.diamondsg.com/main.htm
Paradox Support & Sales

Diamond Sports Gems
http://www.diamondsg.com/gemsmain.htm
Sports Memorabilia and Trading Cards

wrote in message

Estou usando o seguinte codigo com uma tabela paradox que pretendo
actulizar em batch
c/ o N.ª de Recibo depois de ter sido bem sucedido na Impressão e,
quando vou fazer
UpdateSQL1.ExecSQL(ukModify) tenho sempre o mesmo erro:
EDataBaseError: "Update failed" porém, actualiza se fechar e abrir o
Query1 a actualização foi efectuada.
Alguem poderá ajudar?

Obrigado

Mário Reis


Query1.Close ;
Query1.ParamByName('OLD_SEQ_INT').AsString := '0000000083' ;
Query1.ParamByName('OLD_PEFECTIVO').Value := StrToDate('2008-01-01');
Query1.Open ;
I:= StrToIntDef(Query1DOCUMENT.AsString,0)+1;
Query1.Edit;
Updatesql1.SetParams(ukModify);
UpdateSQL1.Query[ukModify].ParamByName('Document').AsString:='00000'+
INTTOSTR(I);
UpdateSQL1.Query[ukModify].Prepare;


UpdateSQL1.ExecSQL(ukModify);


UpdateSQL1.Query[ukModify].CommitUpdates;


If UpdateSQL1.Query[ukModify].UpdatesPending Then
UpdateSQL1.Query[ukModify].ApplyUpdates;