Создать базы данных AccessDelphi , Базы данных , AccessСоздать базы данных Access
Оформил: DeeCo // Using ADOX: uses ComObj; // You can with ADOX (Microsoft ADO Extensions for DDL and Security), function CreateAccessDatabase(FileName: string): string; var cat: OLEVariant; begin Result := ''; try cat := CreateOleObject('ADOX.Catalog'); cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';'); cat := NULL; except on e: Exception do Result := e.message; end; end; procedure TForm1.Button1Click(Sender: TObject); begin CreateAccessDatabase('c:\Testdb.mdb'); end; Статья Создать базы данных Access раздела Базы данных Access может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |