| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрс по языковому ;драйверу [D5]

Yus ©   (2003-06-09 19:32:00) 

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

---

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

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

---

NickBat   (2003-06-17 13:56:00) [2]

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

---

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

Мона процедуркой сделать. Например:
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;

---

Rol   (2003-06-10 06:16:00) [4]

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

---

Наверх