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

本文介绍了一个用于测试数据库连接并创建数据库的函数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

转载于:https://www.cnblogs.com/lanbo/archive/2009/08/26/Installshield12_2.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值