51Testing软件测试论坛

标题: 连Sqlserver,Oracle的问题 [打印本页]
作者: xiaoqin    时间: 2005-7-15 12:11
标题: 连Sqlserver,Oracle的问题
1、录制一个登陆脚本：用户名、密码
2、连接数据库(sqlserver,oralce)从数据库取出记录
3、把取出的记录循环插入到脚本中
这种做法该怎么实现啊!请问大家有没有做过啊!有没有例子啊!
等待答案中.................................
作者: lovetest6    时间: 2005-7-15 12:19
脚本不会写么？还是没找到帮助??


你上次说万分紧急的需要QTP，我刻了盘给你。

看来你还没有仔细学啊，不像你说的那么紧急万分啊，呵呵。

下面这段论坛上朋友的代码，对你有启发么？


  1. Set Conn = CreateObject("ADODB.Connection")
  2. Set Rs = CreateObject("ADODB.Recordset")
  3. Conn.Open "Description=kml-it;DRIVER=SQL Server;SERVER=KML-IT;UID=sa;PWD=password;APP=QuickTest Professional;WSID=KML-MICHELLE;DATABASE=kml_db"
  4. sql="select distinct grn_no from grn_dtl where grn_no like '%"&grnNo&"%' order by grn_no DESC"
  5. Rs.open sql,Conn,1,3
  6. Dim i,j,cell
  7.         i=1
  8.         j=2 'j=2的原因是因为页面上table是的数据是隔一行一条，不知   道怎么回事，开发人员弄的怪把
  9.                 Do while not rs.eof
  10.                         If i=13 Then  '13是每页显示出的最大行数,是个常数
  11.                                 i=1
  12.                                 j=2
  13.                                  Browser("::").Page("::").Frame("mainFrm_5").Link("下一页").Click
  14.                         end if
  15.                         cell=Browser("::").Page("::").Frame("mainFrm_5").WebTable("收货单号").GetCellData(j,2)
  16.                         If cell<>rs("grn_no") Then
  17.                 Reporter.ReportEvent 1, "查询功能"&cell, "查询结果错误."
  18.                                 Exit do
  19.                         else
  20.                                 Reporter.ReportEvent 0, "查询功能"&cell, "查询结果正确."
  21.                         End If
  22.                         rs.movenext
  23.                         j=j+2
  24.                         i=i+1
  25.                 Loop
  26. rs.close
  27. conn.close
  28. set conn=nothing
复制代码

[ Last edited by lovetest6 on 2005-7-15 at 12:25 ]
作者: zjt999    时间: 2005-7-18 11:31
谁试过连接oracle?
作者: someone5    时间: 2005-7-18 12:15
把连接字符串换掉就行了：
Conn.Open "Provider=OraOLEDB.Oracle.1;Password=password;Persist Security Info=True;User ID=tablespace1;Data Source=database1"
作者: hongtang    时间: 2005-8-28 19:21
标题: 我连过数据库~
不过是 VBSCRIPT连的
代码网上都有：）



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2