Конвертация в mdb

[claymen]

Вот необходимо переконвертировать текстовый файл в Access mdb. Можно ли это сделать? Пробовал таким способом:

Код: Выделить всё

Close: Open "c:\source.txt" For Input As #1
Do While Not EOF(1)
Data1.Recordset.AddNew
Line Input #1, ReadData
Text1.Text = left$(ReadData, 1,  5)
Text2 = Mid(ReadData, 6, 5)
Text3.Text = Mid(ReadData, 12, Len(ReadData))
Loop: Close


На форме имеются 3 текстовых поля и один Data.
ВБ говорит о ошибке 3426. Искал по форуму, но не смог найти вразумительного ответа.

Можно ли обойтись без текстовых полей и напрямую указывать, что надо записывать? Если нет, то как исправить ошибку 3426?
Когда просто добавляю свои данные в эти поля (не из файла), то все идет, а данные из файла не хочет добавлять, почему?

[BasiС]

Вот необходимо переконвертировать текстовый файл в Access mdb. Можно ли это сделать? Пробовал таким способом:

Код: Выделить всё

Close: Open "c:\source.txt" For Input As #1
Do While Not EOF(1)
Data1.Recordset.AddNew
Line Input #1, ReadData
Text1.Text = left$(ReadData, 1,  5)
Text2 = Mid(ReadData, 6, 5)
Text3.Text = Mid(ReadData, 12, Len(ReadData))
Loop: Close


На форме имеются 3 текстовых поля и один Data.
ВБ говорит о ошибке 3426. Искал по форуму, но не смог найти вразумительного ответа.

Можно ли обойтись без текстовых полей и напрямую указывать, что надо записывать? Если нет, то как исправить ошибку 3426?
Когда просто добавляю свои данные в эти поля (не из файла), то все идет, а данные из файла не хочет добавлять, почему?

Не вдаваясь в тонкости того что не получается, могу по сабжу порекомендовать подключиться к *.txt файлу через ADO и дальше SQL запросом SELECT * INTO... перекинуть все данные в *.mdb Это будет гораздо быстрее чем читать файл построчно.

Как подключиться к *.txt читаем здесь: http://www.connectionstrings.com/

[claymen]

Ошибку нашел. Из-за не совпадения длины полей

Код: Выделить всё

LEN(Text1.Text) NOT = LEN(Соответсвующее поле в БД)


И потому, что небыло первой записи в БД.
И все равно, читать текстовый файл построчно очень долго. Можно ли это обойти. Пробовал экспортировать текстовый файл в БД через VisData (Import/Export), но выходит ошибка 3051

[Денис]

Это будет гораздо быстрее чем читать файл построчно.

И все равно, читать текстовый файл построчно очень долго.

claymen
Ты не читаешь, что тебе пишут, да?

[claymen]

Денис

Ты не читаешь, что тебе пишут, да?

Очень даже хорошо читаю, этот способ мне не приемлемен.