Install Shield制作安装包技巧(SQL篇)

对SQL数据库的操作我们首先要判断SQL Server是否安装，然后启动SQL Server。

再通过osql.exe执行SQL语句进行数据库操作。 下面是针对这几种操作的一些函数：

 

1、检查SQL Server是否安装

 

prototype CheckSQL();          

function CheckSQL()

       BOOL bSuccess;

       NUMBER nType, nvSize;

       STRING szVer;

       STRING szSetupVer, szSetupPath;

begin

       RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );

       szSetupPath = "SOFTWARE//Microsoft//MSSQLServer//Setup";

       szSetupVer = "SOFTWARE//Microsoft//MSSQLServer//MSSQLServer//CurrentVersion";

       //获取SQL Server版本

       nType = REGDB_STRING;

       if (RegDBGetKeyValueEx ( szSetupVer, "CurrentVersion" , nType , szVer , nvSize ) < 0) then

              bSuccess = FALSE;

       else

              //获取SQL Server安装路径

              if (RegDBGetKeyValueEx ( szSetupPath, "SQLPath" , nType , szSQLPATH , nvSize ) < 0) then

                     bSuccess = FALSE;

              else

                     bSuccess = TRUE;

              endif;

       endif;

      

       return bSuccess;

end;

 

2、检查SQL Server版本号，是否安装了SP3

prototype CheckSQLVersion();   

function CheckSQLVersion()

       BOOL bSuccess;

       NUMBER nType, nvSize;

       STRING szVer;

       STRING szSetupVer;

begin

    RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE ); 

    bSuccess = FALSE;

    szSetupVer = "SOFTWARE//Microsoft//MSSQLServer//MSSQLServer//CurrentVersion";

    nType = REGDB_STRING;

      if (RegDBGetKeyValueEx ( szSetupVer, "CSDVersion" , nType , szVer , nvSize ) < 0) then

              bSuccess = FALSE;

       else

           if szVer = '8.00.761' then

               bSuccess = TRUE;

           endif;

       endif;        

    return bSuccess;

end;

 

3、启动SQL Server服务器

prototype StartSQLServr(STRING, STRING);         

                                //传入用户名,用户密码

 

function StartSQLServr(szLoginName, szPassword)

       BOOL bSuccess;

       VARIANT objSQL;

begin

       objSQL = CreateObject("SQLDMO.SQLServer");

       if IsObject(objSQL) then

              try

                     try

                            objSQL.Start(TRUE, "(Local)", szLoginName, szPassword);

                     catch

                            objSQL.Connect("(Local)", szLoginName, szPassword);

                     endcatch;

              catch

                     bSuccess = FALSE;

                     return bSuccess;

              endcatch;

       else

              bSuccess = FALSE;

              return bSuccess;

       endif;

   

    if objSQL.VerifyConnection then

           bSuccess = TRUE;

    else

           bSuccess = FALSE;

    endif;

   

    return bSuccess;

end;

 

4、检查数据库是否已经存在

prototype IsExistDB(STRING, STRING, STRING);     

                                                        //传入用户名,用户密码,数据库名

function IsExistDB(szLoginName, szPassword, szDBName)

       BOOL bExist;

       NUMBER i;

       STRING szTemp;

       VARIANT objSQL;

begin

       objSQL = CreateObject("SQLDMO.SQLServer");

      

       objSQL.Connect("(Local)", szLoginName, szPassword);

      

       bExist = FALSE;

       for i = 1 to objSQL.Databases.Count

              StrToUpper(szTemp, objSQL.Databases.Item(i).Name);

              if (szTemp == szDBName) then

                     bExist = TRUE;

                     return bExist;

              endif;      

       endfor;

      

       return bExist;

 

end;

 

5、删除数据库

prototype DeleteDB(STRING, STRING, STRING);         

                                                        //传入用户名,用户密码,数据库名

function DeleteDB(szLoginName, szPassword, szDBName)

       STRING szSQL;

      

begin

      

    szSQL = "declare @dttm varchar(55) /n"

                + "select  @dttm=convert(varchar,getdate(),113)/n"

             + "raiserror('Beginning Check Database at %s ....',1,1,@dttm) with nowait /n"

             + "GO /n"

             + "use master /n"

             + "go /n"

             + "if exists (select * from sysdatabases where name='" + szDBName + "') /n"

             + "begin /n"

             + "raiserror('Dropping existing " + szDBName + " database ....',0,1) /n"

             + "  DROP database " + szDBName + "/n"

             + "end /n"

             + " GO /n"

             + "CHECKPOINT /n"

             + "go /n";  

            

 

    if !ExecuteSQL(szLoginName, szPassword, szSQL) then

       return FALSE;

    endif;    

  

    return TRUE;

   

end;