QTP链接SqlServer数据库

上一篇 / 下一篇  2009-09-05 23:14:25

查看( 184 ) / 评论( 0 ) / 评分( 0 / 0 )
  1. Dim rs,conn,sqlstr,strcon
  2. strcon = "Provider=SQLOLEDB.1;User ID=sa;Password=srt123321;"&_
  3. "Data source=192.168.4.112;DATABASE=default_meg_db"
  4. Set conn = createobject("adodb.connection")
  5. conn.open strcon
  6. sqlstr="SELECT * FROM TEST"
  7. Set rs=createobject("adodb.recordset")
  8. rs.open sqlstr,conn,1,1
  9. msgbox rs("TS_NAME")
  10. rs.Close
  11. Set rs = nothing
  12. conn.Close
  13. Set conn = nothing

收藏 举报

TAG:

 

评分：0

我来说两句

Open Toolbar