使用UniDAC创建新数据库

Question

我一直在努力使用一个允许用户为我的应用创建新数据库的功能 它必须是一个通用函数，因为一些使用MS Access，一些SQLite和其他MySQL

我花了好几个小时查看提供的演示，但没有找到任何有用的东西

我想要做的是创建一个新的数据库，给定以下参数：提供者，服务器，端口，用户，密码，数据库名称（或文件名）

我有以下创建MS Access的功能 但它没有成功。

Calling it by   SQLConfigDataSource(0, 1, 'Microsoft Access Driver (*.mdb)','CREATE_DB="' + DatabaseName + '"')

Function SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;
  lpszDriverString: string; lpszAttributes: string): Integer; stdcall;
var
  func : TSQLConfigDataSource;
  ODBCHModule: HMODULE;
begin
  ODBCHModule := LoadLibrary('odbccp32.dll');
  if ODBCHModule = 0 then
    raise Exception.Create(SysErrorMessage(GetLastError));
  func :=  GetProcAddress(ODBCHModule,PChar('SQLConfigDataSource'));
  if @func = nil then
    raise Exception.Create('Error Getting adress for SQLConfigDataSource' + SysErrorMessage(GetLastError));

  Result := func(hwndParent, fRequest, lpszDriverString, lpszAttributes);
  FreeLibrary(ODBCHModule);
end;

Answer 1

1. SQLite - 只需打开一个数据库。如果它不存在则会创建它。
2. MySQL - 您需要连接服务器。然后执行CREATE DATABASE <name>命令。
3. Microsoft Access - 这取决于您使用的组件。我不知道UniDAC。但是使用ODBC执行SQLConfigDataSource(0, ODBC_ADD_DSN, '<driver name>', 'CREATE_DB=<db path>')。