Форум: "Базы";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизПроблемы с ADO2.5 Найти похожие ветки
← →
a_k_v (2002-01-29 09:00) [0]Вот пытаюсь работать с ADO 2.5, импортировал библиотеку типов, создал connection и recordSet, обрабатываю запросы по 500 записей
но встал перед проблемой при длительной работе проги она существенно начинает пожирать витруальную память, отсюда вопрос
как правильно работать с recordSet и connection?
я делаю вот так:
var // глобальные переменные модуля
conODBC: Connection;
adoRS: RecordSet;
...
begin // тело проблемной процедуры
strAccessConnect := "File name=" + sDNSRosar;
conODBC := CoConnection.Create;
conODBC.Open(strAccessConnect, "kill","smart",0);
strQuery := "SELECT * FROM [Beer parameters] WHERE
[Program number]=" + IntToStr(iProgram) + " AND
[Beer number]= " + IntToStr(iBeer) + " ORDER BY
[Step number] ASC";
adoRS := CoRecordset.Create;
adoRS.Open(strQuery, conODBC, adOpenStatic,
adLockReadOnly, adCmdText);
adoRS.MoveFirst;
While adoRS.EOF <> True do
begin
iStep := adoRS.Fields.Item[2].value;
For k := 0 To 11 do
begin
iCounterR := (iStep * 12) + k;
If adoRS.Fields.Item[k * 5 + 7].value = True Then
rRealValues[iCounterR] :=
adoRS.Fields.Item[k * 5 + 5].value;
end;
adoRS.MoveNext
end;
adoRS.Close;
adoRS := nil;
conODBC.Close;
conODBC := nil;
end;
Скажите в чем я не прав?
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c