QTP中的ADO连接失败（参考书为余杰老师的《精通QTP》）

yinjiajia0626

ODBC数据源已添加，且测试成功；SQL Server服务器已启动但是脚本运行会出错

求高手支招
详细代码：

1. Dim adoCon
   
2. Dim ConnectionStr
   
3. 
   
4. ConnectionStr="Data Source=127.0.0.1;database=test;User ID=sa;Password=123;"
   
5. sqlstr="select * from sys_user where [user_code]='xelen'"
   
6. Set adoCon=CreateObject("adodb.connection")
   
7. adoCon.Open ConnectionStr
   
8. Set adoRst=adoCon.Execute(sqlstr)
   
9. 'For循环遍历
   
10. For i=1 To adoRst.Fields.Count
    
11.         MsgBox adoRst.Fields.Item("user_name").Value
    
12. Next
    
13. adoCon.Close
    
14. Set adoCon=Nothing
    

复制代码

yinjiajia0626

回复 1# yinjiajia0626


    已经解决，是我的连接语句写错了，ConnectionStr改成如下就OK了
ConnectionStr="DSN=SQL Server2008;Trusted_Connection=Yes;APP=Microsoft® Windows® Operating System;WSID=WIN-DLGC6EVVN31;DATABASE=test;Network=DBMSSOCN"
使用adoCon.udl文件生成的连接字符串才行，用C#里面那一套不行啊

赵佳乐SMILE

赞一个 我ado现在还没搞定呢