Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 / 1 / 0
Регистрация: 22.11.2010
Сообщений: 6

Delphi и экспорт Access отчета

22.11.2010, 10:14. Показов 2358. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, уважаемые эксперты!
Используется Delphi 7 + база Access. Помогите пожалуйста, уже замучился.
Необходимо программно вывести отчет по запросу в Excel, при этом в запросе выборка идет по введенному пользователем параметру. Как это реализовать? Неужели выводить построчно записи на лист Excel?
В Access есть функция экспорта отчета в Excel, но никак не удается ее использовать, чтобы все работало правильно. Нужно, чтобы стандартный Access'овский диалог ввода параметра запроса не появлялся, потому что значение параметра устанавливается созданным мной в Delphi диалогом.
Отчет называется Employees, в базе он уже создан и настроен, и работает. Дело в том, что в Access мне удавалось решить эту задачу при помощи VBA, даже несколькими способами, но при использование этих инструкций в Delphi приводило к различным ошибкам.
Как решить проблему? Буду очень благодарен любой помощи!

Процедура экспорта в Excel, но при ее использовании помимо вывода моего диалога, также после него появляется стандартный диалог Access с запросом ввода того же параметра.
procedure TEmployeeIDReportDialog.EmployeeIDReport Export;
// формирование отчета по таб. номеру и экспорт в Excel
var
AccessApp: _Application;
EmployeeIDExportFileName: String;
begin
EmployeeIDExportFileName := ExtractFilePath(paramstr(0)) + 'Отчет по таб. номеру ' + IntToStr(EmployeeIDReportDialog.Employee ID) + '.xls';
try
AccessApp := CoAccessApplication.Create;
if AccessApp.Version >= '11' then
AccessApp.AutomationSecurity := 1; //1 = msoAutomationSecurityLow
AccessApp.OpenCurrentDatabase(ExtractFil ePath(paramstr(0)) + '\Permits.mdb', False, MainForm.DBPass);
AccessApp.DoCmd.OutputTo(acReport, 'Employees', 'Microsoft Excel (*.xls)',
EmployeeIDExportFileName, True, '', 0);
finally
AccessApp.CloseCurrentDatabase;
AccessApp.Quit(acQuitSaveNone);
end;
end;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.11.2010, 10:14
Ответы с готовыми решениями:

MsAccess - Экспорт отчета в Exсel (Delphi). Не могу разобраться.
Всем привет. Вопрос вот какой: Дано: База MS_ACCESS Есть ячейки с данными. Нужно выбрать из этих ячеек только определенные...

Создание отчета в Delphi связанным с БД Access
Подскажите, пожалуйста, с помощью каких компонентов можно создать отчет, предварительно выбрав необходимые поля в Delphi связанной с БД...

Экспорт таблиц Access в Excel через Delphi
Доброго времени суток! Произошло небольшое затруднение при экспорте таблицы Access. SQL запрос наверняка не подходит, но что вышло. ...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.11.2010, 10:14
Помогаю со студенческими работами здесь

Delphi 7 access экспорт данных толка строк в excel ?
Всем доброго, дня суток Создал Базу данных на Delphi 7 , Access некого предприятие тема моего дипломной работы проблема в чем: ...

Экспорт из таблицы access данных из определённых полей в файл .txt с разделителем используя delphi
Доброго времени суток. Долго искал, но не смог найти целостной картины по теме, возможно непопулярна. Если кто может помочь с синтаксисом...

Экспорт отчета из Access в jpg
Приветствую! Подскажите пожалуйста как выполнить экспорт одностраничного отчета в файл .jpg?? как задать имя файла на основании полей...

Экспорт отчета из Access в Excel
Нужна помощь в экспорте отчета из access в excel, как это программно осуществить на vba...не подскажите код

Экспорт отчета из access в excel
Доброго времени суток! Задача Нужно из Access экспортировать отчет в Excel, содержащий несколько полей из одной (главной) таблицы и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru