QTP连接MSsql数据库操作

上一篇 / 下一篇  2016-02-26 16:26:36 / 个人分类：QTP

查看( 1085 ) / 评论( 0 ) / 评分( 0 / 0 )
Dim AdoCnn ,strDb,Rst,strCnn,ilen ,strsql '//定义变量
strCnn=" DSN=qtp;Description=study_Qtp;UID=sa;PWD=******;APP=UFTBase;WSID=.;DATABASE=dbqtp" 'qtp为ODBC数据源

'strCnn=" DRIVER=SQL Server;SERVER=.;UID=sa;PWD=******;APP=Microsoft Office 2003;WSID=.;DATABASE=dbqtp"  '无ODBC数据源方式

Set AdoCnn=CreateObject("ADODB.Connection") '//生成数据库连接对象
AdoCnn.Open strCnn   '   //打开数据库
If AdoCnn.State=0 Then '判断是否链接数据库成功
msgbox "Connect Fail"
else
msgbox "Connect Success"
End If

strsql="Select x  FROM PlayerInfo"
Set Rst =AdoCnn.Execute(strsql)
' 得到所有列值
While not Rst.EOF
msgbox Rst.Fields.Item("x").Value
Rst.MoveNext
Wend

Rst.Close
AdoCnn.close
Set AdoCnn=Nothing
Set Rst=Nothing


收藏 举报

TAG: QTP

 

评分：0

我来说两句

我的栏目

日历

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

我的存档

数据统计

  • 访问量: 1643
  • 日志数: 2
  • 建立时间: 2016-02-26
  • 更新时间: 2016-02-26

RSS订阅

Open Toolbar