Não gravou nada no paradox
24/04/2007
0
Boa Tarde,
Tive um erro no sistema de baixa da venda de keyviol, achei que poderia ser o campo autoincremento tirei ele e fiz a consulta via SQL, esse erro fazia assim a pessoa lançava tudo e a uma certa altura dava a mensagem de erro e se notava que nada estava gravado. Depois de tirar o autoincrento e passar as operações para sql comecei a fazer o teste e depois de lançar varios pedidos deu uma mensagem de capacidade não suportada e memoria insuficiente _Qd.Db e nada que lancei gravou somete o primeiro pedido. alguen já passou por isso?
Tive um erro no sistema de baixa da venda de keyviol, achei que poderia ser o campo autoincremento tirei ele e fiz a consulta via SQL, esse erro fazia assim a pessoa lançava tudo e a uma certa altura dava a mensagem de erro e se notava que nada estava gravado. Depois de tirar o autoincrento e passar as operações para sql comecei a fazer o teste e depois de lançar varios pedidos deu uma mensagem de capacidade não suportada e memoria insuficiente _Qd.Db e nada que lancei gravou somete o primeiro pedido. alguen já passou por isso?
Rjcerri
Curtir tópico
+ 0
Responder
Posts
30/04/2007
Carlos Bernardo
No form Principal
1º - Cria uma variável
LocalTemp : String = ´C:\lixoapp´;
2º - cria uma procedure
Procedure Limpatemporario;
3º - E no final antes do ´end.´
1º - Cria uma variável
LocalTemp : String = ´C:\lixoapp´;
2º - cria uma procedure
Procedure Limpatemporario;
var I: integer;
SR: TSearchRec;
begin
I := FindFirst(Localtemp+´_qsql????.*´,faAnyFile,SR);
while I = 0 do
begin
If (SR.Attr and faDirectory) <> faDirectory then
DeleteFile(Localtemp + Sr.Name);
I := FindNext(SR);
end;
end;
3º - E no final antes do ´end.´
initialization begin ForceDirectories(LocalTemp); session.PrivateDir := LocalTemp; end; finalization begin LimpaTemporario; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
