QTP连接MSsql数据库操作

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

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

我来说两句

我的栏目

日历

« 2022-01-16  
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

我的存档

数据统计

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

RSS订阅

Open Toolbar