Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нехватка памяти [D7, Paradox]

Wowa-K © (2002-12-18 14:52:00)
При обработки базы через компонент TQuery выкидывает сообщение о том что не хватает памяти (обрабатывает примерно 500 записей). Может кто сталкивался с такой проблемой. Подскажите

Prooksius (2002-12-18 16:07:00) [1]
Попробуй перезагрузить комп.
Не может тут нехватать памяти.

Соловьев (2002-12-18 16:04:00) [2]
Пройдись F7 и скажи где именно выдает ошибку. При Open?

Wowa-K (2002-12-18 15:37:00) [3]
Да даже просто через OPEN все равно выкидывает сообщение

Соловьев (2002-12-18 15:31:00) [4]
QV.ExecSQL;
QV.Open;
Это ты в книге прочитал или сам придумал? Когда Select, то только Open.

Nikolay M. (2002-12-18 15:28:00) [5]
1) Зачем делать ExecSQL и Open? Первое совершенно ни к чему.
2) Почему
while not QMain.Eof do
begin
QMain.Next;
end;
а не просто QMain.Last?

Wowa-K (2002-12-18 15:21:00) [6]
ну на винте 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;

Соловьев (2002-12-18 15:06:00) [7]
Посмотри свободное место на диске. Может системе не хватает ресурсов. А какой кстати запрос? Может его можна оптимизировать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »