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

最新推荐文章于 2025-08-13 17:42:51 发布

转载最新推荐文章于 2025-08-13 17:42:51 发布 · 120 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lanbo/archive/2009/08/26/Installshield12_2.html

文章标签：

#数据库

本文介绍了一个用于测试数据库连接并创建数据库的函数CheckConnection。该函数通过不同的身份验证方式连接到指定的服务器，并尝试创建一个名为MyProject的数据库。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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