51Testing软件测试论坛

标题: 关于QTP数据库链接SQL查询的问题 [打印本页]

作者: chuhaida 时间: 2011-8-8 15:29
标题: 关于QTP数据库链接SQL查询的问题
写了这样两个函数Function OpenConnection()

Dim conn,res '定义变量

set conn = CreateObject("ADODB.Connection") '创建连接

conn.ConnectionString="

rovider=SQLOLEDB.1

assword=123456

ersist Security Info=True;User ID=sa;Initial Catalog=fc_hangzhou;Data source=192.168.2.234"  '设置连接字符串

conn.open  '开启连接

Set res = CreateObject("ADODB.RecordSet")

If conn.state=0 Then '如果连接状态为0，表示连接失败，写入reporter对象中，否则表示连接成功

Reporter.ReportEvent micFail,"testing","数据库连接失败"

res.close                            '关闭结果集和连接，并且置为空

Set res = nothing

conn.close

Set conn = nothing

else

reporter.ReportEvent micPass,"数据库链接","数据库连接成功"
End If

End Function

Function GetOne(sql)

Dim conn,res '定义变量

conn=OpenConnection()
      Set res = createObject("ADODB.RecordSet")
      res.open sql,conn,1,1
      GetOne = null
      '如果结果集有记录，且不是指向结果集最后，res.eof = false
      If not res.eof Then
      GetOne = res.Fields(0).value
      End If
End If
Set res = nothing
End Function

然后我调用函数来查找信息，脚本为
Dim a
a=GetOne("select  leasecount  from fc_main.dbo.custbaseinfo wehre custname='杰特'")
msgbox a

QTP报错，说是 res.open sql,conn,1,1类型或参数不匹配

谁能告诉我怎么改才正确，谢谢了

作者: lyscser 时间: 2011-8-8 16:45
本帖最后由 lyscser 于 2011-8-8 16:47 编辑

1、res.open sql,conn后面这俩参数可要可不要
2、conn.ConnectionString后面不要跟任何注释，要注释的话换行

作者: chuhaida 时间: 2011-8-9 17:28
看来还是自己解决了，在OpenConnection()函数中忘了返回conn

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)