Web测试

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

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

实现连接数据库,选取数据库中数据的操作脚本

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

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

日历

« 2021-12-08  
   1234
567891011
12131415161718
19202122232425
262728293031 

数据统计

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

RSS订阅

Open Toolbar