QTP代码方式连接数据源和操作数据库
上一篇 /
下一篇 2007-12-21 15:09:14
/ 个人分类：笔记
51Testing软件测试网:QU,sM*~ |Set Conn = CreateObject("ADODB.Connection")51Testing软件测试网(G&[$Z!Q3I oe
Set Rs = CreateObject("ADODB.Recordset")51Testing软件测试网a&U;T a }/P:w1Kh
Conn.Open "DSN=FBMP;UID=fbmp;PWD=fbmp;APP=QuickTest Professional;WSID=FBMP;DATABASE=FBMP"51Testing软件测试网:wqqs:v9Tx;`
G;^,^$U8o7g a-?2Y0'userid/password,是登陆数据库的用户名和密码，DSN是数据源,DATABASE是数据库名
lX+D?)E T*V"Q%{o051Testing软件测试网7`1Sl H:} O&K b9L
6K%y4M5S4a!V B0Rs.Open"select DC_CODE from MENUS_DEPARTMENT_CLASS",Conn '后面可以加上参数表示打开的方式
(E Ur:[&J-V0Q8G"S0Rs.movefirst
5V.w N\~ ~0While not rs.eof
&N0T*D"k1\ G0fL b2g/C0 MsgBox(Rs("DC_CODE").value)51Testing软件测试网ai%RdA1^
Rs.movenext
"N$z2dD4V _0wend
1n-y ]#A~T.S7c h"Q0Rs.Close
q.J%B-k {|2t0Conn.Close
;I p
P,H&`[ y+U4y0Set Rs = nothing
&P dS |r9h;M.F0Set Conn = nothing
M&HVw"O'M*W.G0记录集对象的方法： 51Testing软件测试网9U
e.R|/G2C&d"[
%KZ rI7lV|0rs.movenext 将记录指针从当前的位置向下移一行 51Testing软件测试网LqIt5r,x AT"Y
rs.moveprevious 将记录指针从当前的位置向上移一行 51Testing软件测试网f p N:Lk+f2G
rs.movefirst 将记录指针移到数据表第一行 51Testing软件测试网 R3Z\ w w)CZ'}r
rs.movelast 将记录指针移到数据表最后一行 51Testing软件测试网 w@l"A%k
[f:o ]\
rs.absoluteposition=N 将记录指针移到数据表第N行 51Testing软件测试网#Ld
Q
kb;Z g
rs.absolutepage=N 将记录指针移到第N页的第一行
V~#US
L\
G\q1wI0rs.pagesize=N 设置每页为N条记录 51Testing软件测试网yn6K/_"g*N rZ
rs.pagecount 根据 pagesize 的设置返回总页数
W/H,vlB4n M+m0rs.recordcount 返回记录总数
d0V+|.OnpN0rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
v;G }9h%v!P.[j0rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
$bDY7D6@s0a(y0rs.delete 删除当前记录，但记录指针不会向下移动
6p Z!U?-x6LN!G2o@0rs.addnew 添加记录到数据表末端
hSP;FDA9U0rs.update 更新数据表记录
PS:如果想做成函数,要注意VBS的函数返回不是用RETURN哦,
function
test(ByVal x,ByVal y)
Dim z
z = x + y
test = z
End function
上面是个例子,原始的语言都是这样的习惯,采用"函数名 = 返回值"来返回.另外VBS里但凡是对对象赋值的都请用SET.
收藏
举报
TAG:
笔记
