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

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

Как программно создать базу данных Access с помощью Delphi [D5, D6, Access]

velk ©   (2002-04-23 09:29:00) 

Как программно создать базу данных Access с помощью Delphi

---

DenNNis   (2002-04-23 12:54:00) [1]

компонент KADAO

---

handra   (2002-04-23 10:05:00) [2]

Так создается файл БД:

procedure CreateMSAccessDB(filename : String);
var DBEngine, Workspace: Variant;
const {Important to use the following constant as is}
dbLangGeneral = ";LANGID=0x0409;CP=1252;COUNTRY=0";
dbVersion30 = 32;
begin
DBEngine := CreateOleObject("DAO.DBEngine");
{DBEngine := CreateOleObject("DAO.DBEngine.35"); For DAO 3.5}
Workspace := DBEngine.Workspaces[0];
try
Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);
except
on EOleException do
ShowMessage("Database already exists");
end;
end;

Далее подключаемся к БД и формируем командами SQL необхрдимые объекты.

---

Наверх