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

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

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

Вот код:

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

у тебя в

Code
1
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?

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

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

Решение

Решение

Решение

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

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

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

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

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

@qwertehok 5961 / 4537 / 1094 Регистрация: 29.08.2013 Сообщений: 28,148 Записей в блоге: 3
	14.01.2018, 16:06
	а взять xlsx нельзя? 0

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

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

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