51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

查看: 1391|回复: 0

[求助] QTP用ADO连接Excel表更新表中数据出错

[复制链接]
  • TA的每日心情
    开心
    2015-8-13 10:14
  • 签到天数: 7 天

    连续签到: 1 天

    [LV.3]测试连长

    发表于 2015-7-22 17:24:11 | 显示全部楼层 |阅读模式
    本帖最后由 arvin45 于 2015-7-22 17:25 编辑

    如题目所说的,我的脚本如下:
    Dim Sql_Connection,Sql_Command, Obj_Excel,Obj_EData
    Sql_Connection="DSN=Excel Files;DBQ="&Environment.Value("TestDir")&"\..\cases\"&ExcelFile&".xlsx"

    Sql_Command="Select * From ["&Sheetname&"$]"
    Set Obj_Excel=CreateObject("ADODB.Connection")
    Obj_Excel.Open Sql_Connection
    Set Obj_EData=CreateObject("ADODB.Recordset")
    Obj_EData.Open Sql_Command, Obj_Excel, 2, 2

    Obj_EData.MoveFirst   
    While Not Obj_EData.EOF

    If Obj_EData.Fields("OperateType").Value = "AddEvent" Then

    Obj_EData.Fields("Status").Value = "Running"
    Obj_EData.Update

    End If

    Obj_EData.MoveNext
    Wend
    ClearObject


    运行QTP会弹出提示框,如图所示,请问如何解决呢






    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    回复

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-3-28 21:24 , Processed in 0.066786 second(s), 25 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表