Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.10;
Скачать: CL | DM;

Вниз

Вопрс по языковому драйверу   Найти похожие ветки 

 
Yus   (2003-06-09 19:32) [0]

Подключил базу данных через "BDE Administrstor", установил яз. драйвер. Все работает, но только на моем компьютере, т.к ссылка
Table.DataBaseName="a1". Как от этого уйти или установить драйвер вручную???


 
Rol   (2003-06-10 06:16) [1]

И что за БД? А вообще на св-во DatabaseName компонента TDatabase помощь очень детальная.


 
tramp   (2003-06-17 13:49) [2]

Мона процедуркой сделать. Например:
procedure Tdm.SetLangDrive;
var
MyStringList: TStringList;
Session: TSession;

const
dBaseLANGDRIVER: string = "LANGDRIVER=db866ru0"
begin
Session := TSession.Create(Self);
Session.AutoSessionName := True;
Session.Active := True;
MyStringList := TStringList.Create;
try
Session.GetConfigParams ("\DRIVERS\DBASE\INIT","", MystringList);
if MystringList.IndexOf(dBaseLANGDRIVER)=-1 then begin
MystringList.Clear;
MystringList.Add(dBaseLANGDRIVER);
Session.ModifyDriver("DBASE",MyStringList);
Session.SaveConfigFile;
App.MessageBox("Произведена замена языкового драйвера!!!",mb_OK + MB_ICONEXCLAMATION);
end;
except
On Err: Exception do begin
App.ShowErrorMessage(Err);
App.MessageBox("Проблемы при проверке параметров драйверов BDE!"+#13#10+
"Должно быть установленно BDE 5.0 или выше,"+#13#10+
"Проверьте установку параметров и версию BDE с помощью утилиты BDEADMIN.EXE",mb_OK + MB_ICONERROR);

end;
end;
Session.Active := False;
MyStringList.Free;
Session.Free;
end;



 
NickBat ©   (2003-06-17 13:56) [3]

А на соседнем компьютере есть BDE?


 
tramp   (2003-06-18 15:43) [4]

Мдя... вопрос, действительно, не в языковом драйвере :) Насколькоя а понимаю, ты используешь dBase, а не ODBC? Скорее всего BDE просто не установлено.



Страницы: 1 вся ветка

Текущий архив: 2003.07.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-31250
ViJen
2003-06-26 10:55
2003.07.10
Округление


3-31093
Falendysh
2003-06-15 20:51
2003.07.10
Возникает ошибка Missing Right Quote


1-31289
TDIONIS
2003-06-25 19:32
2003.07.10
Фильтр


14-31461
rosl
2003-06-24 06:02
2003.07.10
ini


14-31432
Igor_thief
2003-06-22 21:40
2003.07.10
Browsers