Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу? / 14 сообщений из 14, страница 1 из 1
07.06.2004, 12:47
    #32550552
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Текстовый файл:
данные1, данные2, данные3
данные1, данные2, данные3
данные1, данные2, данные3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 12:50
    #32550565
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Не понятно, при чем тут rs?

Чем вам импорт не угодил?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 12:54
    #32550580
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Дело в том, что кроме данных из файла нужно проставлять в таблицу еще Имя папки, и номер файла по расширению(001, 002, 003...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 12:58
    #32550595
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
2 KV
Ну и что, сначала импорт данных, потом Update таблицы - или импорт во временную, а потом запросом в основную с дополнительными полями.
В любом случае, быстрее намного, чем по рекордсету ходить в файле с большим кол-вом записей:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:00
    #32550601
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Папка - имя 1, имя2, имя3...
В ней файлы file.001, file.002, file.003...

Нужно добавить в таблицу:

1 1 Данные1 Данные2 Данные3
1 2 Данные1 Данные2 Данные3
1 3 Данные1 Данные2 Данные3
2 1 Данные1 Данные2 Данные3
2 2 Данные1 Данные2 Данные3
2 3 Данные1 Данные2 Данные3
3 1 Данные1 Данные2 Данные3
3 2 Данные1 Данные2 Данные3
3 3 Данные1 Данные2 Данные3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:15
    #32550636
raur
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
ты через dao или ado хочешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:17
    #32550644
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
1. Подключить любой текстовый файл, как связанную таблицу.
2. В цикле, перечисляющем текстовые файлы
2.1. Изменить Connection связаной таблицы, на текущее имя файла
2.2. Запрос на добавление из прилинкованной таблицы в результирующую с передачей в качестве парамерта имени файла и вывода его, как значения одного из полей.
2.3. Конец цикла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:17
    #32550648
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
2 raur
в принципе без разницы, лишь бы работало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:27
    #32550672
raur
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
на самом деле разница есть,
если через дао то проще:

Dim b As Database
Dim t2 As TableDef
Dim r2 As Recordset
Dim tabl As String

Set b = CurrentDb()

Set t2 = b.TableDefs("...")
Set r2 = t2.OpenRecordset

r2.MoveFirst
While Not r2.EOF
считываешь записи с таблицы
open"...твой файл" for append as #1
write #1, "..."
close #1
wend
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:27
    #32550675
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
2 marvan
Файлы не совсем готовы их нужно еще обрабатывать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:29
    #32550681
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
2 raur
Наоборот нужно добавлять в таблицу...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 13:36
    #32550693
raur
raur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
это сложнее, я бы считавал по символьно. определяешь кол-во записей (n) на каждую ячейку табл. и считываешь из файла по n символов на ячейку табл. мы делали так.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 14:40
    #32550839
KV
KV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Еще такой вопрос:
А как просмотреть список папок в текущей директории?
Список файлов в директории я могу просмотреть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2004, 16:09
    #32551061
marvan
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
из VBA-help
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
 ' Возвращает список каталогов на диске C:.
 
MyPath = "c:\"	 ' Указывает путь.
 
MyName = Dir(MyPath, vbDirectory)	 ' Возвращает первый элемент.
 
Do While MyName <> ""	 ' Начинает цикл.
 
	 ' Игнорирует текущий каталог и каталог предыдущего уровня.
 
	If MyName <> "." And MyName <> ".." Then
		 ' Использует поразрядное сравнение для проверки того,
 
                 ' является ли MyName каталогом.
 
		If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
			Debug.Print MyName	 ' Выводит элемент только в том 
 
		End If	 ' случае, если это каталог.
 
	End If
	MyName = Dir	 ' Возвращает следующий элемент.
 
Loop
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу? / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 636ms
Закрыть
start [/forum/search_topic.php?author=DAlvi&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 9ms
get forum list:
 22ms
get settings:
 12ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 442ms
total:  636ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]