如何解决如果使用ADODB在Inno脚本中不存在,如何创建新目录数据库
我正在尝试通过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 举报,一经查实,本站将立刻删除。