ADO + DBF
Здравствуйте, все.
Вопрос вот в чем:
Код:
Connection = CreateObject("ADODB.Connection");
ConnectionString = "
|DefaultDir=D:\ANTON_WORK\_1C_77\BASE_WORK\АКХЗ;
|DBQ=D:\ANTON_WORK\_1C_77\BASE_WORK\АКХЗ;
|driver={Driver do Microsoft dBase (*.dbf)};
|DriverId=533;FIL=dBase 5.0;
|MaxBufferSize=2048;MaxScanRows=8;
|PageTimeout=600;SafeTransactions=0;
|Statistics=0;Threads=3;UserCommitSync=Yes;";
Connection.Open(ConnectionString);
Cmd = CreateObject("ADODB.Command");
Cmd.ActiveConnection = Connection;
Cmd.CommandText = "
|SELECT CODE,DESCR FROM `SC869`
|";
Rs = CreateObject("ADODB.RecordSet");
Rs = Cmd.Execute;
Rs.MoveFirst();
While Rs.EOF() = 0 do
Rs.MoveNext();
EndWhile;
При проходе по циклу получаю нужные мне значения(тип обоих строка), но
отражаются "крякозябры". Я так понимаю проблема с кодировкой.
В доке не нашел такого параметра ...
Как ее решить?
Заранее спасибо!
Hello Антон,
Friday, February 4, 2005, 12:51:16 PM, you wrote:
ADO юзать не приходилось, но думаю, это либо дрова поддержки БД
глючат, либо на сервере отключена поддержка кирилицы - надо настроить.