Paradox em Rede
Ola Galera
Eu sei que Paradox em rede não é muito legal, mas somente neste cliente que esta dando problema.
Estou com problema de ´Key Violation´, já mudei a maneira de controlar a numeração da tabela utilizando uma tabela de controle que é bloqueada enquanto é acrescida o nr de controle, mas assim mesmo quando 3 ou 4 pessoas incluem pedidos ao mesmo tempo ocorre o erro.
Acredito que seja problema da rede (Novell) pois o Servidor é uma maquina antiga e com pouca memória e ainda com placa de rede 10 Mbs.
O que eu poderia fazer para evitar esse erro? Já qua a mudança de hardware no momento não será possivel.
Gostaria de fazer alguma coisa para quando der o erro ele alterar o nr talvez.
Estou aguardando alguma ideia.
Obrigado
Eu sei que Paradox em rede não é muito legal, mas somente neste cliente que esta dando problema.
Estou com problema de ´Key Violation´, já mudei a maneira de controlar a numeração da tabela utilizando uma tabela de controle que é bloqueada enquanto é acrescida o nr de controle, mas assim mesmo quando 3 ou 4 pessoas incluem pedidos ao mesmo tempo ocorre o erro.
Acredito que seja problema da rede (Novell) pois o Servidor é uma maquina antiga e com pouca memória e ainda com placa de rede 10 Mbs.
O que eu poderia fazer para evitar esse erro? Já qua a mudança de hardware no momento não será possivel.
Gostaria de fazer alguma coisa para quando der o erro ele alterar o nr talvez.
Estou aguardando alguma ideia.
Obrigado
Roberto_conetsys
Curtidas 0
Respostas
Helderjr
03/07/2003
Roberto, coloque este comando logo após o Post
try
Tabela.Post;
except
on E:EDBEngineError do
if E.Errors[0].ErrorCode = 9729 then
Tabela.FieldByName(´Codigo´).AsInteger := Tabela.FieldByName(´Codigo´).AsInteger + 1;
end;
try
Tabela.Post;
except
on E:EDBEngineError do
if E.Errors[0].ErrorCode = 9729 then
Tabela.FieldByName(´Codigo´).AsInteger := Tabela.FieldByName(´Codigo´).AsInteger + 1;
end;
GOSTEI 0
Helderjr
03/07/2003
Roberto, coloque este comando logo após o Post
try
Tabela.Post;
except
on E:EDBEngineError do
if E.Errors[0].ErrorCode = 9729 then
Tabela.FieldByName(´Codigo´).AsInteger := Tabela.FieldByName(´Codigo´).AsInteger + 1;
end;
try
Tabela.Post;
except
on E:EDBEngineError do
if E.Errors[0].ErrorCode = 9729 then
Tabela.FieldByName(´Codigo´).AsInteger := Tabela.FieldByName(´Codigo´).AsInteger + 1;
end;
GOSTEI 0