QTP 连接数据库

'连接数据库

Public Function connectData(sql)
'以下是数据库操作
Dim rs,sq,pkey
set conn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
'下面数据库驱动语句，可以通过新建.udl文件连接数据库后获得
conn.open="Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=HXOMS;Data Source=192.168.0.232"
rs.open sql,conn
i=1
do while not rs.eof
 values1=rs("password")
 values2=rs("name")
 Reporter.ReportEvent micPass,values1,values2
 i=i+1
 rs.movenext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing

End Function

Dim sqlselect
sqlselect="select * from acct_user where name like '李浩%'"
connectData(sqlselect)