VPF::stringlist в ado - Форум программистов

sssssss7

Дата 19.5.2009, 04:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 3.2.2009

Репутация: нет
Всего: нет

база mysql использую компаненты ado..

Стоит задача сделать запись в базу большой объем строк... как это можно сделать быстрее чем через построчную запись в ADOQuery???...
Грубый пример)))

ADOQuery1.append;
ADOQuery1.fieldbyname(заголовок).assing(список);
form1.ADOQuery1.post;

Это сообщение отредактировал(а) sssssss7 - 19.5.2009, 04:02

insoft

Дата 19.5.2009, 06:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3

работай через запросы

Akella

Дата 19.5.2009, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(sssssss7 @ 19.5.2009, 04:02

)

как это можно сделать быстрее чем через построчную запись в ADOQuery???...

да, запросы с параметрами + явное управление транзакциями

dvamaster

Дата 19.5.2009, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

как вариант:

Код


  ADOQuery1.fieldbyname('textfield').Value = strlist.Text;

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

sssssss7

Дата 19.5.2009, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 3.2.2009

Репутация: нет
Всего: нет

Придумал такой карявый метод.. но главное что работает быстро))))...

Добавление 10.000 строк... в mysql

По времени не замерял но примерно могу сказать так))
Самый медленый вариант:

Код


var
sl:TStringList;
begin
for i := 0 to sl.Count-1 do
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add (запрос на добавление строки[i]);
    ADOQuery1.Open;
  end;
end;

Чуть быстрее чем первый:

Код


var
  sl:TStringList;
begin
for i := 0 to sl.Count-1 do
  begin
    ADOQuery1.append;
    ADOQuery1.fieldbyname('string_files').Value := s[i];
    ADOQuery1.Post;
  end;
end;

И теперь самый быстрый)) почти моментальный))

Код


var
  sl:TStringList;
begin
  sl.SaveToFile('c:\1.txt');
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add ('LOAD DATA INFILE "c:\\1.txt" INTO TABLE filelist_1(имя столбца);');
  ADOQuery1.ExecSQL;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »