Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  13:20[Войти] | [Зарегистрироваться]
Ответ на вопрос № 53209

27-06-2007 00:40
Здравствуйте мне нужно загрузить данные из Excel в Access
использую следующий код (поячеечная загрузка):
var
ea:variant;
row,count:integer;
i: word;
begin
ea:=CreateOleObject('Excel.Application'); //Задубасить Ole обьект типа Eксель
ea.Workbooks.Open(opendialog1.FileName); //Открываем нужную нам книгу
ea.Visible:=false;// Скрываем, если конечно нужно
row:=ea.ActiveSheet.UsedRange.Rows.Count;// Смотрим сколько заюзаных строк
for i:=1 to row do begin // Начинаем цикл
adotable2.Append; // Добавляем в таблицу новую запись
// сдесь вносим в таблицу каждое значение отдельно
adotable2.Fields[0].Value:=ea.Sheets[1].Cells[i,1].Text;
adotable2.Fields[1].Value:=ea.Sheets[1].Cells[i,2].Text;
adotable2.Fields[2].Value:=ea.Sheets[1].Cells[i,3].Text;
adotable2.Fields[3].Value:=ea.Sheets[1].Cells[i,4].Text;
adotable2.Fields[4].Value:=ea.Sheets[1].Cells[i,5].Text;
adotable2.Fields[5].Value:=ea.Sheets[1].Cells[i,6].Text;
adotable2.Fields[6].Value:=ea.Sheets[1].Cells[i,7].Text;
adotable2.Fields[7].Value:=ea.Sheets[1].Cells[i,8].Text;
application.ProcessMessages; // ЭТО ОБЯЗАТЕЛЬНО, ЕСЛИ НЕ ХОТИМ ВИСЕТЬВО ВРЕМЯ ВЫПОЛНЕНИЯ!!!!!!!!!!!!
end;
adotable2.Post; // Сохраняем полученое в базе
ea.quit; // Выходим из Екселя
adotable2.First; // Переходим на первую запись
end;
в таблице 6000 записей отрабатывает очень долго.
посоветуйте как ускорить процесс.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

18-11-2007 05:29
быстрый перевод данных из Excel в Access


ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add(' SELECT [PRICE$].*, * INTO AA2 '+
'FROM [PRICE$] IN "C:\NEW PRICE2\PRICE\FORUM.xls" "Excel 8.0;"  ');
ADOQuery1.ExecSQL ;


[PRICE$]-название листа

AA2-создаваемая таблица в Access

C:\NEW PRICE2\PRICE\FORUM.xls-путь

02-07-2007 14:34
»вопрос КС №42639« »вопрос КС №43064« »вопрос КС №43653« »вопрос КС №43951« »вопрос КС №44088« »вопрос КС №44443« »вопрос КС №45025« »вопрос КС №45050«
»вопрос КС №45284« »вопрос КС №45934« »вопрос КС №46977« »вопрос КС №47538« »вопрос КС №47641« »вопрос КС №48119« »вопрос КС №48814« »вопрос КС №48904« »вопрос КС №49471« »вопрос КС №49484« »вопрос КС №49534« »вопрос КС №51629« »вопрос КС №52124« »вопрос КС №52511« »вопрос КС №52920« »вопрос КС №52959«

27-06-2007 12:42 | Сообщение от автора вопроса
Спасибо всем буду пробовать

27-06-2007 02:48
Посмотрите еще сюда - может это то что нужно
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1277#04
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1277#05

27-06-2007 02:46 | Комментарий к предыдущим ответам
Можно ArData := UnAssigned; или VarClear(ArData);, но в принципе, должна освобождаться автоматом при выходе из поля видимости


27-06-2007 02:35 | Комментарий к предыдущим ответам
Ой!!! Читать
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1274#17
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=313
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=502

За ссылки, конечно, спасибо, но я знаю, как можно организовать в цикле индексацию массива. Не это было главное.
Сразу хочется задать встречный вопрос: везде используется VarArrayCreate, а кто уничтожает массив? Ни в одном примере нет его уничтожения. Это делается автоматически? Что-то непохоже...

27-06-2007 02:18
Помоему Access умеет импортировать документы Excel, тогда зачем весь этот код? Просто сделать линк табле и из готорвой таблицы загрузить данные.

27-06-2007 02:08 | Комментарий к предыдущим ответам
Прошу прощения  в adotable2.Fields[0].Value:=ArData[i, 1];... все правильно, вот только for i:=1 to row do не верно, так UsedRange не обязательно может начинаться в 1-ой строки в листе Excel'я

2 Алексей Селин
почему у тебя adotable2.Post; находится ВНЕ цикла
потому что adotable2.Append; вызовет Post автоматически

27-06-2007 01:59
Строка ArData := VarArrayCreate([1, row, 1, 8], varOleStr); вообще не нужна - Excel "задубасит" массив за вас сам.
adotable2.Fields[0].Value:=ArData[i, 1];
...
adotable2.Fields[7].Value:=ArData[i, 8];

Ой!!! Читать
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=1274#17
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=313
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=502

27-06-2007 01:57
Во первых, не понятно, почему у тебя adotable2.Post; находится ВНЕ цикла, ведь постить надо КАЖДУЮ запись. Во вторых, ты определяешь количество строк в АКТИВНОМ листе, а работаешь с ПЕРВЫМ листом, который не обязательно может быть активным. Это ошибки.

27-06-2007 01:12
Виноват, строка создания массива: 
  ArData := VarArrayCreate([1, row, 1, 8], varOleStr);


27-06-2007 01:11
Операция обращения к ячейкам листа занимает много времени. Я делал так: одной операцией читаем весь диапазон в вариантный массив, а уже потом работаем с ним. Например так:


var
  ea:variant;
  row,count:integer;
  i: word;
  ArData: Variant;
begin
    ea:=CreateOleObject('Excel.Application'); //Задубасить Ole обьект типа Eксель
    ea.Workbooks.Open(opendialog1.FileName); //Открываем нужную нам книгу
    ea.Visible:=false;// Скрываем, если конечно нужно
    row:=ea.ActiveSheet.UsedRange.Rows.Count;// Смотрим сколько заюзаных строк
    ArData := VarArrayCreate([1, row, 1, 6], varOleStr);
    ArData := ea.ActiveSheet.Range['A1:H' + IntToStr(row)].Value;
    for i:=1 to row do begin // Начинаем цикл
      adotable2.Append; // Добавляем в таблицу новую запись
      // сдесь вносим в таблицу каждое значение отдельно
      adotable2.Fields[0].Value:=ArData[i, 1];
      adotable2.Fields[1].Value:=ArData[i, 2];
      adotable2.Fields[2].Value:=ArData[i, 3];
      adotable2.Fields[3].Value:=ArData[i, 4];
      adotable2.Fields[4].Value:=ArData[i, 5];
      adotable2.Fields[5].Value:=ArData[i, 6];
      adotable2.Fields[6].Value:=ArData[i, 7];
      adotable2.Fields[7].Value:=ArData[i, 8];
      application.ProcessMessages;
end;
adotable2.Post; // Сохраняем полученое в базе
ea.quit; // Выходим из Екселя
adotable2.First; // Переходим на первую запись
end;


Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Раз дощечка, два дощечка будет лесенка. Раз словечко, два словечко, будет ЧТО?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования