есть десяток ДБФок как входящие данные изменить что либо в них нет возможности.
Задача: загрузить эти ДБФ файлы в 1С
загружаю файлы через ADO т.к. нужно выполнить скульный запрос к ним.
Проблема: :) эти дбфки приходят из разных источников т.е. иногда в них кодировка досовская ( 866 ) - 90% случаев а иногда виндовая (1251). так вот досовский вариант загружается без проблем а виндовый вместо текста выдаются каракули. два дня рылся по всяким форумам нашел кучу строк подключения к этим дбфкам но нигде не написано как установить кодировку при подключении ну или при считывании инфы из recordset'a
мож здесь кто знает как это делается?

DeiMos?

(1) +1 )

ха ха ха

:)

наверх

перекодить?

чем ХBase не нравится?

Автор, смени ник, пожалуйста.

"два дня рылся по всяким форумам", а я за 2 минуты ответ нашел :)

БД=СоздатьОбъект("Xbase");
БД.ОткрытьФайл(СокрЛП(ИмяФайла));
Если БД.Открыта()=0 Тогда //Если не удалось открыть базу, создаем новую
  Предупреждение("Не удалось открыть файл");
  Возврат;
КонецЕсли;
БД.КодоваяСтраница(Кодировка);
Кодировка = 0 это окна
Кодировка = 1 это ДОС

(10) вниматочно читаем (0) (ну и (7))

(8) ок в следующий раз обязательно поменяю :)
(9)""два дня рылся по всяким форумам", а я за 2 минуты ответ нашел :)"
а не канает Xbase мне не все данные нужны а грузить все ДБФки ради 10% инфы не есть гуд. А эти 10% нужно из всех ДБФок вытаскивать

(12) Не знаю, как там xBase, но запятые канают - это точно. Ибо в противном случае читать приходится по 10 раз...

(12) короче, попробуй
ConnectionString = "DRIVER={Microsoft dBase Driver (*.dbf)}; DataCodePage = 'ANSI'"
не уверен я, что сработает, но все же

(14) увы не сработало :(

(8) улыбнуло :)
скоро по аналогии Uhi, aKompers должны появиться, это как китайская подделка :)

а за подделку ответишь :)

во-первых можно пользоваться функциями OemToAnsi и AnsiToOem,
во-вторых использовать драйвер Jet меняя ключ HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase\DataCodePage

(16) бич всех брэндов :)