Access Вывод данных из таблицы в файл. Дополнительный вопрос

Программирование на Visual Basic for Applications
Brodaga
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 24.01.2008 (Чт) 15:50

Access Вывод данных из таблицы в файл. Дополнительный вопрос

Сообщение Brodaga » 24.01.2008 (Чт) 16:03

Добрый день. У меня следующая проблема
В Access 2002 есть таблица, в ней - 2 поля - P1 и P2
Необходима процедура, которая бы выводила в текстовый файл данные из таблицы в виде:

Идентефикатор: <Значение P1>
Описание: <Значение P2>

Каким образом можно это решить?

Заранее благодарен
Последний раз редактировалось Brodaga 25.01.2008 (Пт) 2:55, всего редактировалось 1 раз.

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 24.01.2008 (Чт) 17:54

Используй функцию Open

Код: Выделить всё
Open OutFile.txt For Output as #1


и так далее. RTFM, кароч.
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

Brodaga
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 24.01.2008 (Чт) 15:50

Сообщение Brodaga » 24.01.2008 (Чт) 17:59

Денис писал(а):Используй функцию Open

Код: Выделить всё
Open OutFile.txt For Output as #1


и так далее. RTFM, кароч.


Это я энаю.. :( А вот как вытащить информацию из таблицы?

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 24.01.2008 (Чт) 18:46

Если в аксцессе, и не вдаваясь в такие штуки как ADO и DAO и прочую камасутру, вытягивай методом DoCmd.GoToRecord
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.

Brodaga
Начинающий
Начинающий
 
Сообщения: 3
Зарегистрирован: 24.01.2008 (Чт) 15:50

Сообщение Brodaga » 25.01.2008 (Пт) 3:04

Итак спасибо, все получилось. Однако возникла следущая трудность:
Строка для вывода в файл:
Print #1, "Id:"; [op_d]; "37"
Выдает результат:
Id: 174 37
тогда как в этой строке пробелы совершенно ненужны.

Неужели есть только один выход - после генерации файла удалять пробелы?

Заранее благодарен

Денис
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2734
Зарегистрирован: 07.11.2006 (Вт) 13:55
Откуда: Ейск, Краснодарский край

Сообщение Денис » 25.01.2008 (Пт) 9:00

Код: Выделить всё
Print #1, "Id: " & CStr([op_d]) &  "37"


Ой, давайте сделаем код более понятным:
Код: Выделить всё
Dim S1 as String

...

S1 = "Id: " & CStr([op_d]) &  "37"
Print #1, S1
Программирование — богоизбранная дисциплина! Если бог и есть, то вселенную он скомпилировал, не иначе.


Вернуться в VBA

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

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

    TopList