powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
14 сообщений из 14, страница 1 из 1
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550552
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Текстовый файл:
данные1, данные2, данные3
данные1, данные2, данные3
данные1, данные2, данные3
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550565
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не понятно, при чем тут rs?

Чем вам импорт не угодил?
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550580
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дело в том, что кроме данных из файла нужно проставлять в таблицу еще Имя папки, и номер файла по расширению(001, 002, 003...)
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550595
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 KV
Ну и что, сначала импорт данных, потом Update таблицы - или импорт во временную, а потом запросом в основную с дополнительными полями.
В любом случае, быстрее намного, чем по рекордсету ходить в файле с большим кол-вом записей:)
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550601
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Папка - имя 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
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550636
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ты через dao или ado хочешь?
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550644
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. Подключить любой текстовый файл, как связанную таблицу.
2. В цикле, перечисляющем текстовые файлы
2.1. Изменить Connection связаной таблицы, на текущее имя файла
2.2. Запрос на добавление из прилинкованной таблицы в результирующую с передачей в качестве парамерта имени файла и вывода его, как значения одного из полей.
2.3. Конец цикла
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550648
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 raur
в принципе без разницы, лишь бы работало
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550672
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
на самом деле разница есть,
если через дао то проще:

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
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550675
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 marvan
Файлы не совсем готовы их нужно еще обрабатывать
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550681
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 raur
Наоборот нужно добавлять в таблицу...
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550693
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это сложнее, я бы считавал по символьно. определяешь кол-во записей (n) на каждую ячейку табл. и считываешь из файла по n символов на ячейку табл. мы делали так.
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32550839
Фотография KV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Еще такой вопрос:
А как просмотреть список папок в текущей директории?
Список файлов в директории я могу просмотреть
...
Рейтинг: 0 / 0
Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
    #32551061
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
из 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
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как можно при помощи Recordseta добавлять данные из текстового файла в таблицу?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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