Проблема с DBF

← →
studentik © (2002-07-19 01:36) [0]

Есть файл kredit.dbf досовского формата. Подключаясь вижу нечитаемый текст.
Вопрос: Как подключаясь из программы организовать Alias с указанием пути к файлу и LANGDRIVER?

Приму любую помощь, будь-то решение через BDE или ADO компоненты.
В ADO использовал следующие параметры подключения:

Provider=MSDASQL.1;Persist Security Info=False;
Extended Properties="DSN=Файлы dBASE;
DBQ=C:\WORK\BASES;DefaultDir=C:\WORK\BASES;
DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;
PageTimeout=5;";Initial Catalog=C:\Work

← →
Виталий Панасенко (2002-07-19 09:05) [1]

Через АДО: установи значение свойства Font->CharSet=OEM_CHARSET
Через БДЕ: BDEAdmin->Configuration->Drivers->Native->dBase->LangDriver="bBASE RUS cp866"+LEVEL=3

← →
studentik © (2002-07-20 04:48) [2]

to Виталий Панасенко
Спасибо, через BDE получилось, но вопрос состоял в том, чтобы это сделать из программы.
Кроме того возникли вопросы:
Что за параметр LEVEL, в чем его суть?
Свойство Font, где оно находится?
Если Font у DBGrid, то я не собирался его использовать.
Кстати, эксперементировал с этим свойством в D6 под Win2000 и D5 под Win98Se и во втором случае свойство Charset у DBGrid`a не влияло!?
Впрочем для ADO свойство Font можно не трогать, если изменить настройки через BDEAdmin, а если не изменить, то и Font DBGrid`a не помогает.

← →
DAO © (2002-07-20 06:44) [3]

Ипспользуй функцию OemConvert

ЗЫ:
--Впрочем для ADO свойство Font можно не трогать, если изменить настройки через BDEAdmin, а если не изменить, то и Font DBGrid`a не помогает.--

Не понял зачем тебе BDE если у тебя есть OLE DB (ADO)...

← →
Desdechado © (2002-07-20 18:44) [4]

из программы используй Session

← →
studentik © (2002-07-22 05:20) [5]

to Desdechado
Как не вертел Sesion, а смог открыть лишь указав путь через BDEAdmin.
Если есть проектик соответсвующий вопросу, плз поделитесь.

to DAO
Функцию OemConvert?
По справке OEMConvert - property : Boolean.
И как им пользоваться?

← →
IlyaA (2002-07-22 10:35) [6]

Есть неплохая ф-я OemToChar, какраз конвертит OEM кодировку в Win1251. Сам недавно писал конвертор для Fox-х баз. Нужен был Import из старой проги в новую

var dbLio: TDatabase; // в нем прописываешь путь к базе {--- настройка параметров сессии ---} Session.ConfigMode := cmSession; cDatabase := StringOfChar( #0, 1024 ); if( GetTempPath( 1024, PChar( cDatabase ) ) <> 0 ) then begin SetLength( cDatabase, Pos( #0, cDatabase ) - 1 ); Session.PrivateDir := cDatabase; end; cDatabase := ""; liDriverParam := TStringList.Create(); liDriverParam.Add( "OPEN MODE=READ/WRITE" ); liDriverParam.Add( "LANGDRIVER=" + cLangDriver ); if( cDriver <> "STANDARD" ) then liDriverParam.Add( "SQLQRYMODE=SERVER" ); Session.ModifyDriver( cDriver, liDriverParam ); liDriverParam.Free; {--- попытка соединения с БД ---} with( dbLio ) do begin DriverName := cDriver; Params.Add( "SERVER NAME=" + cDatabase ); Params.Add( "USER NAME=" + Trim( cLogin ) ); Params.Add( "PASSWORD=" + Trim( cPassword ) ); try Connected := True; result := True; except ShowWarning( rc_ServerNotConnected + #13#10 + cDatabase ); end; end; // with

Проблема с DBF Найти похожие ветки