Архив форумов ЦИТФорума

[Elisavetta]

Привет,
передо мной стоит такая задача. Много директорий, которые внутри содержат файлы с одинаковыми названиями,
например:
Dir1: 20-10-01.log
21-10-01.log
и т.д.
dir2: 20-10-01.log
21-10-01.log
22-10-01.log
и таких директорий больше десятка и в каждой будет до сотни файлов, а внутри каждого файла дата, время и какой-то текст.

Я импортирую эти файлы а Access в одну таблицу. Нужно, чтобы таблица содержала Дату, Время, Текст и название директории. И ключем у меня будет Название директории и дата.

Все хорошо, но как сделать так, чтобы название директории вписывалось в поле таблицы?

Я так понимаю, что при помощи VB я должна открывать свои log-файлы, считывать оттуда весь текст, потом его каким-то образом разносить по полям в таблице Access.

Подскажите мне пожалуйса хотя бы идею, как это делается.

[Шошков Николай]

Я напишу, как это сделать с помощью объектов DAO, т.к. с ними лучше работать с Access.
1. В Accesse создайте таблицу с соответсвующими полями, запомните названия полей Table, а также создайте запрос для выборки необходимых полей из этой таблицы Query. (Query = "Select dir, date,... from Table" или просто "Select * from Table")
1.В VBA подключите референсы для DAO objects 3.5 или 3.6
2.объявите переменные
dbs as Dao.database
qry as dao.querydef
rs as dao.recordset
3. Дальше подключаемся к базе
set dbs = opendatabase"", (тут я забыл порядок подключения, гляньте в справке. возможно придется настроить пользовательский DSN. Надо указать путь к базе, драйвера и т.д.)
Кстати эту задачу вполне можно делать в среде Access на встроенном VB, благо операции с файлами вам будут доступны
Тогда операция подключения к базе будет совсем проста
dbs=CurrentDB()
2.Потом подключаемся к таблице в базе через запрос (так удобнее всего)
set qry = dbs.querydefs("Query")
3.теперь получаем данные
set rs = qry.openrecordset
Эти данные мы можем редактировать
4. Добавление записи (она предварительно считана из файла с помощью ваше процедуры)
rs.addrecord
rs![Dirname]= strDirName 'Dirname - Это название поля в таблице TableName
rs![DateValue] = dtDate 'нельзя в качестве имени поля использовать Date, т.к. это системная функция, но можно русские названия)
добавляете все поля
и сохраняет изменени
rs.Update
Все запись сохранилась.

[Elisavetta]

Спасибо большое пребольшое! Я уже написала процедуру, все заработало, но Ваши рекомендации я учту.