做了一个查询功能的测试，请大家给点意见，下来该如何进行脚本优化

mizhe521

'获取外部excel中的数据，赋值给变量
Dim ExcPath,oExcel,Sql,RecSet,Str1,Str2,Str3,Str4,Str5,Str6,Str7
ExcPath = "C:\demo\查询.xls"
Set oExcel = CreateObject("ADODB.Connection")
oExcel.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&ExcPath&";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
Sql = "select * from [Global$]"
Set RecSet = oExcel.Execute(Sql)
While not RecSet.EOF
        Str1 = RecSet("馈路")
        Str2 = RecSet("供电所")
        Str3 = RecSet("变压器名称")
        Str4 = RecSet("台区")
        Str5 = RecSet("年")
        Str6 = RecSet("月")

'**************************查询sql语句拼接*************************start'
'主sql
Sql1="主sql "
'根据不同的查询条件，拼接动态sql语句
testsql=拼接后的sql
'*****************************查询sql语句拼接******************************end'

'******************************数据对比部分********************************start'
'把从excel获取的数据赋给脚本中的对象

Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString=" "
Set res=CreateObject("ADODB.RecordSet")
strsql=testsql  '将拼接的sql语句赋值给变量strsql
conn.Open ConnectionString
res.Open strsql,conn

While not res.EOF
'获取页面中列表中的数据
'获取数据库中对应的值
'将获取到页面的数据和数据库中的数据进行对比，一致则成功，不一致则输入错误到report       

'关闭数据库连接
'******************************数据对比部分********************************end'
RecSet.MoveNext
Wend
oExcel.Close

[ 本帖最后由 mizhe521 于 2010-2-3 18:03 编辑 ]

zzxxbb112

太乱，，，把ADO包装一下~~改分离的分离出来

wugecat

太长实在看不下去

mizhe521

不长啊，我把很多都删掉了。帮帮忙，看完给点意见呗，呵呵
除了把ADO分离出来其他的还需要做什么改动吗？

Chain.Dai.China

代码要不断的重构才行。一个函数最好只做一件事，但是要具备通用性。一些值 比如"C:\demo\查询.xls"可以做成函数的参数，写死了总感觉不太好。
把获取测试数据，sql语句拼接，获取页面的数据，获取数据库中的数据，还有比较数据拆成不同的通用函数。

我对QTP不是很熟，只是一些小建议

mizhe521

谢谢大家的回复

wugecat

尽量别做数据库检查...在页面上验证就可以了,因为你肯定已经知道要出现的结果,然后再把结果和界面的比较就可以了,写SQL会增加风险,毕竟你不能保证你的SQL是完全正确的,还有库结构的变化也可能造成风险....做好测试数据也是非常重要的

FLY000

尽量别做数据库检查...在页面上验证就可以了,因为你肯定已经知道要出现的结果,然后再把结果和界面的比较就可 ...
wugecat 发表于 2010-2-4 09:54

要把预期的数据结果集保存到EXCEL或者TXT里面吗？