QTP中的ADO连接失败(参考书为余杰老师的《精通QTP》)
ODBC数据源已添加,且测试成功;SQL Server服务器已启动但是脚本运行会出错求高手支招
详细代码:
Dim adoCon
Dim ConnectionStr
ConnectionStr="Data Source=127.0.0.1;database=test;User ID=sa;Password=123;"
sqlstr="select * from sys_user where ='xelen'"
Set adoCon=CreateObject("adodb.connection")
adoCon.Open ConnectionStr
Set adoRst=adoCon.Execute(sqlstr)
'For循环遍历
For i=1 To adoRst.Fields.Count
MsgBox adoRst.Fields.Item("user_name").Value
Next
adoCon.Close
Set adoCon=Nothing
回复 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#里面那一套不行啊 赞一个 我ado现在还没搞定呢
页:
[1]