Re: ADO + DBF
Hello Антон,
Friday, February 4, 2005, 12:51:16 PM, you wrote:
АГ> Здравствуйте, все.
АГ> Вопрос вот в чем:
АГ> Код:
АГ> 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;
АГ> При проходе по циклу получаю нужные мне значения(тип обоих строка), но
АГ> отражаются "крякозябры". Я так понимаю проблема с кодировкой.
АГ> В доке не нашел такого параметра ...
АГ> Как ее решить?
АГ> Заранее спасибо!
ADO юзать не приходилось, но думаю, это либо дрова поддержки БД
глючат, либо на сервере отключена поддержка кирилицы - надо настроить.