Страннвя работа Recordset

[SKYS]

Код: Выделить всё

con = "select nd3gtd.nogtd,nd3gtd.stgtd,nd3tdoc.notd,nd3tdoct.nattd,nd3kontr.nok,nd3exp.name_decl,nd3kontrt.kolt,nd3tdocp.nameptd  from nd3exp,nd3kontr,nd3gtd,nd3tdoc,nd3tdoct , nd3tdocp, nd3kontrt where nd3kontr.unic_kn=nd3tdoc.to_kon_t and nd3kontr.unic_kn=nd3gtd.to_kon_g and nd3tdoc.unic_t=nd3tdoct.unic_tt and nd3exp.unic_ex=nd3kontr.to_exp_kn  order by  nd3gtd.nogtd,nd3tdoc.notd"
str5 = "Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;DefaultDir=d:\;dbq=d:\ПИК НДС\ddb;CollatingSequence=ASCII;"""
ad.Open str5
rs.Open con, ad, adOpenStatic, adLockBatchOptimistic

Имеется вот такая лабудень Запрос выполняется долго но основное дело в том что при выполнение этого запроса пропадает место на диске C: причем от 500 до 900 mb в чем дело Я идиот! Убейте меня, кто-нибудь!????

Подобный запрос если его выполнять через контрол Adodc нормально выполняется а когда сам создаеш то фигня получается

[SKYS]

На диске c: было свободно 1.5 gb съел все файл jet**** .tmp как так ???? файл создается во время запуска процесса.

[HandKot]

не уверен, но, если кол-во строк, получаемых рекордсетом, большое
1) уменьшить кол-во строк (добавить условие WHERE)
2) уменьшить кол-во столбцов в выборке
3) заменить у рекордсета adLockBatchOptimistic на adForwardOnly (не всегда удобно)
4) установить расположение курсора на adUseServer (не всегда удобно)
5) возможно Вы не закрываете рекордсет