请教：VBS中将function的返回值（是一个数组），赋给另外一个数组出错

mstiunicon

写了一个数据库校验的function，但是要将返回值（是一个数组）赋给另外一个数组时，报“类型不匹配”。
代码如下,

1. Dim checkVal(2),dblinename(2),returnValue(1)
   
2. Dim sqlw
   
3. checkVal(0)="客户名称1"
   
4. checkVal(1)="2"
   
5. checkVal(2)="00071"
   
6. dblinename(0)="s_name"
   
7. dblinename(1)="n_grade"
   
8. dblinename(2)="s_gradecode"
   
9. sqlw="select * from tableName where n_rdstatus=1 and s_code ='01-6001'"
   
10. 'msgbox(VarType(DBCheck(sqlw,checkVal,dblinename,3)))
    
11. [u][b]returnValue=DBCheck(sqlw,checkVal,dblinename,3)[/b]  '执行到此句时报“类型不匹配”[/u]
    
12. 'msgbox(VarType(returnValue))
    
13. reporter.ReportEvent returnValue(0),"校验数据库的值",returnValue(1)
    
14. 
    
15. 
    
16. Function DBCheck( sql,checkValue(),LineName(),n )
    
17.    Dim j,errorMsg,returnVal(1),str
    
18.    j=0
    
19.    errorMsg=""
    
20.    
    
21. set con=createobject("adodb.connection")
    
22. 'Orocle方式:
    
23. con.open "DRIVER={Microsoft ODBC for Oracle};SERVER=“your server name”;UID=protest;PWD=protest;"
    
24. 'msgbox("连接数据库成功")
    
25. set rs=createobject("adodb.recordset")
    
26. 'sql="select * from bs_clientsetting where s_code ='"&datatable("clientCode",dtLocalSheet)&"' and n_rdstatus=1"
    
27. 'msgbox(sql)
    
28. rs.open sql,con
    
29. If rs.eof Then
    
30.      j=1
    
31.      errorMsg="查询无结果！"
    
32. else
    
33.      While  (not rs.eof)
    
34.         For  i=0 to  n-1
    
35.            str=CStr(rs.Fields(LineName(i)).value)
    
36.            If str<>checkValue(i) then
    
37.            j=j+1
    
38.            errorMsg=errorMsg&" 列"&LineName(i)&"的值为"&str&"，不等于预计值："&checkValue(i)
    
39.            end if
    
40.          Next
    
41.         rs.movenext
    
42.      Wend
    
43. End If
    
44. If j=0 Then
    
45.         returnVal(0)=0
    
46.         returnVal(1)="数据校验正确！"
    
47.         elseif j>0 then
    
48.         returnVal(0)=1
    
49.         returnVal(1)=errorMsg
    
50.         else
    
51.         returnVal(0)=3
    
52.         returnVal(1)="数据库校验程序发生异常"
    
53. End If
    
54. DBCheck=returnVal
    
55. msgbox(VarType(returnVal))
    
56. msgBox(VarType(DBCheck))
    
57. rs.close
    
58. set rs=nothing
    
59. con.close
    
60. set con=nothing
    
61. end function

复制代码

kai_top

把dim returnValue(1),改为dim returnValue；
那么returnValue(0)＝returnVal(0)
或者
把returnValue=DBCheck(sqlw,checkVal,dblinename,3)改为returnValue(1)=...
那么returnValue(1)(0)=returnVal(0)

mstiunicon

我想了很久，觉得把错误信息反馈到Action中再处理，其实是比较麻烦。所以我改了一下，用Sub过程，直接在此过程中将错误信息打印出来。这样做数据库的校验的时候，直接call这个方法就可以了，不用再对返回值做处理。不过还是要多谢kai_top的帮助。
修改后的代码是这样的：

1. 
   
2. Sub DBCheck( sql,expectedValue(),LineName(),n )
   
3.    '传入参数说明：sql              查询的sql语句，
   
4.    '              expectedValue()  数据库校验的预计值
   
5.    '              LineName()       数据库表中的列名
   
6.    '              n                数组的长度，或者是想要对比的数据的个数
   
7.   Dim j,str     'j是一个标识，表示校验数据库是否成功
   
8.   j=0
   
9.   
   
10.   Set con=createobject("adodb.connection")
    
11.   'con.open "Description=IBM_ODBC;DRIVER=SQL Server;SERVER=IBM;UID=sa;"&_"PWD=123456;APP=Quick Test Pro;WSID=IBM;DATABASE=IBM_table"
    
12.   'access方式:con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\test.mdb"
    
13.   'Oracle方式:
    
14.   con.open "DRIVER={Microsoft ODBC for Oracle};SERVER="your server name";UID=protest;PWD=protest;"
    
15.   set rs=createobject("adodb.recordset")
    
16.   rs.open sql,con
    
17. 
    
18.   If rs.eof Then
    
19.      j=1
    
20.      reporter.ReportEvent 1,"校验数据库的值","查询无结果！"
    
21.   Else
    
22.          While  (not rs.eof)
    
23.          For  i=0 to  n-1
    
24.             str=CStr(rs.Fields(LineName(i)).value)
    
25.                          If str<>expectedValue(i) then
    
26.                 j=j+1
    
27.                              reporter.ReportEvent 1,"校验数据库的值"," 列"&LineName(i)&"的值为："&str&"，不等于预计值："&checkValue(i)
    
28.              End If
    
29.           Next
    
30.           rs.movenext
    
31.          Wend
    
32.    End If
    
33. 
    
34.    If j=0 Then
    
35.     reporter.ReportEvent 0,"校验数据库的值","数据校验正确！"
    
36.    End If
    
37. 
    
38.    rs.close
    
39.    set rs=nothing
    
40.    con.close
    
41.    set con=nothing
    
42. End Sub
    

复制代码

将上述的代码做成一个vbs文件，添加到资源文件中去
使用的时候就可以直接调用了

1. 
   
2. call check()
   
3. 
   
4. Sub check()
   
5.   Dim expectedVal(2),dblinename(2),sqlw
   
6.   expectedVal(0)=datatable("clientName",dtLocalSheet)
   
7.   expectedVal(1)=datatable("grade",dtLocalSheet)
   
8.   expectedVal(2)=datatable("gradecode",dtLocalSheet)
   
9.   dblinename(0)="s_name"
   
10.   dblinename(1)="n_grade"
    
11.   dblinename(2)="s_gradecode"
    
12.   sqlw="select * from bs_clientsetting where n_rdstatus=1 and s_code ='"&datatable("clientCode",dtLocalSheet)&"'"
    
13.   call DBCheck(sqlw,expectedVal,dblinename,3)   
    
14. End Sub
    

复制代码

m_2

我不太明白datatable的含义，能否指点一下？它是一个函数吗？我怎么在VB中找不到！
谢谢！

hongtang

完全可以用数据库检查点测试的?迷茫中

mstiunicon

dataTable就是QTP中左下方的Excel表格。
dataTable有两种，一个是全局的，是Excel的第一个Sheet；另一个是局部的，是第二个及以后的Sheet
局部的datatable在Action中使用时，可以直接用dtLocalSheet来引用
要使用dataTable，查看help－quickTest Help，直接搜索dataTable就可以查看自带的帮助

mstiunicon

1.能够自己写脚本来检查数据库，这样灵活性比较高
2.手工编写脚本，没有Active Screen，不能用校验点来校验页面和数据库的值
3.不太会用QTP的数据库检查点的功能......

wwg1020

mstiunicon
我崇拜你