Não gravou nada no paradox

SQL

24/04/2007

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?


Rjcerri

Rjcerri

Curtidas 0

Respostas

Carlos Bernardo

Carlos Bernardo

24/04/2007

No form Principal

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;



GOSTEI 0
POSTAR