Access - Обработка текстовых файлов

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
ВладимирВехов
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 17.08.2006 (Чт) 15:42
Откуда: Оренбург

Access - Обработка текстовых файлов

Сообщение ВладимирВехов » 17.08.2006 (Чт) 16:04

Программирование это не мой профиль, но нужда заставляет развиваться :)
Мои контрагенты присылают ежедневно отчет в виде текстового файла, где первые 11 строк это заголовок со всякой обобщающей информацией, а потом идут строки, где каждая строка содержит информацию о платеже: ФИО; Адрес; сумма, и пр.
Форму нарисовал, кнопочки прописал, а вот код с обработкой - проблема.

Если Вас не затруднит, пришлите фрагметы кода которые делают следующие действия:

1. Выбрать из папок на диске необходимый файл отчета для обратботки. Как открыть диалоговое окно ? Как передать из него полный путь к файлу в строковую переменную ? Как лучше считать и куда информацию из файла для обработки (массив из строк??) ?

2. После обработки очередной строки у меня появится значения переменных которые необходимо добавить в соответствующие поля связанных таблиц. Как сделать добавление новых записей ?

3. КАк найти запись в таблице по значению поля ? Т.е. есть справочник с двумя полями: Номер, Наименование. Надо найти номер по наименованию.

прошу прощения за чайниковские вопросы, мне надо от чего-то оттолкнуться. Последний раз я программировал в институте 8 лет назад на Паскале :)

HandKot
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 283
Зарегистрирован: 28.06.2006 (Ср) 13:34
Откуда: Sergiev Posad

Сообщение HandKot » 17.08.2006 (Чт) 16:58

как одно из решений

1. Выбрать из папок на диске необходимый файл отчета для обратботки. Как открыть диалоговое окно ? Как передать из него полный путь к файлу в строковую переменную ? Как лучше считать и куда информацию из файла для обработки (массив из строк??) ?

написать макрос с одной командой "Импорт" и по событию запускать его. Все данные из ТХТ-файла залить во временную таблицу

2. После обработки очередной строки у меня появится значения переменных которые необходимо добавить в соответствующие поля связанных таблиц. Как сделать добавление новых записей ?

либо запросами, либо посредством рекордсетов

3. КАк найти запись в таблице по значению поля ? Т.е. есть справочник с двумя полями: Номер, Наименование. Надо найти номер по наименованию.

мне кажется лучше всего запросом

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.08.2006 (Пт) 7:11

1. Поиск по GetOpenFileName или ShowOpen
2. Поиск по AddNew или INSERT
3. Поиск по Find или Seek
Lasciate ogni speranza, voi ch'entrate.

ВладимирВехов
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 17.08.2006 (Чт) 15:42
Откуда: Оренбург

Сообщение ВладимирВехов » 18.08.2006 (Пт) 7:38

В общем-то покопавшись в хелпе я нашел примерчик нужный мне

Private Sub Обзор_Click()
Dim fPath As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.AllowMultiSelect = False
.Show
End With
End Sub

Но выдается ошибка на строке Dim fd As FileDialog
"User-defined type not defined"

Как и где прописать требуемый тип ?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.08.2006 (Пт) 7:51

Этот пример, скорее всего, для Word или Excel.
Лучше поищи пример для GetOpenFileName.
Lasciate ogni speranza, voi ch'entrate.

ВладимирВехов
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 17.08.2006 (Чт) 15:42
Откуда: Оренбург

Сообщение ВладимирВехов » 18.08.2006 (Пт) 9:01

Я про GetOpenFileName вообще в справке не нашел, ни Аксеса, ни Бейсика.
А проблему с ошибкой я решил: подключил библиотеку через меня Редактора Бейсика.
Спасибо.


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList  
cron