![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как создать файл БД Access динамически ? [D5, Access]
UnDISCOvery © (2002-07-26 12:24:00)Можно ли создать БД Акцесс динамически ? Например какимнить запросом типа CREATE DATABASE ?
UnDISCOvery (2002-07-26 13:24:00) [1]Нашел вот такую процедурку ...
procedure CheckBase;
var
DBEngine, Workspace: Variant;
const {Important to use the following constant as is}
dbLangGeneral = ";LANGID=0x0409;CP=1252;COUNTRY=0";
dbVersion30 = 32;
begin
if not FileExists(BaseDir+"\svnBase.mdb") then begin
//DBEngine := CreateOleObject("DAO.DBEngine");
DBEngine := CreateOleObject("DAO.DBEngine.36"); {For DAO 3.6}
Workspace := DBEngine.Workspaces[0];
try
Workspace.CreateDatabase(BaseDir+"\svnBase.mdb",
dbLangGeneral, dbVersion30);
except
on EOleException do ShowMessage("Database already exists");
end;
end;
Может кто знает чего за параметры передаются ?
И как задать пароль и юзера ?
А то файл то создался, а открыть его нельзя ... :-/