sharr 发表于 2008-9-9 14:26:54

“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:43

试一下这个AEAMAUIK-YAFEKEKJJKEEA-BCJGI
另外你的脚本怎么写的能否共享一下
我的邮箱是steelchen134@126.com
在这里先谢过了

lijian422202 发表于 2008-9-9 17:22:26

我来发一段简单的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:18

“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()
{

      staticunsigned 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;

   


         
}
页: [1]
查看完整版本: “Oracle（2-Tier）”协议