by "Steven Green" <greens@[EMAIL PROTECTED]
>
Feb 14, 2008 at 03:38 PM
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 Sup****t & Sales
Diamond S****ts Gems
http://www.diamondsg.com/gemsmain.htm
S****ts Memorabilia and Trading Cards
<mariodosreyx@[EMAIL PROTECTED]
> wrote in message
news:314f9166-57ac-4311-becb-4f95189ad106@[EMAIL PROTECTED]
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" ****é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(Query1DO***ENT.AsString,0)+1;
Query1.Edit;
Updatesql1.SetParams(ukModify);
UpdateSQL1.Query[ukModify].ParamByName('Do***ent').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;