如果使用ADODB在Inno脚本中不存在，如何创建新目录数据库

编程问答 2022-06-03

问题描述

我正在尝试通过inno setup作为安装程序的一部分执行sql脚本。 sql脚本运行正常。下面是我的示例代码。

procedure RunScript();
var
 ADOCommand: Variant;
 ADOConnection: Variant;
begin
 try
 ADOConnection := CreateOleObject('ADODB.Connection'); 
 ADOConnection.ConnectionString := 
  'Provider=sqlOLEDB;' +               // provider
  'Data Source=localhost\SomeInstance;' +   // server name
  'Initial Catalog=SomeDB;' +
  'Application Name=Demo;' +
  'Integrated Security=sspI;';                   // password
 ADOConnection.Open;
 try
    ADOCommand := CreateOleObject('ADODB.Command');
    ADOCommand.ActiveConnection := ADOConnection;
    
    ExtractTemporaryFile('DatabaseScript.sql');
    //Execute script
    ExecuteScript(ExpandConstant('{tmp}{\}') + 'DatabaseScript.sql',ADOCommand);

 finally
  ADOConnection.Close;
 end;
 except
  MsgBox(GetExceptionMessage,mbError,MB_OK);
 end;
end;

我的要求是检查如果指定名称的数据库不存在，则应首先创建该数据库，然后执行上述代码。但是在这里，我必须提供目录名称，脚本将在该数据库上执行。

我要搜索的是

db := CreateOleObject('ADODB.Database');

是否可以使用inno设置脚本（pascal脚本）？

谢谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

adodbadodbapiinno-setuppascalpascalscript