软件测试论坛 › [QuickTest Professional] › 运行脚本报错：对象打开时不允许操作，请各位帮忙，谢谢

mizhe521 发表于 2010-1-26 10:03:55

运行脚本报错：对象打开时不允许操作，请各位帮忙，谢谢

Set res=CreateObject("ADODB.RecordSet")
strsql=“”
conn.Open ConnectionString 脚本执行到此处时提示对象打开时不允许操作
res.Open strsql,conn
请各位朋友帮忙，非常感谢啊

mizhe521 发表于 2010-1-26 10:21:18

不好意思，问题解决了
对象打开时，需要先关闭，然后在进行open操作

yujie6832 发表于 2010-1-26 11:04:20

呵呵，也要多注意SETOBJECT = NOTHING

yidao8808 发表于 2011-8-22 09:41:37

回复 2# mizhe521


    我也碰到这个问题，对象打开时，需要先关闭，不明白能否详细些

yidao8808 发表于 2011-8-22 09:43:13

回复 2# mizhe521


      我也碰到这个问题，对象打开时，需要先关闭，不明白能否详细些

yidao8808 发表于 2011-8-22 09:44:30

本帖最后由 yidao8808 于 2011-8-22 09:45 编辑

回复 2# mizhe521


    Dim Cnn
Dim Rst
Dim strCnn
Set Cnn = CreateObject("ADODB.Connection")
Set Rst =CreateObject("ADODB.Recordset")
strCnn="provider=OraOLEDB.Oracle.1;Data Source=xxx;password=xxx;User ID=xxx; Security Info=True;"
Cnn.Open strCnn
If Cnn.State=0 Then
      Reporter.ReportEvent micFail,"testing","数据库连接失败"
      else
      Reporter.ReportEvent micPass, "testing","数据库连接成功"
End If
msgbox Cnn.State
If Cnn.Open<>0 Then
    strsql="select * from pets"
      Rst.Open strsql,Cnn
      ydl=Rst("name")
      msgbox ydl
      Set Rst=nothing
    Cnn.Close
End If

查看完整版本: 运行脚本报错：对象打开时不允许操作，请各位帮忙，谢谢