[delphi-br] Erro ao dar AplyUpdate no Delphi 7

Fri, 26 Aug 2005 11:04:27 -0700 

Pessoal,
 
Estou tendo problemas ao dar applyupdate no Delphi 7, usando dbexpress,
simpledataset no firebird 1.5.
 
Vejam o código:
 
function Tdata.DBCommit(DataSet: TSimpleDataSet): Boolean;
begin
if DataSet.ChangeCount > 0 then
   begin
   Screen.Cursor:=crHourGlass;
   if DataSet.ApplyUpdates(-1) <> 0 then
    begin
    Screen.Cursor:=crDefault;
    Result:=False;
    raise EDataBaseError.Create(Exception(exceptobject).Message);
    end
   else
    begin
    Screen.Cursor:=crDefault;
    Result:=True;
    end;
   end;
end;
 
O que está errado.
 
Atenciosamente,
 
Levi Ribeiro de Freitas
Programador de Computadores


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a