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

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

使用UniDAC创建新数据库

1 个答案: