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

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

Как из программы добавить алиас ODBC [D6, D7]

Андрей ©   (2003-05-23 05:18:00) 

Подскажите как это можно реализовать: из программы проверить существуетсли алиас "Last" если нет, то добавить алиас с этим именем и файлом "c:\Last\Last.mdb"?

---

AbrosimovA   (2003-05-28 13:51:00) [1]

Я делаю так:

Program Book;

uses
Forms,
Windows,
Registry,
SysUtils,
Classes,
DBTables,
Dialogs,
Module in "Module.pas" {DataModule1: TDataModule},
Data in "Data.pas" {MainForm};

{$R *.RES}

var L : TStringList;
Index: integer;
Flag2: boolean;

begin
Application.Title := "Список работников цеха";
with TRegistry.create do begin
Rootkey := HKEY_LOCAL_MACHINE;
if Not (OpenKey("SOFTWARE\BORLAND\DATABASE ENGINE",false)) then
MessageDlg("Для работы этой программы требуется установить"+
#13#10+"на этот компьютер Borland Database Engine (BDE).",
mtWarning, [mbOk], 0)
else begin
CFGFile := ReadString("CONFIGFILE01");
Free;
try
Application.CreateForm(TDataModule1, DataModule1);
except
MessageDlg("Ошибка настройки базы данных MyBase(Paradox)!!!",
mtWarning, [mbOk], 0)
end;
DataModule1.Session1.ConfigMode := cmPersistent;
L := TStringList.Create;
try
DataModule1.Session1.GetAliasNames(L);
for Index := 0 to L.Count - 1 do
if L.Strings[Index]="MyBase" then Flag2:=true;
if NOT(Flag2) then begin
L.Add("PATH="+ExtractFilePath(Application.Exename)
+"Data");
DataModule1.Session1.AddAlias("MyBase", "STANDARD", L);
DataModule1.Session1.SaveConfigFile;
end;
DataModule1.Book.Active:=true;
finally
L.Free;
end;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
end;

end.

---

SergeyI   (2003-05-23 11:06:00) [2]

Когда я столкнулся с подобной задачей я сделал это через реестр :о)
если вопрос актуален скажи

---

Наверх