qtp执行sql的环境

andyclock

简单描述下qtp机器的环境，测试一个系统，qtp同系统客户端装在一个机器上，该机器没装sqlserver，连接DB靠odbc里建个系统DSN，在测试某些场景前需要在DB里预设参数，于是我想把脚本先连DB去预设里面的参数
脚本如下
Dim strsql
Set conn = createobject("ADODB.Connection")
Set comm = createobject("ADODB.command")
conn.Open("DSN=TEST;WSID=SERVER2\SQL2008R2;UID=XXX; PWD=XXX;Database=TEST")
strsql="update sysparam set value='false' where parameter='EnableLocalVersion'"
comm.Execute strsql
但执行下来报错：
The connection can not be used to perform this operation, it is either closed or invalid in this context
Line(7)comm.Execute strsql

网上查了下资料感觉脚本应该没写错，是不是因为没装sqlserver的原因而不能执行？小弟刚接触qtp，无开发经验，还请各位多多指教，谢谢

fanli82

简单不代表容易。

17800455

确实是啊. 疏忽了...............

andyclock

问题已解决，开发看了下我的脚本说conn和comm缺乏关联，查了下就一句话可以搞定，嘿嘿。

strsql="update sysparam set value='true' where parameter='EnableLocalVersion'"
Set conn = createobject("ADODB.connection")
Set comm = createobject("ADODB.command")
conn.Open("DSN=test;WSID=192.168.88.202;UID=sa; PWD=sa;Database=test")

comm.ActiveConnection=conn

comm.CommandText=strsql
comm.Execute
conn.Close

lyscser

你们见过dba_tables、dba_users这些表能让你们改么？

andyclock

楼上的代码拷贝过去改几个参数貌似还是这个错误提示，而且你的脚本貌似同我差不多意思。。。

17800455

1. 
   
2. sqlStr="update sysparam set value='false' where parameter='EnableLocalVersion'"
   
3. connStr = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Data Source=10.158.11.33
   
4. "
   
5. ExecSql connStr,sqlStr
   
6. 
   
7. Public Function ExecSql(connStr,sqlStr)
   
8.         
   
9.         Set conn = createobject("ADODB.Connection")
   
10.         
    
11.         Set comm = createobject("ADODB.command")
    
12.         
    
13.         conn.Open connStr
    
14.         
    
15.         Set cmd.ActiveConnection = conn
    
16. 
    
17.         comm.CommandText=strsql
    
18. 
    
19. 
    
20.         If conn.State <> -1 Then
    
21.         
    
22.                 comm.Execute
    
23.         
    
24.                 conn.Close
    
25.         
    
26.         End If
    
27.         
    
28.         Set comm = Nothing
    
29.         
    
30.         Set conn = Nothing
    
31. 
    
32. End Function
    

复制代码

wendy.wang

学习学习

lyscser

角色跟权限关系不大，数据库用户一般都有DBA和普通用户的吧，我理解，你可以去百度一下
不过所要改的内容貌似是数据字典的表，都是通过command命令去修改的，你不要纠结于QTP了，你去请教开发或者DBA吧，我只懂oracle，不懂sql server

andyclock

多谢楼上回帖，DBA角色是指UID吗？ 我把UID换成SA了，应该是最高权限， 后来发现测试机上有个2005的sql查询分析器，用SA登录试了下语句可以执行。但是回到qtp改了UID还是报这个错。。。

lyscser

The connection can not be used to perform this operation, it is either closed or invalid in this context
Line(7)comm.Execute strsql

人家数据库说的很清楚了，这个链接不能操作这个语句，意思可能就是你得换DBA角色才能改系统参数，普通用户是不行的。

andyclock

补充一下，数据库连接是成功的

If conn.state=0 Then            
Reporter.ReportEvent micFail,"testing","数据库连接失败"
else
Reporter.ReportEvent micPass,"testing","数据库连接成功"
End if