é Eduardo estou fazendo isso mas o sistema é muito grande então estou convertendo
devagar mas o problema é que o piradox já esta rodando faz um tempão.
----- Original Message -----
From: Eduardo Jedliczka
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 4:08 PM
Subject: Re: [delphi-br] SQL com problema no UPDATE
Sergio... você é corajoso...
Quando eu trabalhava com paradox, eu era forçado a ficar dando manuntenção em
índice, validando cabeçalho, com muita freqüência, (com tabelas entre 20 e 30 mil
registros)... você tem 500 mil... acho que é muita coisa para a dupla BDE / Paradox...
Porque você não troca para um banco de dados relacional, e fica 'numa boa' ??? Eu
prefiro o Firebird, mas há quem goste do MySql ou do MSDE. (Acess não é banco).
[s]
=====================
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=====================
----- Original Message -----
From: Sergio Toshio Kawahara
To: [EMAIL PROTECTED]
Sent: Monday, September 06, 2004 3:57 PM
Subject: Re: [delphi-br] SQL com problema no UPDATE
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]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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
