Здравствуйте, TolikLuzin! Вы писали:
T> Подключил dbf из VB 6.0
T> CnDBF.ConnectionString = "DSN=Файлы dBASE"
T> CnDBF.Open
T> CnDBF.DefaultDatabase = "D:\1\"
T> rsDBF.Open "table.DBF", CnDBF
T> rsDBF.Filter = "Code = 12"
T> S = rsDBF.fields("Name").Value
T> А в S
T> содержить типо: ‚Z‘’Z—?Z-‘????‘S?‰ ???S ‘?…????S? ?”
T> OemToCharBuff и CharToOEMBuff не помогают. Надо вернуть человеческий
T> текст.
Как вариант:
найти утилиту cpzero (входит в VFP6) и установить правильную codepage для dbf. Или руками поставить в хекседиторе. Смещения и циферек волшебных я не помню за давностью лет....
А в какой кодировке данные в dbf?
Posted via RSDN NNTP Server 1.7 "Bedlam"