Re: [delphi-br] SQL com problema no UPDATE

[Sergio Toshio Kawahara]

Delphi 6 - BDE Paradox - WinXP

Vou passar a rotina inteira:

// Inicia uma transação.
Modulo.Database.StartTransaction;
try
    // Altera o Produto.
    msg.Caption := 'Atenção! Alterando o Código do Produto, Aguarde...';
    Repaint;
    tQry := tQuery.Create(Application);
    tQry.DatabaseName := 'dbFarmacia';
    with tQry do
    begin
            SQL.Clear;
            SQL.Add('Update PRODUTOS ');
            SQL.Add('Set PRODUTO = :ProdutoNovo ');
            SQL.Add('Where PRODUTO = :ProdutoVelho');
             
            ParamByName('ProdutoNovo').AsString  := Trim(NovoCodigo.Text);
            ParamByName('ProdutoVelho').AsString := vCodigoVelho;
            ExecSQL;
     end;

     // Altera os Itens da Entrada de Notas.
     msg.Caption := 'Atenção! Alterando nas Notas de Entradas, Aguarde...';
     Repaint;
     with tQry do
     begin
         SQL.Clear;
         SQL.Add('Update IT_MVEST ');
         SQL.Add('Set PRODUTO = :ProdutoNovo ');
         SQL.Add('Where PRODUTO = :ProdutoVelho');

          ParamByName('ProdutoNovo').AsString  := Trim(NovoCodigo.Text);
          ParamByName('ProdutoVelho').AsString := vCodigoVelho;
          ExecSQL;
    end;

    // Altera os Itens do Movimento de Convenio.
    msg.Caption := 'Atenção! Alterando nos Convênios, Aguarde...';
    Repaint;
    with tQry do
    begin
        SQL.Clear;
        SQL.Add('Update MOVCONV ');
        SQL.Add('Set PRODUTO = :ProdutoNovo ');
        SQL.Add('Where PRODUTO = :ProdutoVelho');

        ParamByName('ProdutoNovo').AsString  := Trim(NovoCodigo.Text);
        ParamByName('ProdutoVelho').AsString := vCodigoVelho;
        ExecSQL;
    end;

    tQry.Free;
except
    Modulo.Database.Rollback;
end;
Modulo.Database.Commit;

Valeu.
  ----- Original Message ----- 
  From: Eduardo Jedliczka 
  To: [EMAIL PROTECTED] 
  Sent: Monday, September 06, 2004 3:41 PM
  Subject: Re: [delphi-br] SQL com problema no UPDATE


  Qual banco de dados ou repositório de dados ??? Qual S.O. ??? Que versão do Delphi 
??? você usa BDE ???

  Sergio, por favor, passe-nos mais informações, nossa bola de cristal está no 
conserto...

  [s]

  =====================
  Eduardo Jedliczka
  GeraSoft Informática
  Apucarana - PR
  =====================
    ----- Original Message ----- 
    From: Sergio Toshio Kawahara 
    To: [EMAIL PROTECTED] 
    Sent: Monday, September 06, 2004 3:09 PM
    Subject: [delphi-br] SQL com problema no UPDATE


    Alguém já teve esse problema:

    Crie um sql em tempo de execução que faz o seguinte alterar o código do produto em 
uma tabela gigante pra lá de 500.000 lançamentos, e quando mando rodar da o erro TOO 
MANY RECORD ON TABLE:

    var
        tQry : TQuery;    

    tQry := tQuery.Create(Application);
    tQry.DatabaseName := 'dbFarmacia';
    with tQry do
    begin
        SQL.Clear;
        SQL.Add('Update MOVCONV ');
        SQL.Add('Set PRODUTO = :ProdutoNovo ');
        SQL.Add('Where PRODUTO = :ProdutoVelho');

        ParamByName('ProdutoNovo').AsString  := Trim(NovoCodigo.Text);
        ParamByName('ProdutoVelho').AsString := vCodigoVelho;
        ExecSQL;
    end;

    Agradeço qualquer ajuda.

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




[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