Форум: "Базы";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Вниз

Как из программы добавить алиас ODBC   Найти похожие ветки 

← →
Андрей   (2003-05-23 05:18) [0]

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

---

← →
SergeyI   (2003-05-23 11:06) [1]

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

---

← →
AbrosimovA   (2003-05-28 13:51) [2]

Я делаю так:

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.

---

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

Форум: "Базы";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c