51Testing软件测试论坛

标题: “Oracle(2-Tier)”协议 [打印本页]

作者: sharr    时间: 2008-9-9 14:26
标题: “Oracle(2-Tier)”协议
我选择“Oracle(2-Tier)”协议,手写写入了一段向数据库新增记录的脚本.,
打开Controll执行刚写入的脚本,抱错:You do not have a license for this Vuser type.
Please contact Mercury Interactive to renew your license。

各位大侠们,谁有“Oracle(2-Tier)”协议的license,提供一个给我!
作者: steelchen134    时间: 2008-9-9 16:05
试一下这个AEAMAUIK-YAFEKEKJJKEEA-BCJGI
另外你的脚本怎么写的能否共享一下
我的邮箱是steelchen134@126.com
在这里先谢过了
作者: lijian422202    时间: 2008-9-9 17:22
我来发一段简单的ORACLE的脚本
#include "lrd.h"

static LRD_INIT_INFO InitInfo = {LRD_INIT_INFO_EYECAT};

static LRD_DEFAULT_DB_VERSION DBTypeVersion[] =

{

       {LRD_DBTYPE_NONE, LRD_DBVERSION_NONE}

};
static LRD_CONNECTION   * Con1;
static LRD_CURSOR   *     Csr1;
Action()
{
lrd_init(&InitInfo, DBTypeVersion);

lrd_open_connection(&Con1, LRD_DBTYPE_ORACLE, "sso", "sso", "80", "", 0, 0, 0);
lrd_open_cursor(&Csr1, Con1, 0);

//lrd_open_cursor(&Csr1, Con1, 0);
lrd_stmt(Csr1, "insert into BASEUSER(oid,uuid) values ({NewParam},{NewParam})", -1, 0 /*Non deferred*/, 1 /*Dflt Ora Ver*/, 0);

lrd_exec(Csr1, 0, 0, 0, 0, 0);

lrd_stmt(Csr1, "insert into userinfo (oid,useroid,name,value) values ({NewParam},{NewParam},'nam{NewParam}','value')", -1, 0 /*Non deferred*/, 1 /*Dflt Ora Ver*/, 0);

lrd_exec(Csr1, 0, 0, 0, 0, 0);

/*

PrintRow2, 0);

lrd_close_cursor(&Csr1, 0);
*/

lrd_commit(0, Con1, 0);


lrd_close_connection(&Con1, 0, 0);

lrd_end(0);

        return 0;
}
作者: sharr    时间: 2008-9-11 17:20
标题: “Oracle(2-Tier)”协议
楼上朋友说要共享,我现在把它发到贴子上!
vuser_init()
{
        lrd_init(&InitInfo, DBTypeVersion);
        lrd_initialize_db(LRD_DBTYPE_ORACLE, 1, 0);
        lrd_env_init(LRD_DBTYPE_ORACLE, &OraEnv1, 0, 0);
        lrd_logon(OraEnv1, &OraSvc1, "wf98xx_wh", "wf98xx_wh", "wf98xx_wh", 0); //这是个ORACLE连接,连我自己的机器,服务是wf98xx_wh,用户是wf98xx_wh,密码是wf98xx_wh
        lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm1, 0);
        return VUSER_OK;
}
Action()
{

        static  unsigned long uliRowsProcessed;
       
               
        lrd_ora8_stmt(OraStm1, "insert into AO_CALC_MANUAL_TASK values(100,wfsysseq.nextval,{mease_id},62,-1,1215964800,1215964800,null,1215964800,1216051200,1,8,1,0)", 1, 0, 0);//查user_tables表
      
        lrd_ora8_exec(OraSvc1, OraStm1, 1, 0, &uliRowsProcessed, 0, 0, 0, 32, 0);
        return VUSER_OK;

   


         
}




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2