Создать базы данных Access 2Delphi , Базы данных , AccessСоздать базы данных Access 2
Оформил: DeeCo // Using ODBC: const ODBC_ADD_DSN = 1; // Add data source ODBC_CONFIG_DSN = 2; // Configure (edit) data source ODBC_REMOVE_DSN = 3; // Remove data source ODBC_ADD_SYS_DSN = 4; // add a system DSN ODBC_CONFIG_SYS_DSN = 5; // Configure a system DSN ODBC_REMOVE_SYS_DSN = 6; // remove a system DSN ODBC_REMOVE_DEFAULT_DSN = 7; // remove the default DSN function SQLConfigDataSource(hwndParent: HWND; fRequest: Word; lpszDriver: LPCSTR; lpszAttributes: LPCSTR): BOOL; stdcall; external 'ODBCCP32.DLL'; function CreateDB(const Database: string): Boolean; begin Result := SQLConfigDataSource(0, ODBC_ADD_DSN, 'Microsoft Access Driver (*.mdb)', PChar('CREATE_DB=' + Database + ' General'#0)); end; procedure TForm1.Button2Click(Sender: TObject); begin CreateAccessDatabase('c:\Testdb.mdb'); end; В статье описывается создание базы данных Access 2 с использованием ODBC и драйвера Microsoft Access Driver (*.mdb) в программировании на языке Delphi. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |