关于查证点的问题！！！

liande

请问如何在ROBOT中设置数据查证点？就是程序保存后如何查证保存到数据库中的数据与期望的结果一致。QTP中好象有这功能，但我在ROBOT中没有找到。请各位高手指点一下！

ilovejolly

通过对数据库操作把数据取出来和输入对比

liande

该怎么取数据出来呢？例如期望向某个表中插入1条数据，包含20个字段。我如何知道执行程序后，是向数据库里插入了这条记录并且各个字段的数值都与期望的结果相同。

ilovejolly

Dim Strtemp As String
    '*************************************************************
    '从数据源取数据
    dim dest(1 to 10,1 to 100) as variant  '第一个参数是每条记录的字段数目，第二个参数是记录数目  
    dim retcode as variant      '句柄，存放实际取得记录数目
    dim query as string         '查询语句
    dim outputstr as string     
    dim connectionstr as string     
    connectionstr = "dsn=SourceData;uid=;pwd=;"  'dns 连接设置
    query = "select * from Customer"        '此处修改SQL语句
   
    retcode = sqlrequest(connectionstr,query,outputstr,,0,dest())   
    '取出数据存放在dest()
    '*************************************************************
   
   Strtemp = dest(4,1)             '取第一条纪录的第四个字段

至于sql怎么设计，都是你该思考的问题

liande

这样写只是可以从数据库中获取数据,但是我想达到的目的是想比较回归测试时生成的数据库的数据是否与期望的结果一致.就类似QTP的DATABASE CHECKPOINT的功能一样.不知道ROBOT可以这样吗?

ilovejolly

你这个所谓的期望的结果是什么