Loadrunner测试Oracle数据库 loadrunner连接数据库

yuyutoo 2024-10-13 09:15 3 浏览 0 评论

lrd_ora8_handle_alloc

lrd_ora8_handle_alloc 函数分配并初始化LRDBI句柄。句柄类型只由限定符指定。限定符是LRD_HTYPE_ORACLE_ 字符串的唯一后缀。例如，在LRD_HTYPE_ORACLE_SESSION 中，限定符是“SESSION”。

LRDRET lrd_ora8_handle_alloc ( void const * mpvParentHandle, long const mliDBHandleType, void * * const mppvLRDDBIHandle, int const miDBErrorSeverity );

lrd_server_attach

lrd_ora8_attr_set_from_handle

lrd_ora8_attr_set_from_handle 函数设置LRDDBI句柄的属性。在使用lrd_handle_alloc调用此函数之前，必须显式地分配句柄。只有Oracle 8.0 和更高版本才支持此函数。

LRDRET lrd_ora8_attr_set_from_handle ( void *mpvLRDDBIHandleTarget, long mliAttrType, void *mpvValue, long mliValueLen, int miDBErrorSeverity )

lrd_ora8_attr_set

lrd_ora8_attr_set 函数设置LRDDBI 句柄的属性。在使用lrd_handle_alloc 调用此函数前必须显式分配句柄。只有Oracle 8.0 和更高版本才支持此函数。

LRDRET lrd_ora8_attr_set ( void *mpvLRDDBIHandleTarget, long mliAttrType, void *mpvValue, long mliValueLen, int miDBErrorSeverity );

lrd_session_begin

lrd_session_begin 函数启动服务器的用户会话。只有Oracle 8.0 和更高版本才支持此函数。

LRDRET lrd_session_begin ( void *mpvLRDDBIHandleSvcCtx, void *mpvLRDDBIHandleSession, unsigned long muliCredentials, long mliMode, int miDBErrorSeverity );

lrd_ora8_stmt

lrd_ora8_stmt 函数准备用于执行的SQL或PL/SQL语句。语句的文本是null终止字符串，在该字符串中没有任何null 字符。（对于包含null 字符的字符串，请使用lrd_ora8_stmt_literal 或lrd_ora8_stmt_ext。）

LRDRET lrd_ora8_stmt (void *mpvLRDDBIHandleStmt, char *mpcStmtText, long mliLanguage, long mliMode, int miDBErrorSeverity );

lrd_ora8_exec

lrd_ora8_exec 函数执行lrd_stmt 设置的SQL 语句。此函数重置由lrd_ora8_stmt 设置的SQL 语句内容；在每个lrd_ora8_exec 函数调用之后，您必须提供新的语句（并可选择绑定参数）。

LRDRET lrd_ora8_exec ( void *mpvLRDDBIHandleSvcCtx, char *mpvLRDDBIHandleStmt, unsigned long muliTotalRows, unsigned long muliSkipRows, unsigned long *mpuliRowsProcessed, LRD_ORA8_PRINT_ROW_TYPEDEF mpfjPrintRow, void *Reserved1,void *Reserved2, long mliMode, int miDBErrorSeverity );

lrd_ora8_bind_col

lrd_ora8_bind_col 函数将主机变量绑定到输出列。VuGen 为结果集中的所有列生成lrd_ora8_bind_col 语句。

LRDRET lrd_ora8_bind_col (void *mpvLRDDBIHandleStmt, void 阿祖总结－Zu.Stone@QQ.com 54**mppvLRDDBIHandleDefine, int muiColNum, LRD_VAR_DESC *mptVarDesc, long mliMode, int miDBErrorSeverity );

lrd_ora8_fetch

lrd_ora8_fetch 函数从结果集中提取后续若干行。在录制的脚本中，结果集中的行数是参数mliRequestedRows的绝对值。例如，如果lrd_ora8_fetch 的第二个参数是-14，则检索了十四行数据。

LRDRET lrd_ora8_fetch (void *mpvLRDDBIHandleStmt, long mliRequestedRows, long mliRowsBatchSize, unsigned long *mpuliFetchedRows, LRD_PRINT_ROW_TYPEDEF mpfjPrintRow, long mliOrientation, long mliMode, int miDBErrorSeverity );

lrd_handle_free

lrd_handle_free 函数显式地释放LRDDDBI 句柄。注意，句柄必须已被显式地（使用lrd_handle_alloc）或隐式地（使用lrd_logon）分配。只有Oracle 8.0 和更高版本才支持此函数。

LRDRET lrd_handle_free ( void **mppvLRDDBIHandle, int miDBErrorSeverity);

lrd_assign

lrd_assign 函数将null 终止字符串（文字或存储区域）通过其描述符分配给变量。必要时，字符串将被转换为变量的数据类型和长度。若要在字符串中包含null 字符('\0')，或者如果字符串不是null 终止的，请使用lrd_assign_ext 或lrd_assign_literal。只能通过指定NULL 或0（不带引号），才能为lrd_assign 分配NULL 值。

LRDRET lrd_assign ( LRD_VAR_DESC *mptVarDesc, char *mpcValStr, char *mpszValStrFmt, unsigned long muliIndex, long mliOffset );

lrd_ora8_bind_placeholder

lrd_ora8_bind_placeholder 函数将主机变量或数组绑定到占位符。此函数要与lrd_assign 配合使用。

LRDRET lrd_ora8_bind_placeholder (void *mpvLRDDBIHandleStmt, void **mppvLRDDBIHandleBind, char *mpszPlaceholder, LRD_VAR_DESC *mptVarDesc, unsigned long muliOption, long mliMode, int miDBErrorSeverity );

lrd_ora8_print

lrd_ora8_commit

lrd_ora8_commit 函数从Oracle 8.x 客户端的上一保存点提交当前数据库事务。

LRDRET lrd_ora8_commit ( void *ServiceContextHandle, long Mode, int ErrorSeverity );

lrd_session_end

lrd_session_end 函数结束服务器的用户会话。只有Oracle 8.0 和更高版本才支持此函数。

LRDRET lrd_session_end ( void const *mpvLRDDBIHandleSvcCtx, void const *mpvLRDDBIHandleSession, long const mliMode, int const miDBErrorSeverity );

lrd_server_detach

lrd_server_detach 函数删除用于数据库操作的数据源的访问路径。只有Oracle 8.0 和更高版本才支持此函数。

LRDRET lrd_server_detach ( void const * mpvLRDDBIHandleServer, long const mliMode, int const miDBErrorSeverity );

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_start_transaction("login");

//连接数据库

lrd_server_attach(OraSrv1, "orcl", 4, 0, 0);

lrd_ora8_attr_set_from_handle(OraSvc1, SERVER, OraSrv1, 0, 0);

//设置数据库用户名密码

lrd_ora8_attr_set(OraSes1, USERNAME, "goa_cqxxfb", -1, 0);

lrd_ora8_attr_set(OraSes1, PASSWORD, lr_decrypt("5bbc5a662e4a82f1c60f665157d8"), 1, );

//初始化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, &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);

//释放连接数据库的各种变量

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 (UPPER(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 ((UPPER(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);

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

lrd_handle_free(&OraStm6, 0);

lrd_ora8_commit(OraSvc1, 0, 0);

lr_end_transaction("login",LR_AUTO);

return 0;

}

Action()

{

lr_think_time(3);

lr_start_transaction("select");

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

lrd_ora8_stmt(OraStm7, "select * from test", 1, 32, 0);

lrd_ora8_exec(OraSvc1, OraStm7, 0, 0, &uliRowsProcessed, 0, 0, 0, 0, 0);

lrd_ora8_bind_col(OraStm7, &OraDef9, 1, &ID_D10, 0, 0);

lrd_ora8_attr_set(OraDef9, CHARSET_FORM, "1", -1, 0);

lrd_ora8_bind_col(OraStm7, &OraDef10, 2, &CONTENT_D11, 0, 0);

lrd_ora8_attr_set(OraDef10, CHARSET_FORM, "1", -1, 0);

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

lrd_handle_free(&OraStm7, 0);

lr_end_transaction("select",LR_AUTO);

lr_think_time(3);

lr_start_transaction("insert");

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

lrd_ora8_stmt(OraStm8, "insert into test values('666','ddd')", 1, 32, 0);

lrd_ora8_exec(OraSvc1, OraStm8, 1, 0, &uliRowsProcessed, 0, 0, 0, 0, 0);

lrd_handle_free(&OraStm8, 0);

lr_end_transaction("insert",LR_AUTO);

return 0;

}

vuser_end()

{

lr_start_transaction("quit");

lrd_session_end(OraSvc1, OraSes1, 0, 0);

lrd_server_detach(OraSrv1, 0, 0);

lrd_handle_free(&OraEnv1, 0);

lr_end_transaction("quit",LR_AUTO);

return 0;

}

/* vdf.h */

#ifndef VDF_H

#define VDF_H

#define LRD_RECORDED_UNDER_WIN32

#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 unsigned long uliRowsProcessed;

static LRD_VAR_DESC USER_D1 =

{LRD_VAR_DESC_EYECAT, 1, 31, LRD_DBTYPE_ORACLE, {0, 1, 0}, DT_SZ};

static unsigned long uliFetchedRows;

static LRD_VAR_DESC ATTRIBUTE_D2 =