Отправлено: 13.05.21 13:38. Заголовок: Открыть Dbase 4 через ADO

Может кому пригодится. Была задача открыть файл DBF 4, и сконвертировать большие memo-поля в формат DBF3.
Открывать через ADO не получалось, пришлось сделать изменения в ...miniGui\SOURCE\AdoRDD\adordd.prg:

CASE Lower( Right( aOpenInfo[ UR_OI_NAME ], 4 ) ) == ".dbf"
aWAData[ WA_CONNECTION ]:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + cFilePath(aOpenInfo[ UR_OI_NAME ]) + ";Extended Properties='dBASE IV';User ID=Admin;Password=;" )
aWAData[ WA_TABLENAME ] := cFileNoExt(aOpenInfo[ UR_OI_NAME ])

Теперь файл откылся. Но через ADO структура файла показывается по-другому.( type: "B", "M:BUE", dec: всегда=0 и т.д )

 Отправлено: 13.05.21 18:27. Заголовок: krutoff пишет: Може..

krutoff пишет:

цитата:

Может кому пригодится.

Это интересно, но хотелось бы видеть самодостаточный пример.
И зачем открывать DBF через ADO ?

 Отправлено: 14.05.21 11:20. Заголовок: Зачем - файл DBase4 ..

Зачем - файл DBase4 просто без ADO через USE не открывает.

После этой корректировки пример очень прост:
USE (dbfFile) VIA "ADORDD" ALIAS ('T1') NEW CODEPAGE('RU866') EXCLUSIVE // Dbase 4 через ADORDD
Но, несмотря на codepage, открывает в кодировке 1251.