Innosetup连接mysql_inno setup 附加数据库方法

inno setup 附加数据库方法

[Code]

{--- SQLDMO ---}

const

SQLServerName = '(local)';

SQLDMOGrowth_MB = 0;

procedure InstallDb();

var

SQLServer, Database, DBFile, LogFile: Variant;

IDColumn, NameColumn, Table: Variant;

FlagDbExist:Boolean;

FileName1, Filename2,DbName,DbPath:String;

begin

//;if MsgBox('安装程序现在将通过一个可信任的连接到 Microsoft SQL 服务器 ''' + SQLServerName + ''' 并创建一个数据库。你想继续吗？', mbInformation, mb_YesNo) = idNo then

// Exit;

{ 创建主 SQLDMO COM 自动操作对象 }

try

SQLServer := CreateOleObject('SQLDMO.SQLServer');

except

RaiseException('未安装数据库服务器，先请安装 Microsoft SQL Server 服务器。'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');

exit;

end;

{ 连接到 Microsoft SQL 服务器 }

DbName:='KfHis_std_a';

//私营版

SQLServer.LoginSecure := True;

SQLServer.Connect(SQLServerName);

//MsgBox('已连接到 Microsoft SQL 服务器 ''' + SQLServerName + '''.', mbInformation, mb_Ok);

{ 安装数据库 }

FlagDbExist:=True;

Database := CreateOleObject('SQLDMO.Database');

try

Database := SQLServer.Databases.Item(DbName);

except

FlagDbExist:=False;

end;

if FlagDbExist=False then

else

exit; {数据库已安装}

FileName1:= ExpandConstant('{drive:{app}}/Data')+'/KFHIS.mdf';

Filename2:= ExpandConstant('{drive:{app}}/Data')+'/KFHIS_log.ldf';

{附加数据库}

dbPath:= FileName1+' , '+Filename2;

try

SQLServer.AttachDB(DBName, dbPath);

except

MsgBox('数据库安装失败！', mbInformation, mb_Ok);

exit;

end;

MsgBox('数据库安装成功！', mbInformation, mb_Ok);

end;

function InitializeSetup(): Boolean;

begin

{ MsgBox('aa', mbInformation, mb_Ok); }

Result:=True;

end;

function NextButtonClick(CurPageID: Integer): Boolean;

begin

{ if CurPageID=wpInfoAfter then

begin

MsgBox('pageid'+inttostr(CurPageID),mbInformation, mb_Ok);

InstallDb();

end; }

Result:=True;

end;

procedure CurStepChanged(CurStep: TSetupStep);

begin

if CurStep=ssPostInstall then

begin

InstallDb();

CreateDir(ExpandConstant('{app}/Datalink'));

FileCopy(ExpandConstant('{app}/DefLink.udl'),ExpandConstant('{app}/Datalink/DefLink.udl'),True);

end;

end;