Нехватка памяти

← →
Wowa-K (2002-12-18 14:52) [0]

При обработки базы через компонент TQuery выкидывает сообщение о том что не хватает памяти (обрабатывает примерно 500 записей). Может кто сталкивался с такой проблемой. Подскажите

← →
Соловьев (2002-12-18 15:06) [1]

Посмотри свободное место на диске. Может системе не хватает ресурсов. А какой кстати запрос? Может его можна оптимизировать?

← →
Wowa-K (2002-12-18 15:21) [2]

ну на винте 3Гб свободного места
а вот типа код

try
QV.Close;
QV.SQL.Clear;
QV.SQL.Add("select * from "TABEL.DB"");
QV.ExecSQL;
QV.Open;
except
Application.MessageBox("Ошибка выбора врачей","Внимание",mb_ok+mb_iconError);
end;

QSk.Close;
QSk.SQL.Clear;
QSk.SQL.Add("select * from "FOND2.DB"");
QSk.ExecSQL;
QSk.Open;
except
Application.MessageBox("Ошибка выбора Страховых компаний","Внимание",mb_ok+mb_iconError);
end;

QV.First;
while not QV.Eof do
begin
QSk.First;
while not QSk.Eof do
begin
try
QMain.Close;
QMain.SQL.Clear;
QMain.SQL.Add("select * from "SOED3.DB" where Vrac = ""+QV.Fields[1].AsString+"" and "Str-komp" = "+QSk.Fields[0].AsString);
QMain.ExecSQL;
QMain.Open;
QMain.First;
except
ShowMessage("Врач "+QV.Fields[1].AsString +" CK "+QSk.Fields[0].AsString )
Application.MessageBox("Ошибка выбора По врачам или страховой компании","Внимание",mb_ok+mb_iconError);
end;
while not QMain.Eof do
begin
QMain.Next;
end;
QSk.Next;
end;
QV.Next;
end;

← →
Nikolay M. (2002-12-18 15:28) [3]

1) Зачем делать ExecSQL и Open? Первое совершенно ни к чему.
2) Почему
while not QMain.Eof do
begin
QMain.Next;
end;
а не просто QMain.Last?

← →
Соловьев (2002-12-18 15:31) [4]

QV.ExecSQL;
QV.Open;
Это ты в книге прочитал или сам придумал? Когда Select, то только Open.

← →
Wowa-K (2002-12-18 15:37) [5]

Да даже просто через OPEN все равно выкидывает сообщение

← →
Соловьев (2002-12-18 16:04) [6]

Пройдись F7 и скажи где именно выдает ошибку. При Open?

← →
Prooksius (2002-12-18 16:07) [7]

Попробуй перезагрузить комп.
Не может тут нехватать памяти.

Нехватка памяти Найти похожие ветки