Как прочесть dbf в 866 кодировке? (+)

[Kundor]

Задача такая - прочитать периодически заменяемую базу в dbf формате dBaseIV. Я попробовал сделать так:
===
Set conn = New ADODB.Connection
Dim RST As New ADODB.Recordset
Path = "c:\Projects\CommPlat\"
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
ConnectionString = "Data Source=" + Path + ";Extended Properties=DBASE IV"
conn.Open (ConnectionString)
ComText = "Select * from LS"
RST.ActiveConnection = conn
RST.Open ComText, conn
StartForm.FIOText = RST!fio
===
в итоге в текстовом поле получаю кракозябры вместо русских букв . подскажите - как справится с этим?

[HandKot]

Попробуй вместо Microsoft.Jet.OLEDB.4.0 использовать VisualFoxPro driver

либо используй ODBC

[Kundor]

пробовал..
==
Set oConn = New ADODB.Connection
Set oRS = New ADODB.Recordset
oConn.Open "Driver={Microsoft Visual FoxPro driver};SourceType=DBF;SourceDb=c:\Projects\CommPlat\;"
Set oRS.ActiveConnection = oConn
oRS.CursorType = adOpenKeyset
oRS.LockType = adLockOptimistic
oRS.Open "select * from ls"
==
на последней команде получаю сообщение:
"Драйвер ODBC не поддерживает требуемые свойства"
мож что не так написал я ?

[HandKot]

а если так

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

"Provider=VFPOLEDB.1;Data Source=C:\1;Password='';Collating Sequence=MACHINE"

или тута
http://bbs.vbstreets.ru/viewtopic.php?t=2308&sid=a638cf7016aad1076df7d3321d8a1cf8

а вообще, ПОИСК рулит, такие вопросы постоянно на форумах всплывают

[Andrey Fedorov]

Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBASE IV;Data Source=C:\DBF\MY.DBF

29-ый байтик DBF-файла указывает на его кодировку. Для 866-ой странички он должен быть равен 0.

[Kundor]

Нечто вообще странное получается. Посмотрел одним dbf-viewer-ом эту базу - смотрю - а она в русском изображается с пометкой ansi.
приписал в проект такой код:
Public Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Dim source As String, destination As String

Public Function T2T(sourcestring)
destination = Space(Len(sourcestring))
rc = CharToOem(sourcestring, destination)

смотрю destination - а там должна быть фамилия имя отчество - так всё переведено на русский нормально, за исключением больших первых букв - они латинские
в чём прикол с этой базой???

[Nicky]

...CharToOem...

тут вообще не к месту. Или байт править, или перебрось все в mdb и любуйся

[Kundor]

Дело в том, что эта база в таком виде будет часто присылаться извне, потому хотелось бы написать лучше код, который будет принимать её как есть.
А заодно вопросик- не подскажете кода, который бы изменил этот байтик? пжалуйста..

[Nicky]

Кстати стало интересно: если прилинковать dbf к mdb и смотреть как таблицу в mdb, это дело не полечится само собою?

[Kundor]

На данный момент это вылечилось так: у меня в total commander прикручен какой-то вьювер dbf - так в нём, копаясь в этой базе обнаружил пункт в меню - Convert. Нажал - он спрашивает " Произвести конвертацию?" в итоге минут 5 лопатил он базу и после этого - мой проект открывает её без проблем, всё на русском. Что там конвертор изменил - не знаю.. Но ессно хотелось бы самому в код прописать нужные изменения базы - потому как не хочу зависеть от стороннего софта.

[blinow]

Скачай с Microsofta "Microsoft OLE DB Provider for Visual FoxPro 9.0"