Как при инсталляции создать БД для приложения (MS SQL)?
В inno setup есть возможность работы с OLE Объектами. Таким образом? при установленном SQL Server можно через SQL-DMO сделать все что угодно вот пример attach базы и установки dts (код записывается в процедурку и выполняется после копирования файлов):
var
SQLServer, Database, DBFile, LogFile, objPkg: Variant;
begin
try
SQLServer := CreateOleObject('SQLDMO.SQLServer');
except
RaiseException(ExceptionType, Необходимо сначала установить SQL server Microsoft SQL Server .'#13#13'(Error '''+ExceptionParam+''' occured)');
end;
SQLServer.LoginSecure := True;
SQLServer.Connect(server_name); //server_name - имя сервера
try
SQLServer.DetachDB(base_name,True) //base_name - имя базы
except
end;
SQLServer.AttachDB(base_name,'['+ExpandConstant('{app}')+'\basedata +'] , ['+ExpandConstant('{app}')+'\baselog+']') //basedata - имя файла mdf; baselog- имя файла ldf
//Далее идет установка и настройка dts пакета
objPkg := CreateOleObject('DTS.Package');
objPkg.LoadFromStorageFile(ExpandConstant('{app}')+'\DTS\exportdb.dts','','','','');
objPkg.GlobalVariables.item('dbsource').value := base_name;
objPkg.GlobalVariables.item('sourceserver').value := server_name;
objPkg.GlobalVariables.item('destserver').value := server_name;
objPkg.SavetoSQLServer(server_name,'','',256,'','','',false);