Импорт экспорт данных из Access в Excel и обратно

@ДневнойДоширак · Регистрация: 27.07.2017

Author24 — интернет-сервис помощи студентам

Вот код:

Delphi

1	('Select * INTO Лист IN '+''''+'C:\Данные.xls'+''''+'[Excel 8.0;] From Таблица');

им я экспортирую данные в файл, а как потом импортировать данные из этого файла обратно в базу?

@qwertehok · 01.01.2018, 20:56

прочитать xls Инструкция: Использование Excel из Delphi
записать в БД с помощью SQL

@droider · 01.01.2018, 20:58

Сообщение от ДневнойДоширак

как потом импортировать данные из этого файла обратно в базу?

Можно так Импорт из Excel в DBGridEh

@ДневнойДоширак · 01.01.2018, 21:57 **[ТС]**

Спасибо народ!

Добавлено через 34 минуты
Возник другой вопрос, а можно как то обновлять базу а не дописывать в нее? то есть например БД заполнена наименованиями и их количеством, делаю экспорт в файл а потом в этом файле например меняю количество у одного наименования, как потом импортировать этот файл обратно в БД обновляя там эти данные? или например изменил количество и еще дописал новое наименование, то в БД потом надо обновить еще и дописать данные как это все можно реализовать?

@qwertehok · 02.01.2018, 07:43

проверить данные по ключевому полю
например у тебя в базе

101101 Яблоки зеленые 100 кг

в эксельке
101101 Яблоки зеленые 120 кг

ты эксельку импортируешь во временную таблицу, делаешь Join по ключевому полю, в условие вставляешь Количество_бд<>Количество_xls и у тебя получается таблица с измененными данными

далее уже делаешь простой Update

@ДневнойДоширак · 02.01.2018, 12:12 **[ТС]**

qwertehok, Спасибо! попробую.

@Пытливый · 02.01.2018, 14:22

Надо было не импортировать в Акцес, а сделать связь с таблицей.

@ДневнойДоширак · 13.01.2018, 23:11 **[ТС]**

еще вопрос по этому коду:

Delphi

1	('Select * INTO Лист IN '+''''+'C:\Данные.xls'+''''+'[Excel 8.0;] From Таблица');

можно как то этот файл сохранять через SaveDialog?

@qwertehok · 13.01.2018, 23:32

в смысле сохранить?
SaveDialog только указывает путь к файлу

после выполнения

Delphi

1	if SaveDialog1.Execute Then

у тебя в

Код

SaveDialog1.PathName

будет ПУТЬ и этот путь пихай куда хочешь

@ДневнойДоширак · 14.01.2018, 12:41 **[ТС]**

Спасибо!

Добавлено через 11 часов 21 минуту
Возник еще вопрос по этому коду:

Delphi

1	('Select * INTO Лист IN '+''''+'C:\Данные.xls'+''''+'[Excel 8.0;] From Таблица');

в файл "Данные" на один лист записывается максимум 65536 строк записей, можно как то сделать что если в файл сохраняется больше чем 65536 строк то они распределялись дальше на лист2 лист3 лист4 и т.д.?

@qwertehok · 14.01.2018, 16:06

а взять xlsx нельзя?

@ДневнойДоширак · 14.01.2018, 17:37 **[ТС]**

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

а взять xlsx нельзя?

к сожалению не везде может быть установлен офис читающий xlsx, много народу знаю кто еще 2003ий юзает. а сколько там в лист входит строк у xlsx, знаю что больше но максимальное не знаю?

Сообщение от ДневнойДоширак

если в файл сохраняется больше чем 65536 строк то они распределялись дальше на лист2 лист3 лист4 и т.д.?

такое вообще одним запросом можно сделать?

@qwertehok · 14.01.2018, 18:43

Сообщение от ДневнойДоширак

к сожалению не везде может быть установлен офис читающий xlsx

тут не обязателем сам офис, достаточно апдейт поставить

Сообщение от ДневнойДоширак

такое вообще одним запросом можно сделать?

запросом можно, но в новых (от 2014) версиях SQL - там есть конструкция для нарезки и вывода страницы

@ДневнойДоширак · 14.01.2018, 20:28 **[ТС]**

а как тогда можно организовать разделение по 65536 строк? я для проверки пробовал в два запроса делать, указывал просто у первого писать на лист1 если <65536, а у второго писать на лист2 если >65536 и все работало нормально ~90000 записей писало в один файл на два листа в одном 65536 записей на втором все остальное, но если записей допустим ~500000 то как тогда быть чтобы 100500 запросов не писать?

@qwertehok · 14.01.2018, 20:52

Сообщение от ДневнойДоширак

а как тогда можно организовать разделение по 65536 строк?

не делать такого разбиения - основной и самый правильный совет

подумай еще раз над заданием.

@ДневнойДоширак · 14.01.2018, 21:56 **[ТС]**

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

не делать такого разбиения - основной и самый правильный совет
подумай еще раз над заданием.

подскажи тогда я вот тут меняю формат xls на xlsx

Delphi

1
2
3

('Select * INTO Лист IN '+''''+'C:\Данные.xls'+''''+'[Excel 8.0;] From Таблица');
 
('Select * INTO Лист IN '+''''+'C:\Данные.xlsx'+''''+'[Excel 8.0;] From Таблица');

но при выполнении запроса выходит ошибка что (обновление невозможно. база данных или объект доступны только для чтения) в чем причина? меняю обратно и все нормально срабатывает.

@qwertehok · 14.01.2018, 23:39

Сообщение от ДневнойДоширак

в чем причина?

драйвер?

@ДневнойДоширак · 14.01.2018, 23:45 **[ТС]**

что за драйвер?

Добавлено через 36 секунд
офис 2007

@qwertehok · 14.01.2018, 23:52

при чем тут офис?

Сообщение от ДневнойДоширак

что за драйвер?

в твоем случае C:\Данные.xls это не просто экселька, это БД

а твой драйвер не знает что такое xlsx и пишет ошибку

@ДневнойДоширак · 15.01.2018, 00:19 **[ТС]**

а ты про подключение? про провайдер? что делать в таком случае? подключать кодом xlsx'ку провайдером? и какой нужен для этого? который офис 12?

Импорт экспорт данных из Access в Excel и обратно

Решение

Решение

Решение

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	01.01.2018, 20:56	2
	Сообщение было отмечено Joey как решение Решение прочитать xls Инструкция: Использование Excel из Delphi записать в БД с помощью SQL 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	01.01.2018, 20:58	3
	Сообщение было отмечено Joey как решение Решение Сообщение от ДневнойДоширак как потом импортировать данные из этого файла обратно в базу? Можно так Импорт из Excel в DBGridEh 0

@ДневнойДоширак 0 / 0 / 0 Регистрация: 27.07.2017 Сообщений: 65
	01.01.2018, 21:57 [ТС]	4
	Спасибо народ! Добавлено через 34 минуты Возник другой вопрос, а можно как то обновлять базу а не дописывать в нее? то есть например БД заполнена наименованиями и их количеством, делаю экспорт в файл а потом в этом файле например меняю количество у одного наименования, как потом импортировать этот файл обратно в БД обновляя там эти данные? или например изменил количество и еще дописал новое наименование, то в БД потом надо обновить еще и дописать данные как это все можно реализовать? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	02.01.2018, 07:43	5
	проверить данные по ключевому полю например у тебя в базе 101101 Яблоки зеленые 100 кг в эксельке 101101 Яблоки зеленые 120 кг ты эксельку импортируешь во временную таблицу, делаешь Join по ключевому полю, в условие вставляешь Количество_бд<>Количество_xls и у тебя получается таблица с измененными данными далее уже делаешь простой Update 0

@ДневнойДоширак 0 / 0 / 0 Регистрация: 27.07.2017 Сообщений: 65
	02.01.2018, 12:12 [ТС]	6
	qwertehok, Спасибо! попробую. 0

@Пытливый 3586 / 2195 / 693 Регистрация: 29.05.2013 Сообщений: 9,373
	02.01.2018, 14:22	7
	Надо было не импортировать в Акцес, а сделать связь с таблицей. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	14.01.2018, 16:06	11
	а взять xlsx нельзя? 0

@ДневнойДоширак 0 / 0 / 0 Регистрация: 27.07.2017 Сообщений: 65
	14.01.2018, 17:37 [ТС]	12
	Сообщение от qwertehok а взять xlsx нельзя? к сожалению не везде может быть установлен офис читающий xlsx, много народу знаю кто еще 2003ий юзает. а сколько там в лист входит строк у xlsx, знаю что больше но максимальное не знаю? Сообщение от ДневнойДоширак если в файл сохраняется больше чем 65536 строк то они распределялись дальше на лист2 лист3 лист4 и т.д.? такое вообще одним запросом можно сделать? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	14.01.2018, 18:43	13
	Сообщение от ДневнойДоширак к сожалению не везде может быть установлен офис читающий xlsx тут не обязателем сам офис, достаточно апдейт поставить Сообщение от ДневнойДоширак такое вообще одним запросом можно сделать? запросом можно, но в новых (от 2014) версиях SQL - там есть конструкция для нарезки и вывода страницы 0

@ДневнойДоширак 0 / 0 / 0 Регистрация: 27.07.2017 Сообщений: 65
	14.01.2018, 20:28 [ТС]	14
	а как тогда можно организовать разделение по 65536 строк? я для проверки пробовал в два запроса делать, указывал просто у первого писать на лист1 если <65536, а у второго писать на лист2 если >65536 и все работало нормально ~90000 записей писало в один файл на два листа в одном 65536 записей на втором все остальное, но если записей допустим ~500000 то как тогда быть чтобы 100500 запросов не писать? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	14.01.2018, 20:52	15
	Сообщение от ДневнойДоширак а как тогда можно организовать разделение по 65536 строк? не делать такого разбиения - основной и самый правильный совет подумай еще раз над заданием. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	14.01.2018, 23:39	17
	Сообщение от ДневнойДоширак в чем причина? драйвер? 0

@ДневнойДоширак 0 / 0 / 0 Регистрация: 27.07.2017 Сообщений: 65
	14.01.2018, 23:45 [ТС]	18
	что за драйвер? Добавлено через 36 секунд офис 2007 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	14.01.2018, 23:52	19
	при чем тут офис? Сообщение от ДневнойДоширак что за драйвер? в твоем случае C:\Данные.xls это не просто экселька, это БД а твой драйвер не знает что такое xlsx и пишет ошибку 0

@ДневнойДоширак 0 / 0 / 0 Регистрация: 27.07.2017 Сообщений: 65
	15.01.2018, 00:19 [ТС]	20
	а ты про подключение? про провайдер? что делать в таком случае? подключать кодом xlsx'ку провайдером? и какой нужен для этого? который офис 12? 0