Форум: "Базы";
Текущий архив: 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.009 c