Lock File Was to Large

Delphi

30/08/2003

Tenho um programa em Paradoxo, toda vez que coloco em rede da esse tipo de erro. Sei que é erro de BDE, mas até agora não consegui resolver isso.

O meu programa roda em rede, e ja segui todas as indicações para coloca-lo em rede e mesmo assim continua dando esse erro. Ja mudei de sistema operacional e até de computador mas mesmo assim continua dando o mesmo erro.

Para atualização dos dados uso query com updatesql junto, não sei se seria isso o problema do erro.

Se alguem puder me ajudar, ja que muitos programadores usam paradoxo em rede com base de dados grande e não da tanto problema.

Grato


Fernando

Fernando

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

30/08/2003

Colega,

Não conheço Paradox na prática, mas acredito que se vc utilizar TTables as Invés de TQuerys terá melhor resultado, eis que a classe TTable foi projetada para trabalhar com banco de dados desktop como Paradox e xBase.


GOSTEI 0
Tricano

Tricano

30/08/2003

Olá Fernando !!!

O colega tinha razão em falar que seu problema são as querys. Já tive o mesmo problema em uma rotina de cálculo de folha de pagamento aonde dava close e open em query parametrizada várias vezes. Quanto o nº de funcionários era grande me exibia esta mensagem de erro.
A solução foi utilizar locate com as querys para não ter que trocar por TTable.

Atenciosamente ,

André Silva Tricano :shock: . :x :D :) :roll:


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

30/08/2003

Colega,

Encontrei este material aqui sendo disseminado pela Web. Avalie se tem valor:

[quote:f9871b16bb=´Clay Shannon´]
Lock file [has grown] too large
Possible Cause of Error
You may be using Paradox tables and one or more of the following scenarios
applies:
1. Multiple users are accessing the same Private Directory
2. The executable and the tables are in the same directory
3. The BDE Local Share setting is TRUE
4. You are executing multiple query operations against a TTable
Quick Fix
1. Set the Private Directory to a directory on each userþs hard disk (such as
C:\Temp). You could do that programmtically in this way:
[/quote:f9871b16bb]
var
  Extension, ExecName, PrivDir : String;
  ExtensionPos: Integer;
 . .
ExecName := ExtractFileName(Application.ExeName);
Extension := ExtractFileExt(Application.ExeName);
ExtensionPos := Pos(Extension, ExecName);
Delete(ExecName,ExtensionPos,4);
PrivDir := ´C:\Temp\´ + ExecName;
if not DirectoryExists(PrivDir) then
  CreateDir(PrivDir);
if DirectoryExists(PrivDir) then
  Session.PrivateDir := PrivDir
else
  raise Exception.Create(´Private Directory ´ +
                         ´ was not created!´);
end;

[quote:f9871b16bb=´Clay Shannon´]
2, 4. House the executable and the tables in separate directories.
3. If you do not have multiple executables simultaneously accessing the same
tables, set Local Share (in the System page of the BDE Configuration utility)
to FALSE. Leave it (or set it to) TRUE if machines on a peer-to-peer network
are accessing the table[s] via their own copy of the executable.
Additional Information
Note: Do not set the PrivateDir setting to a root directory on a drive; always
specify a subdirectory.
If your executable and tables share the same directory, the lock (.LCK) file
will increase in size every time a query is run.
You need to set Local Share to True if your tables are also being accessed by
non-BDE database engines, such as JET or ODBC.
If Local Share is set to False, no lock (.LCK) fiels at all are created.

Clay Shannon,
author of upcoming book ´Troubleshooting Delphi - Quick Fixes´
[/quote:f9871b16bb]


GOSTEI 0
POSTAR