请教： 数据库 为 SQL SERVER 2000 我用备份语句，把数据库 mydatabase 备份 (注 ：mybackup 是我建立的备份设备） backup database mydatabase to mybackup 现在我要打包，希望在客户安装时，把数据库 mydatabase 也能安装上去，（在 客户已经安装了 sql server 2000 的情况下） 各位大哥，在打包的时候我应该写那些东西啊？ 谢谢！

各位大哥， 是不是 服务器端安装时，还必须写个小程序， 这个小程序，首先判断 要安装数据库的那台计算机 有没有安装 sql server 2000 ，然后，就把备份文件 恢复到 sql server 2000 各位大哥 ，判断 有没有安装 sql server 2000 要怎么写语句啊？ 谢谢！

像 c/s 这种模式的程序，打包的时候，是不是需要打两个 一个是：安装数据库的（也就是附加数据库） 另一个就是，用户使用的程序 是不是这样啊？

Hi, 可以使用 innosetup 5.1.4 新版本的打包工具, 目前已經能支持 ole automation 了, 如此一來便能方便地在打包作業中檢測 sql server 是否有安裝, 及將資料庫新增進去的作業了, 請參考    http://www.jrsoftware.org/    下載 5.1.4 版本後, 裡面有個 sample 檔名為 codeautomation.iss 中的一段,

var
  SQLServer, Database, DBFile, LogFile: Variant;
  IDColumn, NameColumn, Table: Variant;
begin
  if MsgBox('Setup will now connect to Microsoft SQL Server '''   SQLServerName   ''' via a trusted connection and create a database. Do you want to continue?', mbInformation, mb_YesNo) = idNo then
    Exit;      { Create the main SQLDMO COM Automation object }      try
    SQLServer := CreateOleObject('SQLDMO.SQLServer');
  except
    RaiseException('Please install Microsoft SQL server connectivity tools first.'#13#13'(Error '''   GetExceptionMessage   ''' occurred)');
  end;      { Connect to the Microsoft SQL Server }      SQLServer.LoginSecure := True;
  SQLServer.Connect(SQLServerName);
  
  MsgBox('Connected to Microsoft SQL Server '''   SQLServerName   '''.', mbInformation, mb_Ok);      { Setup a database }      Database := CreateOleObject('SQLDMO.Database');
  Database.Name := 'Inno Setup';
  
  DBFile := CreateOleObject('SQLDMO.DBFile');
  DBFile.Name := 'ISData1';
  DBFile.PhysicalName := 'c:\program files\microsoft sql server\mssql\data\IS.mdf';
  DBFile.PrimaryFile := True;
  DBFile.FileGrowthType := SQLDMOGrowth_MB;
  DBFile.FileGrowth := 1;      Database.FileGroups.Item('PRIMARY').DBFiles.Add(DBFile);      LogFile := CreateOleObject('SQLDMO.LogFile');
  LogFile.Name := 'ISLog1';
  LogFile.PhysicalName := 'c:\program files\microsoft sql server\mssql\data\IS.ldf';      Database.TransactionLog.LogFiles.Add(LogFile);
  
  { Add the database }      SQLServer.Databases.Add(Database);      MsgBox('Added database '''   Database.Name   '''.', mbInformation, mb_Ok);      { Setup some columns }      IDColumn := CreateOleObject('SQLDMO.Column');
  IDColumn.Name := 'id';
  IDColumn.Datatype := 'int';
  IDColumn.Identity := True;
  IDColumn.IdentityIncrement := 1;
  IDColumn.IdentitySeed := 1;
  IDColumn.AllowNulls := False;      NameColumn := CreateOleObject('SQLDMO.Column');
  NameColumn.Name := 'name';
  NameColumn.Datatype := 'varchar';
  NameColumn.Length := '64';
  NameColumn.AllowNulls := False;
  
  { Setup a table }      Table := CreateOleObject('SQLDMO.Table');
  Table.Name := 'authors';
  Table.FileGroup := 'PRIMARY';
  
  { Add the columns and the table }
  
  Table.Columns.Add(IDColumn);
  Table.Columns.Add(NameColumn);      Database.Tables.Add(Table);      MsgBox('Added table '''   Table.Name   '''.', mbInformation, mb_Ok);
end;

timhuang 大哥 太感谢您了~~ 谢谢！