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

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

Как создать файл БД 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;
Может кто знает чего за параметры передаются ?
И как задать пароль и юзера ?
А то файл то создался, а открыть его нельзя ... :-/


Наверх

Титульная страница Поиск, карта сайта Написать письмо