用Installshield制作软件包常用的InstallScript -----2

5.测试制定的数据库连接是否可用，并创建数据库

prototype CheckConnection(STRING,STRING,STRING,BOOL);

function  CheckConnection(tsServerName,tsUserName,tsPassword,bWinAthMode)                            
  STRING  connstr, szADOCommObjID;  
  BOOL    bResult;  
  OBJECT  conn,pADOCommObj;
    
  begin
      try
      bResult = TRUE;     
       set conn = CreateObject("ADODB.Connection");  
       if !IsObject(conn) then  
           return FALSE;  
       endif;
   
       connstr = "";
        if bWinAthMode then //如果是window身份验证
          connstr = "Provider=SQLOLEDB.1;Initial Catalog=master;Data Source="+tsServerName+";Integrated Security=SSPI;";
        else//sqlserver身份验证
          connstr = "Provider=SQLOLEDB.1;Initial Catalog=master;Data Source="+tsServerName+";User ID="+tsUserName+";Password="+tsPassword+";";
        endif;
        conn.ConnectionString=connstr;
        conn.open();
        szADOCommObjID = "ADODB.Command";
        set pADOCommObj = CreateObject(szADOCommObjID);
     pADOCommObj.ActiveConnection = conn;
   //如果存在名为MyProject的数据库，删除之
     pADOCommObj.CommandText = "if exists(select 1 from master..sysdatabases where name='MyProject') drop database mgquotation";
     pADOCommObj.Execute();
   //创建名为MyProject的数据库
     pADOCommObj.CommandText = "CREATE Database MGQuotation;";
     pADOCommObj.Execute();
      catch       
          bResult = FALSE;
          set conn = NOTHING;
          set pADOCommObj = NOTHING; 
      endcatch;
      set   conn = NOTHING;
      set pADOCommObj = NOTHING;  
   return   bResult;  
  end;
用Installshield制作软件包常用的InstallScript -----3