唯一纯白的梦里花，盛开在琥珀色月牙，就算是去所有爱的力量，我也不曾害怕！-------本站点部分文章来自网络，如果涉及到版权问题请与本人联系，本人将及时删除
QTP的数据库操作
上一篇 /
下一篇 2007-01-18 11:35:56
/ 个人分类：QTP
Set Conn = CreateObject("ADODB.Connection")51Testing软件测试网 D b8tozL1] Qx
Conn.open "Descrīption=plssvr;DRIVER=SQL Server;SERVER=PLSSVR;UID=sa;PWD=;APP=WinRunner;WSID=WANGW;DATABASE=PLS"51Testing软件测试网 bI2b5q(]U u c
Set Rs = CreateObject("ADODB.Recordset")
tR7s2~,w'p4@0sql="select * from dim_currencytype where currencytype_no= '" & CurrNo & "'"
D'MxN|X\0Rs.open sql,Conn,1,3#u jJ3i| P0备注：
2x%\ C4G"\6J P0rs.Open sql,conn,1,1无法看到其他用户添加的新数据，但被其他用户删除的数据将变为不可访问，同时可以看到其他用户所作的修改。51Testing软件测试网!T5o7|\@s/Y+o0ap
y!J8\.aZMm0rs.Open sql,conn,1,3静态打开方式。在你使用数据是其他用户无法访问该数据
%ya0r Q6~+ixN0
R4dJlK F(Dv![0rs.Open sql,conn,1,2动态的数据库打开方式，其他用户所进行的修改、删除和新建等工作都会立即在数据对象中体现出来，并且支持全部类型的数据移动方式，除非提供者不支持，否则也可以进行书签操作
R,c;[W N'l0
kD!~m}"N0rs.Open sql,conn,-1不指定打开方式
SMZ:q7\051Testing软件测试网Tf Q'w'H g.C
eU,T0L$kS:x0这是一个对数据库查询的一段代码，还要关闭数据库51Testing软件测试网e wM4Vl~k7r
6UP
G2qQuZ?0qtp访问EXCEL文件51Testing软件测试网~0^B]6}6t,Kgh6rY
Set conn= createobject("ADODB.Connection")51Testing软件测试网)VN/xV P
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'"51Testing软件测试网&s.o!G!i@(b
Set res= createobject("ADODB.Recordset")51Testing软件测试网j*J P%EH~5N4O5HK
res.Open "select * from [nbu_ini_reg$] " ,conn,2,2 51Testing软件测试网0c1@4aS(]
If res.eof=false Then
"qkP:|/A-u;P|0 answer_assumpsit=res("回访约定")51Testing软件测试网$?!Y J#qy0R,o
first_code =res("初审员代码")51Testing软件测试网7q~ x bZ
End If
收藏
举报
TAG:
QTP
