Открыть Dbase 4 через ADO

Форум » GUI » Открыть Dbase 4 через ADO » Ответить

Открыть Dbase 4 через ADO

krutoff: Может кому пригодится. Была задача открыть файл 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 и т.д )

Ответов - 2

Andrey: krutoff пишет: Может кому пригодится. Это интересно, но хотелось бы видеть самодостаточный пример. И зачем открывать DBF через ADO ?

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

полная версия страницы