51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2169|回复: 1
打印 上一主题 下一主题

[求助] 类型不匹配: '[string

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2014-5-16 19:08:07 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
'Dim URL
Dim linkStatue
Dim linktime
URL="wenku.baidu.com"
Set control=CreateObject("HttpWatch.Controller")
Set plugin=control.IE.New()
plugin.Log.EnableFilter(false)
plugin.Clear()
plugin.Record()
plugin.GotoURL(URL)
wait(2)
ip = plugin.log.Entries.Item(0).ServerIP               '获取iP地址
code = plugin.Log.Entries.Item(0).StatusCode         '获取状态码
linktime = plugin.log.Entries.Summary.Time                '获取响应时间

'inputbox(linktime)
Dim Conn
Set Conn=CreateObject("ADODB.Connection") '创建连接
Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=shanxiyidongWD=saORT=3306;SERVER=127.0.0.1;UID=root"
Conn.Open ConnectionString

'连接数据库_增删改
Dim strSql,i,a '定义变量
strSql= "insert into zhangting(测试号码) values ('15112341234')"         '设置插入语句
Conn.Execute strSql                                        '执行SQL语句
If 10>linktime Then
Reporter.ReportEvent micPass,"响应时间","少于10秒:"&linktime
else
Reporter.ReportEvent micFail,"响应时间","大于10秒:"&linktime
End If
strSql= "insert into zhangting(受理时长) values('"+linktime+"')"         '设置插入语句
'strSql= "update zhangting set 受理时长='"+linktime+"' where 测试号码='15112341234'"                '修改编号
Conn.Execute strSql                                        '执行SQL语句
'停止记录Http底层数据
plugin.Stop
'关闭浏览器窗口
plugin.CloseBrowser()
'回收对象
Set control=nothing
Set plugin=nothing
Set sumary=nothing
''''''
'''''strSql= "insert into zhangting(受理时长) values('"+linktime+"')"         '设置插入语句
运行到这句时报错“类型不匹配: '[string: "insert into zhangtin"]'”但是linktime换成输出ip的时候又可以通过了
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2014-5-17 09:20:00 | 只看该作者
linktime = plugin.log.Entries.Summary.Time 你这个是时间类型吧
表结构里这里是char的,当然不行了。String.valueOf(linktime)一下,具体VB语句查VB的手册。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-27 19:15 , Processed in 0.066216 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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