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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Помогите! 
:(
    Опции темы
Milava
  Дата 20.6.2006, 03:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Кто знает, как вывести из таблица информацию в блокнот построково. Разделителем столбцов должен быть знак ; Кто хоть примерно знает - помогите!!!! smile  smile  
PM MAIL ICQ   Вверх
Akina
Дата 20.6.2006, 07:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Экспортом (создав соотв. спецификацию) или программно. 


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

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


Новичок



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

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



Я и пытаюсь программно, с помощью VBA. Я уже просто замучилась, но я просто никогда в ACCESS не составляла макросы. Поэтому я просто не знаю как обращаться к данным. К ячейкам не обратишься, со столбцами я не знаю как работать. А стандартный экспорт мне не нужен. Помогите, подскажите, как можно обращаться к таблице и вытаскивать из нее информацию по ячейкам. smile  
PM MAIL ICQ   Вверх
Akina
Дата 20.6.2006, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



приблизительно так:

Код

const Delim as string = ";"
dim db as database
set db = currentdb
dim rs as recordset
set rs = db.openrecordset("select * from MyTable")
dim filehandle as long
filenahdle = freefile
open "output.txt" for output as #filehandle 
with rs
   .movefirst
   do until .eof
      print #filehandle, !Field1; Delim ; !Field2; Delim ; !Field3
      .movenext
   loop
.close
close #filehandle 
end with
set rs = nothing
db.close
set db = nothing


Если тебе нужна конкретная таблица (не требуется запрос) - можешь указывать сразу ее в openrecordset - см. справку по методу.   

Это сообщение отредактировал(а) Akina - 20.6.2006, 10:13


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

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


Новичок



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

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



Спасибо большое. smile 
А можно немного по подолбнее и с коментариями? У мну просто уже скоро мозги всикпят, а понять так ничего и не могу  smile Хотя очень пытаюсь. 
PM MAIL ICQ   Вверх
Akina
Дата 20.6.2006, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

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



Строки 1,2,4,6 - определения констант (1) и переменных, используемых в процедуре.
Строка 3 выполняет подключение к базе данных, строка 5 - подключение к источнику данных (в коде - запрос в текстовой форме). Эти подключения будут сброшены строками 15 и 19, а объектные переменные очищены строками 18 и 20.
Строка 7 получает свободный номер файла, строка 8 откроет файл на запись, используя этот  номер. Файл будет закрыт строкой 16.
Строка 10 переводит указатель на первую запись, цикл 11-14 перебирает все записи по одной до конца набора записей, переход по записям выполняется в строке 13. Поля каждой записи выводятся в файл строкой 12.
Строки 9 и 17 позволяют упростить написание кода, не ссылаясь каждый раз на переменную набора записей. 


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

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.0446 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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