实际应用：
为了说明问题。我用分别用vb,delphi, DotNET实现一个简单添加用户的功能，后台用ACCESS数据库，例用ado通过odbc连接。
1． 分析程序实现的结构，是简单的c/s结构，利用odbc连接。并且客户端，服务器端都配置在一台计算机。(请注意这个是条件，我们第二步选择的基础)
2． 设置session Record Options
录制方法选择api record录制，协议用odbc。（如果我后台换sqlserver或则oracle，其他实现方式不变，应该选择什么协议，因该添加什么协议）
3． Vb,delphi编码方式的功能脚本录制成功（创建同名datapool）。DotNet脚本录制成功，却无法产生同名的datapool（怎么办）。不成功脚本如下：
/*
->-> Session File Information <-<-
Created: Sun Apr 25 23:24:36 2004
Name: G:\Program\robot\lead\TestDatastore\DefaultTestScriptDatastore\TMS_Sessions\demo.wch
Type: Rational Robot - API
(with ODBC)
*/
#include <VU.h>
{
push Timeout_scale = 200; /* Set timeouts to 200% of maximum response time */
push Think_def = "LR";
Min_tmout = 120000; /* Set minimum Timeout_val to 2 minutes */
push Timeout_val = Min_tmout;
/* No Datapool Items Remain */
/* After All Data Analyses. */
VBNETDemo = sqlconnect("VBNETDemo", "", LOOKUP_PWD,
"VBNETDemo", "odbc",
"DRIVER_INFO='DSN=?;;UID=DEFAULT;PWD=DEFAULT;'");
/*
{ INFO SERVER "UNKNOWN"="0.0.0.0"; } */
/*
Unable to determine Server Name/Address */
set Server_connection = VBNETDemo;
push Think_avg = 0;
stmt_2_1_id = sqlopen_cursor ["pre001"] "", "select * from login";
set Think_avg = 313;
push CS_blocksize = 1;
sqlfetch_cursor ["pre002"] stmt_2_1_id, ALL_ROWS;
set Think_avg = 0;
sqlclose_cursor ["pre003"] stmt_2_1_id ;
set Think_avg = 4078;
stmt_2_2_id = sqlopen_cursor ["pre004"] "", "INSERT INTO `login` (`name`,`password`) VALUES (?,?)",
"'f\002'<varchar(50):I>",
"'f\002'<varchar(50):I>";
set Think_avg = 0;
sqlfree_cursor( stmt_2_2_id );
set Think_avg = 2781;
sqlfree_cursor( stmt_2_1_id );
sqldisconnect(VBNETDemo);
pop [Think_def, Think_avg, Timeout_val, Timeout_scale];
pop CS_blocksize;
}
点 EDIT->Datapool information 报错没有datapool config ，那就动手修改脚本
4．修改脚本后如下
/*->-> Session File Information <-<-
Created: Sun Apr 25 23:24:36 2004
Name: G:\Program\robot\lead\TestDatastore\DefaultTestScriptDatastore\TMS_Sessions\demo.wch
Type: Rational Robot - API
(with ODBC)
*/
#include <VU.h>
{
push Timeout_scale = 200; /* Set timeouts to 200% of maximum response time */
push Think_def = "LR";
Min_tmout = 120000; /* Set minimum Timeout_val to 2 minutes */
push Timeout_val = Min_tmout;
/* No Datapool Items Remain */ 红色字体是无法生成datapool的解释
/* After All Data Analyses. */
DP1 = datapool_open("lead"); //添加的脚本
datapool_fetch(DP1); //添加的脚本
VBNETDemo = sqlconnect("VBNETDemo", "", LOOKUP_PWD,
"VBNETDemo", "odbc",
"DRIVER_INFO='DSN=?;;UID=DEFAULT;PWD=DEFAULT;'");
/*
{ INFO SERVER "UNKNOWN"="0.0.0.0"; } */
/*
Unable to determine Server Name/Address */
set Server_connection = VBNETDemo;
push Think_avg = 0;
stmt_2_1_id = sqlopen_cursor ["pre001"] "", "select * from login";
set Think_avg = 313;
push CS_blocksize = 1;
sqlfetch_cursor ["pre002"] stmt_2_1_id, ALL_ROWS;
set Think_avg = 0;
sqlclose_cursor ["pre003"] stmt_2_1_id ;
set Think_avg = 4078;
stmt_2_2_id = sqlopen_cursor ["pre004"] "", "INSERT INTO `login` (`name`,`password`) VALUES (?,?)",
"'f\002'<varchar(50):I>",
"'f\002'<varchar(50):I>";
set Think_avg = 0;
sqlfree_cursor( stmt_2_2_id );
set Think_avg = 2781;
sqlfree_cursor( stmt_2_1_id );
sqldisconnect(VBNETDemo);
pop [Think_def, Think_avg, Timeout_val, Timeout_scale];
pop CS_blocksize;
}
//下边是添加的脚本
DATAPOOL_CONFIG "lead" OVERRIDE DP_NOWRAP DP_SEQUENTIAL DP_SHARED
{
EXCLUDE, "rpcarg", "string", "f";
EXCLUDE, "rpcarg", "string", "f";
}
脚本修改完成后，错误解决，可以打开datapool information.
4． 建立datapool。
Exclude含义是建立datapool但不建立datapool中字段，运行脚本的时候从实际录制的脚本中读数据。
Include在datapool建立一个同名的字段，运行脚本时从datapool中读数据。Override在datapool中建立同名字段，运行脚本时从实际脚本中读数据。
修改datapool 的usage属性为include，建立datapool字段，生成数据，修改数据（添加测试用例中的数据）
5． (确定脚本运行正常) robot中运行脚本，启动testmanager，点run suit。或者直接在testmanager中启动suit,修改changage,选择脚本
6． 多用户访问。运行20个用户同时访问服务器（修改suit中number of users），运行,修改数字为20，同时运行
7． 我们需要多用户同时访问，但是数据不同。
修改usage 属性exclude为include。
修改DATAPOOL Information中 playback behavior中access为radom
use script data为obey usage。运行testmanage 中suit。
第二个实际应用例子比较简单，不过把可能实际应用到的情况进行了简单的阐述，这里中心是介绍datapool的使用，基本上把datapool影响到的地方介绍给大家了。希望大家在实际工作中应用自如。使我们的测试工作更上一层楼。
备注：以上例子运行在Rational 2003版本上。
参考：
Ratonal Robot User’s Guide
Rational TestManager User’s Guide
