Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поиск и вывод результатов в txt файл 
:(
    Опции темы
dada88
Дата 24.1.2012, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Добрый день, нужна помощь!

В архиве Пример.rar (Файл приложил в архиве) база db1 и два текстовых файла, файл 131314.txt создан макросом из db1, а файл 131314 – v2.txt – создан руками, для примера, как необходимо получить при экспорте данных из db1.

В базе db1 три таблицы:
t1 – исходная,
t2 – полученная запросом «Поиск повторений для t1 в t2»,
131314 - полученная запросом «Запрос 131314»

Два запроса:
Запрос «Поиск повторений для t1 в t2» – ищет повторы по полю «Waywoz6» в таблице t1, группирует их по возрастанию, считает кол-во повторений и результаты выгружает в таблицу «t2».
Запрос «Запрос 131314» - делает выборку данных из таблицы t1, по значению первому значению 131314 из таблицы t2 (представлен, для примера).

Макрос:
Макрос1 – делает экспорт данных из таблицы «131314» в txt файл.

Вопросы:
1.    Как автоматически сформировать все таблицы из t1, по найденным значениям из таблицы t2.Waywoz6 поле, как пример, таблица сделанная руками «131314», с именем таблицы = значению поиска в таблице t2. Waywoz6 поле?
2.    Как автоматически (условно, по одной кнопке) все сформированные таблицы экспортировать в формат txt, в необходимом виде (пример файл 131314 – v2.txt) с именем txt файла = имени таблицы в db1?

Т.е. «макрос» должен брать значение из t2.Waywoz6 поле, искать по этому значению в таблице t1 совпадения и результаты поиска по каждому значению поиска выводить в свою таблицу, с именем таблицы = значению поиска в таблице t2. Waywoz6. Потом данные из этих таблиц экспортировать в формате txt, без границ и разделителей строк и пр., через пробел.

Это сообщение отредактировал(а) dada88 - 24.1.2012, 17:27

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  example.rar 17,04 Kb
PM MAIL   Вверх
Akina
Дата 24.1.2012, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



http://forum.vingrad.ru/forum/topic-260944.html
Читаем. Выполняем.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
dada88
Дата 24.1.2012, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Сорри, поправил. Файл в архиве rar приложил.

Это сообщение отредактировал(а) dada88 - 24.1.2012, 17:28
PM MAIL   Вверх
bopoha
Дата 24.1.2012, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

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



Макросом???
Это делается на VBA.
Открываем таблицу, открываем/создаем текстовый файл и вперед выводить в нужном формате.
PM MAIL WWW ICQ Skype GTalk   Вверх
dada88
Дата 24.1.2012, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(bopoha @ 24.1.2012,  22:34)
Макросом???
Это делается на VBA.
Открываем таблицу, открываем/создаем текстовый файл и вперед выводить в нужном формате.

ммм понял, что на VBA (макросом не сделать), не понял только, как ) собрать данные из таблицы и вывести в нужном формате
PM MAIL   Вверх
Akina
Дата 24.1.2012, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


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

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



Шаблон кода:

Код

on error goto handler
open # for output
db=currentdb
rs=openrecordset dbtable
with rs
  .movefirst
  do until .eof
    print #, !fields
    .movenext
  loop
end with
close all



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

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


 




[ Время генерации скрипта: 0.0616 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.