码迷,mamicode.com
首页 > 数据库 > 详细

LR之Oracle 2tier协议录制Oracle脚本

时间:2020-11-12 13:59:29      阅读:13      评论:0      收藏:0      [点我收藏+]

标签:tac   绑定   ora   scope   unix   RoCE   use   多个   string   

在一次测试中,需用到sql去查询Oracle数据,并去使用改数据时,查阅各种资料终于实现LoadRunner对Oracle数据库进行操作,分享给大家,也与大家共同进步~   同时也可用Loadrunner进行oracle数据库压力测试的时候,可以选择oracle 2tier协议进行录制。

一、如果选择录制脚本的话,

  1、vugen会生成以下这些跟其他协议不同的文件:

    vdf.h

    作用:定义各种变量

    print.inl

    作用:打印表格使用的函数。录制脚本时才有用,写脚本的话没有用

    pre_cci.c

    作用:整个录制脚本的程序全部写在这里,可以在这里查看完整的函数过程

  2、录制脚本的好处

    需要的东西什么都有了。只要找到要执行的sql。然后将其中的sqltext部分参数化掉就可以了。

    select时生成的几个表格不错。可以在上面完成参数的保存和将搜索的结果保存成dat文件。用起来还是比较直观的

  3、录制脚本不好的地方

    使用plsql或者toad这样的工具录制出来的脚本有很多的操作就是测试中不需要的。对于不了解lr脚本的用户来说这些东西会造成一些麻烦。了解的话把这些不需要的语句都去掉就行了。

二、如果选择自己写脚本的话

需要用到以下这些语句

#include "lrd.h"

//定义各种变量。录制生成的脚本中,这些变量的定义在vdf.h中。
static LRD_INIT_INFO InitInfo = {LRD_INIT_INFO_EYECAT};
static LRD_DEFAULT_DB_VERSION DBTypeVersion[] =
{
        {LRD_DBTYPE_NONE, LRD_DBVERSION_NONE}
};

Action()
{
//变量定义
static void FAR * OraEnv1;
static void FAR * OraSvc1;
static void FAR * OraSes1;

static void * OraDef12;
static void * OraDef13;
static void * OraDef14;

static unsigned long    uliRowsProcessed;
static unsigned long    uliFetchedRows;
    
//LRD_VAR_DESC数据结构声明是很重要的,他是用来存储sql结果数据集的结构体
//第一个参数,头文件中就是这么写的
//第二个参数,设置结果集中最大行数,在lrd_ora8_fetch中的第二个参数如果大于该值,则会报错。
//第三个参数,设置结果集中每一行的最大长度,如果获得的查询结果比定义的长,运行时就会报错,提示列被截断
//最后一个参数是查询结果的类型,可以再帮助中的索引输入data types, database,列出的表格中是各种变量类型的名称
//常用的数据类型有DT_VARCHAR, DT_DECIMAL, DT_DATETIME, DT_SF, DT_SZ, DT_NUMERIC    
static LRD_VAR_DESC NAME_D13 =
{"LVD", 15, 25, 0, {1, 1, 0}, DT_VARCHAR};
static LRD_VAR_DESC VAL2_D1 =
{"LVD", 15, 25, 0, {1, 1, 0}, DT_NUMERIC};
static LRD_VAR_DESC VAL1_D1 =
{"LVD", 15, 25, 0, {1, 1, 0}, DT_VARCHAR};

//初始化数据库部分
lrd_init(&InitInfo, DBTypeVersion);
lrd_initialize_db(LRD_DBTYPE_ORACLE, 2, 0);
lrd_env_init(LRD_DBTYPE_ORACLE, &OraEnv1, 0, 0);
lrd_ora8_handle_alloc(OraEnv1, SERVER, &OraSrv1, 0);
lrd_ora8_handle_alloc(OraEnv1, SVCCTX, &OraSvc1, 0);
lrd_ora8_handle_alloc(OraEnv1, SESSION, &OraSes1, 0);

//连接数据库
lrd_server_attach(OraSrv1, "1.155", 5, 0, 0);
lrd_ora8_attr_set_from_handle(OraSvc1, SERVER, OraSrv1, 0, 0);

//设定数据库密码
lrd_ora8_attr_set(OraSes1, USERNAME, "im", -1, 0);
lrd_ora8_attr_set(OraSes1, PASSWORD, lr_decrypt("4a90de5201be6597554e"), -1, 0);

//初始化连接session
lrd_ora8_attr_set_from_handle(OraSvc1, SESSION, OraSes1, 0, 0);

//开始执行事务
lrd_session_begin(OraSvc1, OraSes1, 1, 0, 0);
lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm7, 0);

//提交sql
lrd_ora8_stmt(OraStm7, "select userid, username, gender, name from userinfo where userid = 1", 1, 0, 0);

//执行sql
//第三个参数,执行次数
//第四个参数,跳过记录数
//第五个参数,返回执行影响的行数
//第九个参数,设置执行模式,0是默认值执行(不提交),16不执行,32代表执行且自动提交
//第十个参数,设置警告级别,0是默认值,代表错误,1代表警告
lrd_ora8_exec(OraSvc1, OraStm7, 1, 0, &uliRowsProcessed, 0, 0, 0, 32, 1);

//列绑定,如果不进行列绑定,lrd_ord8_fetch 将不能用。
lrd_ora8_bind_col(OraStm7, &OraDef9, 1, &USERID_D10, 0, 0);
lrd_ora8_bind_col(OraStm7, &OraDef10, 2, &USERNAME_D11, 0, 0);
lrd_ora8_bind_col(OraStm7, &OraDef11, 3, &GENDER_D12, 0, 0);
lrd_ora8_bind_col(OraStm7, &OraDef12, 4, &NAME_D13, 0, 0);

//设置列属性
lrd_ora8_attr_set(OraDef10, CHARSET_FORM, "1", -1, 0);
lrd_ora8_attr_set(OraDef12, CHARSET_FORM, "1", -1, 0);

//获取结果集
//第二参数,如果是0返回最后一行,如果是负数则返回全部结果集,如果是整数则返回该数目的结果集行数(该整数小于结果集中定义的行数)
//第三个参数,是控制RrintRow返回的结果集数。
//第四个参数,返回查询结果集行数
//第五个参数,是回调函数,用于打印返回的结果集
lrd_ora8_fetch(OraStm7, 0, 15, &uliFetchedRows, PrintRow8, 0, 0, 0);

//释放连接
lrd_handle_free(&OraStm7, 0);

//关闭连接session
lrd_session_end(OraSvc1, OraSes1, 0, 0);

//释放数据库资源
lrd_server_detach(OraSrv1, 0, 0);

//释放环境资源
lrd_handle_free(&OraEnv1, 0);

return 0;
}

(三)Oracle中常用函数的用法

lrd_ora8_exec(OraSvc1, OraStm7, 3, 0, &uliRowsProcessed, 0, 0, 0, 32, 1);

//将返回结果中的某个单元格中的传入参数供使用,它的使用方式类似注册函数,需要在fetch前调用,fetch后才能看到结果,行和列都从1开始。这里返回第4列、第一行的值
lrd_ora8_save_col(OraStm7, 4, 1, 0, "value");
   
lrd_ora8_fetch(OraStm7, 0, 15, &uliFetchedRows, PrintRow8, 0, 0, 0);
   
lr_output_message("value is %s", lr_eval_string("{value}"));

-------------------------------------------------------

//这里的倒数第二个参数如果设置为0,代表光执行不提交事务,那么我们可以配合使用lrd_ora8_commit提交事务
lrd_ora8_exec(OraSvc1, OraStm7, 3, 0, &uliRowsProcessed, 0, 0, 0, 0, 1);

lrd_ora8_commit(OraSvc1, 0, 0);

-------------------------------------------------------

//要查看返回的结果集,必须设置log属性为extended log 且勾选data returened by server时,才能看到结果
lrd_ora8_print(OraStm7, PrintRow8);

-------------------------------------------------------

//rowid这个函数不是随便用的,只有在进行了insert、update后才可以用,普通使用select查询后使用lrd_ora8_save_last_rowid是无效的
lrd_ora8_save_last_rowid(OraStm7, "rowid");
lr_output_message("rowid is %s", lr_eval_string("{rowid}"));

-------------------------------------------------------

//变量绑定操作,如果绑定了多个变量,那么在调用exec的时候也需要指定执行多次,据说采用这种方式进行参数化的效率比直接sql进行参数化的效率高
lrd_ora8_stmt(OraStm7, "insert into testtable values(:V2, :V1)", 1, 0, 0);

//变量绑定
lrd_assign(&VAL1_D1, "abc", "", 0, 0);
lrd_assign(&VAL1_D1, "def", "", 1, 0);
lrd_assign(&VAL1_D1, "ghi", "", 2, 0);

lrd_assign(&VAL2_D1, "123", "", 0, 0);
lrd_assign(&VAL2_D1, "456", "", 1, 0);
lrd_assign(&VAL2_D1, "789", "", 2, 0);

//绑定变量操作符
lrd_ora8_bind_placeholder(OraStm7, &OraDef13, "V1", &VAL1_D1, 0, 0, 0);
lrd_ora8_bind_placeholder(OraStm7, &OraDef14, "V2", &VAL2_D1, 0, 0, 0);

//由于变量绑定了3条记录,那么在执行的时候也需要执行三次
lrd_ora8_exec(OraSvc1, OraStm7, 3, 0, &uliRowsProcessed, 0, 0, 0, 32, 1);

 

三、录制脚本步骤:

  1、首先本地必须要安装LoadRunner吧^~^...  其中也必要有oracle客户端;

  2、在oracle客户端的网络配置Net Manager中,配置数据库网络服务名,例如:"25_devel",用于连接数据库。同plsql中登录中的数据库名。

技术图片

  3、LR选择Oracle(2-Tier)协议,选择Win32录制程序,程序路径选择oracle应用程序中SQL Plus程序的路径中"sqlplus.exe"程序,

技术图片

  4、调用SQL Plus后,出现该界面,输入:数据库用户/密码@服务名,即可成功进入数据库,执行数据库命令即可;

技术图片

  5、退出数据库,结束录制脚本。

 

大家可参考我调试的脚本:

/* -------------------------------------------------------------------------------
	Script Title       : 
	Script Description : 
                        
                        
	Recorder Version   : 8859
   ------------------------------------------------------------------------------- */

vuser_init()
{

	lrd_init(&InitInfo, DBTypeVersion);
	lrd_initialize_db(LRD_DBTYPE_ORACLE, 2, 0);
	lrd_env_init(LRD_DBTYPE_ORACLE, &OraEnv1, 0, 0);
	lrd_ora8_handle_alloc(OraEnv1, SERVER, &OraSrv1, 0);
	lrd_ora8_handle_alloc(OraEnv1, SVCCTX, &OraSvc1, 0);
	lrd_ora8_handle_alloc(OraEnv1, SESSION, &OraSes1, 0);
	lrd_ora8_handle_alloc(OraEnv1, SESSION, &OraSes2, 0);
//	lr_think_time(14);

	lrd_server_detach(OraSrv1, 0, 0);
	lrd_server_attach(OraSrv1, "25_devel", 8, 0, 0);
	lrd_ora8_attr_set_from_handle(OraSvc1, SERVER, OraSrv1, 0, 0);
	lrd_ora8_attr_set(OraSes1, USERNAME, "smart", -1, 0);
	lrd_ora8_attr_set(OraSes1, PASSWORD, lr_decrypt("4a90de5201be6597554e"), -1, 0);
	lrd_ora8_attr_set_from_handle(OraSvc1, SESSION, OraSes1, 0, 0);
	lrd_session_begin(OraSvc1, OraSes1, 1, 0, 0);


/*
	lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm1, 0);
	lrd_ora8_stmt(OraStm1, "SELECT USER FROM DUAL", 1, 32, 0);
	lrd_ora8_exec(OraSvc1, OraStm1, 0, 0, &uliRowsProcessed, 0, 0, 0, 0, 
        0);
	lrd_ora8_bind_col(OraStm1, &OraDef1, 1, &USER_D1, 0, 0);
	//lrd_ora8_fetch(OraStm1, -1, 1, &uliFetchedRows, PrintRow2, 2, 0, 0);
	//GRID8(2);


	lrd_handle_free(&OraStm1, 0);
	lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm2, 0);
	lrd_ora8_stmt(OraStm2, "BEGIN DBMS_OUTPUT.DISABLE; END;", 1, 32, 0);
	lrd_ora8_exec(OraSvc1, OraStm2, 1, 0, &uliRowsProcessed, 0, 0, 0, 0, 
        0);
	lrd_handle_free(&OraStm2, 0);
	lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm3, 0);
	lrd_ora8_stmt(OraStm3, "SELECT ATTRIBUTE,SCOPE,NUMERIC_VALUE,CHAR_VALUE,DATE_VALUE FROM "
        "SYSTEM.PRODUCT_PRIVS WHERE (UPPER(‘SQL*Plus‘) LIKE UPPER"
        "(PRODUCT)) AND (USER LIKE USERID)", 1, 32, 0);
	lrd_ora8_exec(OraSvc1, OraStm3, 0, 0, &uliRowsProcessed, 0, 0, 0, 0, 
        0);
	lrd_ora8_bind_col(OraStm3, &OraDef2, 1, &ATTRIBUTE_D2, 0, 0);
	lrd_ora8_bind_col(OraStm3, &OraDef3, 2, &SCOPE_D3, 0, 0);
	lrd_ora8_bind_col(OraStm3, &OraDef4, 3, &NUMERIC_VALUE_D4, 0, 0);
	lrd_ora8_bind_col(OraStm3, &OraDef5, 4, &CHAR_VALUE_D5, 0, 0);
	lrd_ora8_bind_col(OraStm3, &OraDef6, 5, &DATE_VALUE_D6, 0, 0);
	//lrd_ora8_fetch(OraStm3, -0, 1, &uliFetchedRows, 0, 2, 0, 0);
	lrd_handle_free(&OraStm3, 0);
	lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm4, 0);
	lrd_ora8_stmt(OraStm4, "SELECT CHAR_VALUE FROM SYSTEM.PRODUCT_PRIVS WHERE   (UPPER"
        "(‘SQL*Plus‘) LIKE UPPER(PRODUCT)) AND   ((USER LIKE USERID) "
        "OR (USERID = ‘PUBLIC‘)) AND   (UPPER(ATTRIBUTE) = ‘ROLES‘)", 1, 32, 0);
	lrd_ora8_exec(OraSvc1, OraStm4, 0, 0, &uliRowsProcessed, 0, 0, 0, 0, 
        0);
	lrd_ora8_bind_col(OraStm4, &OraDef7, 1, &CHAR_VALUE_D7, 0, 0);
	//lrd_ora8_fetch(OraStm4, -0, 1, &uliFetchedRows, 0, 2, 0, 0);
	lrd_handle_free(&OraStm4, 0);
	lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm5, 0);
	lrd_ora8_stmt(OraStm5, "BEGIN DBMS_APPLICATION_INFO.SET_MODULE(:1,NULL); END;", 1, 32, 0);
	lrd_assign(&P1D8, "SQL*Plus", 0, 0, 0);
	lrd_ora8_bind_placeholder(OraStm5, &OraBnd1, "1", &P1D8, 
        LRD_BIND_BY_POS, 0, 0);
	//lrd_ora8_exec(OraSvc1, OraStm5, 1, 0, &uliRowsProcessed, 0, 0, 0, 0, 
        0);
//	GRID0(4);

	lrd_handle_free(&OraStm5, 0);
	lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm6, 0);
	lrd_ora8_stmt(OraStm6, "SELECT DECODE(‘A‘,‘A‘,‘1‘,‘2‘) FROM DUAL", 1, 32, 0);
	lrd_ora8_bind_col(OraStm6, &OraDef8, 1, &DECODE_A_A_1_2_D9, 0, 0);
	lrd_ora8_exec(OraSvc1, OraStm6, 1, 0, &uliRowsProcessed, 0, 0, 0, 0, 
        0);
	//lrd_ora8_print(OraStm6, PrintRow6);
	//GRID0(6);

	lrd_handle_free(&OraStm6, 0);
	lrd_ora8_commit(OraSvc1, 0, 0);
	lrd_ora8_commit(OraSvc1, 0, 0);
	//lr_think_time(13);
*/

	lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm7, 0);


	return 0;
}

Action()
{

	lr_start_transaction("02_查询");

	lrd_ora8_stmt(OraStm7, "SELECT DISTINCT a.order_id,a.manager_a ,b.longitude,b.latitude FROM "
        "tl9_so_order_push_record a,smart.tl9_so_order_info b WHERE "
        "a.push_type=‘0‘AND a.is_grab=‘1‘AND b.order_id=a.ORDER_ID "
        "AND b.longitude like ‘%113.76%‘", 1, 32, 0);
	lrd_ora8_exec(OraSvc1, OraStm7, 0, 0, &uliRowsProcessed, 0, 0, 0, 0, 
        0);

	lr_end_transaction("02_查询", LR_AUTO);

	lrd_ora8_bind_col(OraStm7, &OraDef9, 1, &ORDER_ID_D10, 0, 0);
	lrd_ora8_bind_col(OraStm7, &OraDef10, 2, &MANAGER_A_D11, 0, 0);
	lrd_ora8_bind_col(OraStm7, &OraDef11, 3, &LONGITUDE_D12, 0, 0);
	lrd_ora8_bind_col(OraStm7, &OraDef12, 4, &LATITUDE_D13, 0, 0);

	//行和列都从1开始。存储返回第1列、第一行的值
	lrd_ora8_save_col(OraStm7, 1, 1, 0, "ORDER_ID");
	//存储返回第2列、第一行的值
	lrd_ora8_save_col(OraStm7, 2, 1, 0, "MANAGER_A");
	lrd_ora8_save_col(OraStm7, 3, 1, 0, "LONGITUDE");
	lrd_ora8_save_col(OraStm7, 4, 1, 0, "LATITUDE");

	lrd_ora8_fetch(OraStm7, -1, 15, &uliFetchedRows, PrintRow8, 2, 0, 0);



	return 0;
}

vuser_end()
{

	lrd_handle_free(&OraStm7, 0);
	/*tuichu*/

	lrd_session_end(OraSvc1, OraSes1, 0, 0);
	lrd_server_detach(OraSrv1, 0, 0);
	lrd_handle_free(&OraEnv1, 0);


	return 0;
}

  输出结果:

技术图片

 

在编写过程,其中参考EnchanterBlue的ChinaUnix博客内容。

 

LR之Oracle 2tier协议录制Oracle脚本

标签:tac   绑定   ora   scope   unix   RoCE   use   多个   string   

原文地址:https://www.cnblogs.com/zwh-Seeking/p/13809612.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!