zoukankan      html  css  js  c++  java
  • InstallShield高级应用测试ORACL是否可连接

     实现原理:Oracle数据库连接是使用Microsoft ODBC for Oracle实现的。

    通过Oracle连接数据库字符串,使用“ADODB.Connection“对象,连接到Access数据库,通过是否可连接成功判断

    注意:当前电脑必包含ADODB.Connection个对象。

      

    源码:

    EXPORT prototype BOOL DB_CheckOraclerCon(BYREF STRING,BYREF STRING,BYREF STRING,BYREF STRING);
    //Driver={Microsoft ODBC for Oracle};Server=myServerAddress;Uid=myUsername;Pwd=myPassword;
    //Driver={Microsoft ODBC Driver for Oracle};ConnectString=OracleServer.world;Uid=myUsername;Pwd=myPassword;
    //============================================================//
    //function : DB_CheckOraclerCon //
    // //
    //purpose: 测试ORACL是否可连接 //
    // //
    //Argment: svServerName-Oracle连接服务名称 //
    // svUserName-登录帐号 //
    // svUserPassword-登录密码 //
    //return: TRUE -连接成功 FALSE - 连接失败 //
    //Remark: 本验证使用 Microsoft ODBC for Oracle 验证 //
    //============================================================//
    function BOOL DB_CheckOraclerCon(svServerName,svUserName,svUserPassword,szError)
    OBJECT pADOConnObj, pADORecordSetObj,pDBConObj;
    STRING szADOConnObjID, szADORecordSetObjID, szConnString, szSQL,svDriver;
    BOOL bExists;
    begin
    svDriver = "Microsoft ODBC for Oracle";
    bExists = FALSE;
    try
    // Create ADO Connection Object to connect to the SQL server
    szADOConnObjID = "ADODB.Connection";
    set pADOConnObj = CreateObject(szADOConnObjID);

    // Create the Oracle string to complete the connection
    szConnString = "driver={" + svDriver + "};";
    szConnString = szConnString + "server=" + svServerName + ";";
    szConnString = szConnString + "uid=" + svUserName + ";";
    szConnString = szConnString + "pwd=" + svUserPassword + ";";
    //szConnString = szConnString + "database=master";

    // Open the ADO Connection
    pADOConnObj.Open(szConnString);
    bExists = TRUE;
    catch
    Sprintf(szError,"Error:Number:%d;",Err.Number);
    szError = szError +"Desc:"+Err.Description;
    bExists = FALSE;
    //Clean up
    set pADOConnObj = NOTHING;
    endcatch;
    set pADOConnObj = NOTHING;
    return bExists;
    end;

    作者:chhuic

    出处:http://chhuic.cnblogs.com
    本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

  • 相关阅读:
    自动化:Appium运行成功,取得一个小的胜利
    调优案例1
    HTTP请求方式中8种请求方法(简单介绍)
    Java中基本类型和引用类型(简单介绍)
    @WebListener 注解方式实现监听(eclipse和idea)
    Git免密码提交
    在idea配置jetty和创建(包、文件)javaWeb以及Servlet简单实现
    emmet工具使用和技巧
    Markdown基本语法总结
    viewport原理和使用和设置移动端自适应的方法(移动适应电脑)
  • 原文地址:https://www.cnblogs.com/chhuic/p/2495614.html
Copyright © 2011-2022 走看看