[SpectraL]

Сообщение от Assistant

сделайте запрос в TADOQuery:

Код:

ADOQuery1.SQL.Text := 'тут запрос полный';
ADOQuery1.SQL.SaveToFile('123.txt');

и покажите что у вас в 123.txt

INSERT INTO Tablica (Pole1, Pole2, Pole3, Pole4, Pole5) VALUES (2010.03.05 13:53:23, 45, 56, 86, 24)

[SpectraL]

Сообщение от Страдалецъ

Ну собственно загрузить в массив можно так:

Код:

Var i: Integer;
    Data: Array of Integer;
begin
 SetLength(Data, AdoQuery1.RecordCount);
 while not AdoQuery1.Eof
 do begin
    Data[i] := AdoQuery1.Fields[2].AsInteger;
    AdoQuery1.Next;
    end;

Меткий ответ, спасибо...

[SpectraL]

А запрос на ADOQuery как выполнить?

[Assistant]

я же говорил про кавычки, у меня вот так прекрасно работает:

Код:

INSERT INTO Tablica (Pole1, Pole2, Pole3, Pole4, Pole5) VALUES ("2010.03.05 13:53:23", 45, 56, 86, 24)

Сообщение от SpectraL

А запрос на ADOQuery как выполнить?

Код:

ADOQuery1.ExecSQL;

[SpectraL]

С двойным кавычками (или с одинарными) пишет ошибка синтаксиса в инструкции INSERT INTO.

[SpectraL]

В общем даже если удалить из таблицы Pole1 (тип дата-время) ошибка синтаксиса остаётся... Кстати базе данных accdb псевдоним присваивать же не надо?

[Assistant]

не, не надо, но очень странно что ошибка синтаксиса, кстати, MDB не любит всякие переносы и т.д., но это так, мысли...

[SpectraL]

Так, всё разобрался... Имя поля совпало со служебным словом... Не Pole поле называлось ...
Добавление записи прошло успешно... Таким образом, в моём случае лучше использовать компонент TADOQuery?

[Assistant]

ну вы можете использовать один компонент всего: TADOQuery, им прочитаете в массив данные и им же сможете добавлять в базу, но я предпочитаю всё же TADOCommand для запросов вида INSERT, DELETE, UPDATE и т.д.

[SpectraL]

Мне нужно наиболее эффективное решение... то есть чтобы меньше нагрузки на компьютер было и меньше лишних деталей в программе. В случае TADOCommand нужно будет ещё использовать TADOTable?

[Assistant]

TADOCommand служить только для записи данных в базу, удаления или обновления, он не служит для чтения записей, если вы будете использовать для чтения TADOQuery, а для записи TADOCommand - ничего страшного не будет, так же не будет ничего страшного, если вы будете использовать ТОЛЬКО TADOQuery. Одинаково будет.

[SpectraL]

Спасибо Assistant, ответ на главный вопрос считаю найденным.

[SpectraL]

Сообщение от Страдалецъ

Ну собственно загрузить в массив можно так:

Код:

Var i: Integer;
    Data: Array of Integer;
begin
 SetLength(Data, AdoQuery1.RecordCount);
 while not AdoQuery1.Eof
 do begin
    Data[i] := AdoQuery1.Fields[2].AsInteger;
    AdoQuery1.Next;
    end;

Я тут поэкспериментировал и пришел к следующим результатам: загрузка 18000 записей из CSV-файла в динамический список (вроде динамического массива) занимает около 1 секунды, а загрузка 18000 записей из ACCDB-базы данных в динамический список занимает около 10 секунд. При загрузке из ACCDB-базы данных на выполнение следующего кода уходит около 9 секунд:

while ADOQuery1.Eof = False do
begin
ADOQuery1.Next;
end;

Можно ли процедуру Next заменить чем-нидь более эффективным?

[Страдалецъ]

Нет, заменить не выйдет. А вот ускорить возможно. Я подозреваю, что у вас флаг в запросе стоит clUseClient, и как следствие, он сначала все тянет на клиент а уже потом заполняет массив - вот и пауза большая.

[SpectraL]

Сообщение от Страдалецъ

Нет, заменить не выйдет. А вот ускорить возможно. Я подозреваю, что у вас флаг в запросе стоит clUseClient, и как следствие, он сначала все тянет на клиент а уже потом заполняет массив - вот и пауза большая.

1. Свойству CursorLocation (которому был присвоен clUseClient) я присвоил clUseServer, верно? Теперь загрузка происходит за 2 секунды.
2. Свойство CursorLocation определяет чтение данных базы с копии (в компоненте ADOQuery) либо в базе данных?
3. А есчо есть варианты по сокращению времени, скажем может быть открытие базы данных только для чтения и прочее?