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

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

програмное создание БД Access [D7, Access]

Std ©   (2006-05-12 02:15:00) 

Доброго времени суток. Подскажите пж как мне програмно создать файл БД аксеса?
Мне необходимо каждую неделю создавать файл бд(имя фйла задает пользователь) и выгружать в эту бд инфу.
создание таблицы в бд и заполнение таблицы то не проблема, а вот как создать программно файл с бд хз. поиски в Инете ничем не увенчались :(

---

Desdechado   (2006-05-12 11:46:00) [1]

ну разве что...

---

Sergey13   (2006-05-12 11:40:00) [2]

2[4] Desdechado ©   (12.05.06 11:37)
Почему. Например экспорт/репликация куда-то с недельной периодичностью.

---

Desdechado   (2006-05-12 11:37:00) [3]

БД на неделю - что-то неладно в датском королевстве

---

Savek   (2006-05-12 09:07:00) [4]

Еще вариант из и-нета:

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;


---

Sergey13   (2006-05-12 08:59:00) [5]

2 Std ©   (12.05.06 02:15)
Заведи файл-болванку с пустой БД и копируй его.

---

Alarm   (2006-05-12 08:33:00) [6]

http://www.swissdelphicenter.ch/en/showcode.php?id=2297

---

Наверх