Как перенести файл БД с одного компа на другой

← →
Misha (2002-12-11 10:36) [0]

Есть база, написанная на ACCESS 97, состоящая из одной таблицы
Требуется установить приложение для работы с ней и её саму на другом компе. Вопрос в том, как сделать, чтобы пользователь
после установки (копирования файлов на диск) мог бы с ней работать из того каталога, куда он её установил.
1)Как это сделать через BDE?
2)Как это сделать через ODBC?

← →
BorisUK © (2002-12-11 10:45) [1]

Сделай грамотную инсталляцию.
Каким инструментом пользоваться - посоветовать мало могу.
Install Shield Express юзал,
потом как потребовалось чтото посерьезнее нашел только Wise
Но по слухам Install Shield Professional очень замечательная и простая в использовании штука, вот только я её ломаную не нашел.
Вопрос дальше - может кто нашел где взять?
(хотя понимаю что здесь не форум по крякам)

← →
Misha (2002-12-11 11:22) [2]

Тогда другой вопрос, как програмно создать соединение с БД через ODBC, а затем связаться С TTable?

← →
DOOMin (2002-12-11 11:55) [3]

Работать через ADO. Соответственно тащить с собой MDAC и Jet. Оба есть на www.microsoft.com. Либо взять инсталлятор типа wise, там можно собрать это все в один пакет

> Misha (11.12.02 11:22)
> Тогда другой вопрос, как програмно создать соединение с
> БД через ODBC, а затем связаться С TTable?

Создать программно в реестре ODBC-шный DSN (ничего, что я жаргоном?). Вот примерчик, создает DSN "Access DSN", который потом можно указать в Database, Query, Table, etc. У меня это работает как минимум штук на 15 компьютерах, никто пока не жаловался.

reg := TRegistry.Create;
try
accessdll_path := GetSystemDir + "\ODBCJT32.DLL";
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey ("Software\ODBC\ODBC.INI\Access DSN", True);
reg.WriteString ("DBQ", "MyAccessDB.mdb");
reg.WriteString ("Driver", accessdll_path);
reg.WriteInteger ("DriverId", 25);
reg.WriteString ("FIL", "MS Access;");
reg.WriteInteger ("SafeTransactions", 0);
reg.WriteString ("UID", "");
reg.CloseKey;
reg.OpenKey ("Software\ODBC\ODBC.INI\Access DSN\Engines\Jet", True);
reg.WriteString ("ImplicitCommitSync", "");
reg.WriteInteger ("MaxBufferSize", 2048);
reg.WriteInteger ("PageTimeout", 5);
reg.WriteInteger ("Threads", 3);
reg.WriteString ("UserCommitSync", "Yes");
reg.CloseKey;
reg.OpenKey ("Software\ODBC\ODBC.INI\ODBC Data Sources", True);
reg.WriteString ("Access DSN", "Microsoft Access Driver (*.mdb)");
reg.CloseKey;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey ("SOFTWARE\ODBC\ODBCINST.INI\Microsoft Access Driver (*.mdb)", True);
reg.WriteString ("APILevel", "1");
reg.WriteString ("ConnectFunctions", "YYN");
reg.WriteString ("Driver", accessdll_path);
reg.WriteString ("DriverODBCVer", "02.50");
reg.WriteString ("DSN", "База данных MS Access 97");
reg.WriteString ("FileExtns", "*.mdb");
reg.WriteString ("FileUsage", "2");
reg.WriteString ("Setup", accessdll_path);
reg.WriteString ("SQLLevel", "0");
reg.WriteString ("UID", "Admin");
reg.WriteInteger ("UsageCount", 3);
reg.CloseKey;
reg.OpenKey ("Software\ODBC\ODBCINST.INI\ODBC Drivers", True);
reg.WriteString ("Microsoft Access Driver (*.mdb)", "Installed");
reg.CloseKey;
finally
reg.free;
end;

Как перенести файл БД с одного компа на другой Найти похожие ветки