QTP的数据库操作
Set Conn = CreateObject("ADODB.Connection")
Conn.open "Descrīption=plssvr;DRIVER=SQL Server;SERVER=PLSSVR;UID=sa;PWD=;APP=WinRunner;WSID=WANGW;DATABASE=PLS"
Set Rs = CreateObject("ADODB.Recordset")
sql="select * from dim_currencytype where currencytype_no= '" & CurrNo & "'"
Rs.open sql,Conn,1,3
备注：
rs.Open sql,conn,1,1无法看到其他用户添加的新数据，但被其他用户删除的数据将变为不可访问，同时可以看到其他用户所作的修改。
rs.Open sql,conn,1,3静态打开方式。在你使用数据是其他用户无法访问该数据
rs.Open sql,conn,1,2动态的数据库打开方式，其他用户所进行的修改、删除和新建等工作都会立即在数据对象中体现出来，并且支持全部类型的数据移动方式，除非提供者不支持，否则也可以进行书签操作
rs.Open sql,conn,-1不指定打开方式
这是一个对数据库查询的一段代码，还要关闭数据库
qtp访问EXCEL文件
Set conn= createobject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\test_data.xl*;**tended Propertie*='**cel 8.0;hdr=yes'"
Set res= createobject("ADODB.Recordset")
res.Open "select *from " ,conn,2,2
If res.eof=false Then
answer_assumpsit=res("回访约定")
first_code =res("初审员代码")
End If
页:
[1]
