Не открыть текстовый файл как базу, если расширение не txt

[dimix]

Вроде все просто. Делаю так:

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

    Dim db As Connection
    Dim RS As Recordset
    Set db = New ADODB.Connection
    Set RS = New ADODB.Recordset
       
    db.CursorLocation = adUseClient

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & "D:\1\" & _
    ";Extended Properties='text;HDR=NO;FMT=Delimited'"

    Set RS.ActiveConnection = db

   RS.Open "SELECT * FROM 1.txt", , adOpenStatic, adLockReadOnly, adCmdText


И все работает, пока файл называется 1.txt. Но стоит его переименовать в 1.ttt (и естественно изменить в RS.Open) - работать перестает. Пишет: "Обновление невозможно. База данных или объект доступны только для чтения".

В чем причина? Как победить?

[FaKk2]

IMHO, потому что текстовый файл зарегистрирован наряду с файлами MDB в качестве источника данных. Поэтому если ты используешь другое расширение, источник уже не распознается как текстовый.

[dimix]

И что же теперь делать? Я не могу переименовывать исходный файл. А можно ли его зарегистрировать как источник данных?

[Twister]

Почему не можешь?...

[lord0n]

пропиши его расширение по аналогии с тхт

[dimix]

Почему не можешь?...

Не умею файлы переименовывать . Да просто файл создается другой программой и нужен не только моей программе. Это лог, а я просто хочу его смотреть своей прогой.

пропиши его расширение по аналогии с тхт

Да уже пробовал - не помогло.

[Prickly]

Какова структура файла (просто текстовый или бинарник)

[dimix]

Текстовый, с EOL, разделитель ;

[lord0n]

еще один тупой способ:
открыть программно excel`ем, преобразовать в екселевский файл и открыть его как базу

[dimix]

Не круто. Мне нужно оперативно просматривать этот лог. А значит всякие преобразования, копирования, изменения расширения и т.д. и т.п. не подходят. Или ты предлагаешь это делать "на лету", без сохранений?