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

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

Как создать программно *.mdb БД [D7, Access]

xazan ©   (2006-11-30 09:28:00) 

Здравствуйте! Кто знает как создать Access БД программно?

---

Jeer   (2006-11-30 14:23:00) [1]

1. экспорт, например из Excel в *.mdb
2. копирование существующего "безтабличного" *.mdb
....
N. Витийство.

---

Savek   (2006-11-30 10:10:00) [2]

То ли из DRKB то ли из DW5000 не помню уже, вот код

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 = 64;
begin
if not FileExists(FileName+'.mdb') then begin
 //DBEngine := CreateOleObject('DAO.DBEngine');
 DBEngine := CreateOleObject('DAO.DBEngine.36'); //For DAO 3.5
 Workspace := DBEngine.Workspaces[0];
 try
   Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);
 except on EOleException do
   ShowMessage('Database already exists');
 end;
 end;
end;


---

Наверх