连Sqlserver,Oracle的问题

xiaoqin

1、录制一个登陆脚本：用户名、密码
2、连接数据库(sqlserver,oralce)从数据库取出记录
3、把取出的记录循环插入到脚本中
这种做法该怎么实现啊!请问大家有没有做过啊!有没有例子啊!
等待答案中.................................

lovetest6

脚本不会写么？还是没找到帮助??


你上次说万分紧急的需要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

谁试过连接oracle?

someone5

把连接字符串换掉就行了：
Conn.Open "Provider=OraOLEDB.Oracle.1;Password=password;Persist Security Info=True;User ID=tablespace1;Data Source=database1"

hongtang

不过是 VBSCRIPT连的
代码网上都有：）