基于LR的数据库性能测试

web services协议

在LR的web services协议中提供了如下函数进行数据库的连接和执行sql语句，以实现对数据库的性能测试，也可以实现向数据库中自动生成批量数据。



lr_db_disconnect用于数据库的连接，可以通过插入该函数，通过LR的向导配置数据库连接参数并测试数据库连接是否成功，如下:


或：


连接oracle数据库并执行sql查询的测试脚本：

Action()
{

int NumRows=0;
int i=0;

//OLEDB方式连接数据库
lr_db_connect("StepName=OracleConnect",
"ConnectionName=db1",
"ConnectionString=Provider=OraOLEDB.Oracle.1;Data Source=netservicename_testbook;Password=Testbook_1;User ID=system",
"ConnectionType=OLEDB",
LAST);

//或 lr_db_connect("StepName=OracleConnect",
//         "ConnectionName=db1",
//         "ConnectionString=Provider=OraOLEDB.Oracle.1;Data Source=localhost:1521/testbook;Password=Testbook_1;User ID=system",
//         "ConnectionType=OLEDB",
//         LAST);

lr_start_transaction("PerformQuery");

//执行查询，并保存查询出的总记录条数。lr_db_executeSQLStatement中还能执行增删该、存储过程等其他sql语句。
NumRows =
lr_db_executeSQLStatement("StepName=PerformQuery",
"ConnectionName=db1",
"SQLStatement=select * from department",
"DatasetName=Mydataset",
LAST);
lr_output_message("Notify:NumRows:%d",NumRows);

//提取查询出来的数据
while ( i < 7 )
{
lr_db_getvalue("StepName=GetValue",
"DatasetName=Mydataset",
"Column=department_name",
"Row=next",
"OutParam=MyOutputParam",
LAST );
lr_output_message("The value of MyOutputParam is: %s", lr_eval_string("{MyOutputParam}") );
i++;
}

//在日志中打印内存中的数据集，默认只打印100条。lr_db_dataset_action中还能执行其他action操作
lr_db_dataset_action("StepName=PrintDataset",
"DatasetName=Mydataset",
"Action=PRINT",
LAST );

//释放数据库连接
lr_db_disconnect("StepName=Disconnect",
"ConnectionName=db1",
LAST);

lr_end_transaction("PerformQuery", LR_AUTO);

return 0;
}

　 lr_db_executeSQLStatement函数执行存储过程实例：

lr_db_executeSQLStatement("StepName=StartDeal",
"ConnectionName=XXXOrderDB",
"SQLStatement=exec XXXorderdb..sp1_XXX_firstdealorder"
"@orderid='{ID}',"
"@operator='mazj',"
"@ProcessType = 'NOR',"
"@CorpConfirmType = '',"
"@CorporationID = NULL,"
"@BOS=NULL",
"DatasetName=testDataset",
LAST);

Oracle（2-Tier）协议

Oracle（2-Tier）协议用于C/S结构的两层架构进行数据库的测试，可以录制PL/SQL Developer或sqlplus工具连接数据库执行数据库操作脚本，各种变量的定义置于vdf.h文件中，，数据库的登陆退出分别置于vuser_init和vuser_end中，数据库的操作置于Action中。

连接oracle数据库并执行查询的实例脚本：

Action()
{
//***vdf.h***
#include "lrd.h"    //位于LR安装目录下的include目录中的头文件

//相关变量定义
static LRD_INIT_INFO lnitlnfo = {LRD_INIT_INFO_EYECAT};
static LRD_DEFAULT_DB_VERSION DBTypeVersion[] = {{LRD_DBTYPE_NONE,LRD_DBVERSION_NONE}};
static LRD_VAR_DESC OBJECT_NAME_D1;
static LRD_VAR_DESC NUM ={LRD_VAR_DESC_EYECAT, 10, 32, LRD_DBTYPE_ORACLE, {1, 1, 0},DT_LONG_VARCHAR};
static void FAR * OraEnv1;
static void FAR * OraSvc1;
static void FAR * OraSrv1;
static void FAR * OraSes1;
static void FAR * OraStm1;
static void FAR * OraDef1;
static  unsigned long uliFetchedRows;
unsigned long    rownum;

//***vuser_init***

//Initializes the LRD environment
lrd_init(&lnitlnfo, DBTypeVersion);

//Initializes the database process environment
lrd_initialize_db(LRD_DBTYPE_ORACLE,3,0);

//Allocates and initializes an LRDDBI handle
lrd_env_init(LRD_DBTYPE_ORACLE, &OraEnv1,0,0);

//Explicitly allocates and initializes an LRDDBI Handle
lrd_ora8_handle_alloc(OraEnv1,SVCCTX,&OraSvc1,0);

lrd_ora8_handle_alloc(OraEnv1,SERVER,&OraSrv1,0);

lrd_ora8_handle_alloc(OraEnv1,SESSION,&OraSes1,0);

//Creates an access path to a data source for database operations
lrd_server_attach(OraSrv1,"netservicename_testbook",-1,0,0);  //或 lrd_server_attach(OraSrv1,"localhost:1521/testbook",-1,0,0);

//Sets an attribute for an LRDDBI handle
lrd_ora8_attr_set_from_handle(OraSvc1,SERVER,OraSrv1,0,0);

//Sets an attribute for an LRDDBI handle
lrd_ora8_attr_set(OraSes1,USERNAME,"system",-1,0);

lrd_ora8_attr_set(OraSes1,PASSWORD,"Testbook_1",-1,0);

lrd_ora8_attr_set_from_handle(OraSvc1,SESSION,OraSes1,0,0);

lr_think_time(5);

//Creates and begins a user session for a server
lrd_session_begin(OraSvc1,OraSes1,1,0,0);

//***Action***

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

//事务开始
lr_start_transaction("sqlstart");

//Prepares a null-terminated SQL statement for execution
lrd_ora8_stmt(OraStm1, "select department_name from department", 1, 0, 0);

//Executes an SQL statement in Oracle 8.x
lrd_ora8_exec(OraSvc1, OraStm1, 0, 0,&rownum, 0, 0, 0, 0, 1);

//Binds a host variable to a column
lrd_ora8_bind_col(OraStm1,&OraDef1,1,&NUM,0,0);

//Saves the value of a table cell to a parameter
lrd_ora8_save_col(OraStm1, 1, 1, 0, "resu1");

lrd_ora8_save_col(OraStm1, 1, 4, 0, "resu2");

//Fetches the next row in the result set
lrd_ora8_fetch(OraStm1, -2, 2, &rownum, 0, 2, 0, 0);

lr_output_message("Notify:The final message is:%s", lr_eval_string("{resu1}"));
lr_output_message("Notify:The final message is:%s", lr_eval_string("{resu2}"));

//***vuser_end***

//Frees an LRDDBI handle
lrd_handle_free(&OraStm1, 0);

//Ends a user session for a server
lrd_session_end(OraSvc1, OraSes1, 0, 0);

//Deletes an access path to a data source
lrd_server_detach(OraSrv1, 0, 0);

lrd_handle_free(&OraEnv1, 0);

lr_end_transaction("sqlstart", LR_AUTO);

return 0;
}

以上脚本执行的前提：执行机器上安装了oracle客户端程序并你能正常连接到oracle数据库。当然如果脚本执行机器上安装有oracle服务器程序，就不再需要安装oracle客户端程序了。一般可以先安装个PL/SQL Developer，然后确保PL/SQL Developer能正常连接到oracle数据库，脚本就可以正常连接数据库并执行了，也可以利用LR数据库连接函数lr_db_connect对话框向导中的连接测试来测试与数据库服务器的连通性，需要确保连接测试成功。