Web测试

QTP连接数据库 对数据库的一些基本操作

上一篇 / 下一篇  2013-01-16 13:55:00 / 个人分类：测试总结

查看( 1040 ) / 评论( 0 ) / 评分( 0 / 0 )
实现连接数据库，选取数据库中数据的操作脚本

Option Explicit
Dim conn
Dim StrConn
set conn=createobject("ADODB.Connection")

 StrConn="Provider=SQLOLEDB.1; Persist Security Info=True; User ID=sa;Password=1; Initial Catalog=PollChief_Edmonton_Testing_PA; Data Source=192.168.1.100"

conn.open StrConn
If conn.state=0 Then
 msgbox "fail"
else
 msgbox "success"
End If

Dim rs
Set rs=createobject("ADODB.Recordset")
Dim sql
sql="select * from dbo.EMS_ContestType"
'rs.CursorLocation=3
rs.open sql,conn,3,2

'msgbox rs.recordcount

'msgbox rs(1).name

'msgbox rs(1).value
Dim s,i,str
str=" "
For i=1 to     rs.recordcount
str=str+rs.fields(1)
rs.movenext
Next

msgbox str

rs.close
conn.close
Set rs=nothing
set conn=nothing

收藏 举报

TAG: 数据库 QTP 脚本

 

评分：0

我来说两句

jing17

jing17

有梦想 有激情 ~@！ 放飞无限青春 像鹰一样翱翔 ~#@

日历

« 2024-04-14  
日 一 二 三 四 五 六
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

  • 访问量: 15086
  • 日志数: 19
  • 建立时间: 2012-05-19
  • 更新时间: 2013-08-18

RSS订阅

Open Toolbar