Создать базы данных Access 2

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

// 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;

{/codecitation}

Добавить комментарий