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

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

Помогите создать новый Access файл. [D7, Access]


Sergilov ©   (2004-12-08 21:37:00) 

Если кто-то работал с 1С, то видел что при старте есть возможность создать новую базу данных. Данные для ADO соеденения хранятся в INI  файле, а как создать новвый Access файл? Нужную структуру я думаю ему можно потом задать через SQL запрос.  А как создать сам файл?


sniknik   (2004-12-08 23:30:00) [1]


function TDMod.CreateMDBBase(const BaseName: string): boolean;
var AdoEngine: Variant;
begin
 result:= false;
 try
   try
     AdoEngine:= CreateOleObject('ADOX.Catalog');
     AdoEngine.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetMdbName(BaseName)+';Jet OLEDB:Engine Type=5;');
     AdoEngine.ActiveConnection.Close;
     result:= true;
   except
     on E: Exception do DoIfError(E);
   end;
 finally
   AdoEngine:= Null;
 end;
end;


DoIfError это моя процедура


Наверх

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