软件测试论坛

 找回密码
 软件测试论坛注册页
查看: 5090|回复: 4

Robot连接数据库实例

  [复制链接]
发表于 2007-3-19 11:58:35 | 显示全部楼层 |阅读模式
软件测试工程师就业班马上开班
Sub Main
    Dim Result As Integer
    dim strconn as string
    dim conn as Object
    dim rs as Object
    dim testnumber1 as integer
    dim testnumber2 as integer
   
    'Initially Recorded: 2006-3-27  11:14:23
    'scrīpt Name: ado
   
    on error goto qq
   
    StartApplication "C:\WINNT\system32\calc.exe"
   
    Window SetContext, "Caption=计算器", ""
   
    strconn="rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ado.mdbersist Security Info=False"
   
    set conn=createobject("ADODB.Connection")
    conn.open strconn
    set rs=createobject("ADODB.Recordset")
    rs.open "select number1,number2 from test\", conn
    rs.MoveFirst
   
    Window SetContext, "Caption=计算器", ""
   
    do while not rs.eof
   
       testnumber1=rs.fields(0).value
       testnumber2=rs.fields(1).value
       msgbox testnumber1
       msgbox testnumber2
   
       inputkeys str(testnumber1)
       inputkeys "{+}"
       inputkeys str(testnumber2)
       inputkeys "{=}"
      
       rs.MoveNext
    loop
   
    Window CloseWin, "", ""
    rs.close
    conn.close
    set rs=nothing
    set conn=nothing
    exit sub
qq:
resume          '恢复到出错位置下一个记录
  
End Sub
ISTQB
 楼主| 发表于 2007-3-28 18:35:03 | 显示全部楼层
软件测试工程师就业班马上开班
在robot中调用[b][url=http://www.ltesting.net/html/61/category-catid-161.html]数据库[/url][/b],最主要的就是下面这几步:
strconn="rovider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ado.mdbersist Security Info=False"
   
    set conn=createobject("ADODB.Connection")
    conn.open strconn
    set rs=createobject("ADODB.Recordset")
    rs.open "select number1,number2 from test\", conn
    rs.MoveFirst
ISTQB
发表于 2007-3-29 17:31:57 | 显示全部楼层
软件测试工程师就业班马上开班
哈,刚接触这个工具,不过我的[b][url=http://www.ltesting.net/html/4/category-catid-4.html]开发[/url][/b]不太好,看不太明白啊,能多一些注释比较好啊。
发表于 2007-4-6 15:19:31 | 显示全部楼层
发表于 2007-4-20 20:20:38 | 显示全部楼层
软件测试工程师就业班马上开班
不错,不错。。
好久之前就想找这个了,就是没有相关资料,太谢谢版主了。

本版积分规则

Archiver|手机版|小黑屋|领测软件测试网 ( 京ICP备10010545号-5 )

GMT+8, 2021-10-23 09:24 , Processed in 0.194841 second(s), 12 queries , Xcache On.

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表