qtp,VBScript操作MySQL数据库时,关于多次访问数据库的问题,数据集如何处理

Dim dataset ,sql1,cusimnum
Set dataset=createobject("ADODB.RecordSet")'创建数据集
sql1="SELECT openid from IM_SM_CUSTOMER where host_tel='"+hostTel+"' LIMIT 1"
dataset.Open sql1,conn,1,1'定义dataset的时候 要用set不然这里点不出来open方法,1,1代表查询
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset.Close
'        Set dataset=nothing‘如果只有一个查询,没有其他数据库操作,那么这里关闭数据集,取消对象,然后关闭数据库链接,如果有其他的操作这里,只是关闭数据集,这一步很必要

End If

Dim  sql2,cusimnum
sql2="SELECT openid from IM_SM_CUSTOMER where host_tel='"+hostTel+"' LIMIT 1"
dataset.Open sql2,conn,1,1'因为上面已经有数据集,这里还是查询,那么可以直接使用这个数据集,如果在上面没有关闭数据集,这里会报对象已打开的错误,操作完成后要关闭对象,如果完成操作要设置对象为nothing,并且关闭数据库
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset.Close
'        Set dataset=nothing

End If

Dim  sql3,cusimnum
sql3="insert sql"
dataset.Open sql3,conn,1,3'因为上面已经有数据集,这里新增,还是可以直接用原来的数据集操作,,就从新创建一个数据集,上面的数据集一定要关闭以及set nothing,那么可以直接使用这个数据集,如果在上面没有关闭数据集,这里会报对象已打开的错误,操作完成后要关闭对象,如果完成操作要设置对象为nothing,并且关闭数据库
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset.Close
'        Set dataset=nothing

End If

Dim  sql4,cusimnum,dataset2
sql4="selectsql"

Set dataset2=createobject("ADODB.RecordSet")'创建数据集,因为上面数据集进行了现在操作,这里查询,就不可以直接用原来的数据集操作,就从新创建一个数据集

dataset2.Open sql4,conn,1,3',上面的数据集一定要关闭以及set nothing,
If not dataset.eof  Then
        cusimnum=dataset.Fields("openid")
        dataset2.Close
'        Set dataset=nothing,看后面操作决定是否set nothing

End If



'关闭数据库连接
closeConnWithMysql()    ‘数据库连接关闭一次就可以了,根据增,删,改,查不同的操作,去决定是否新建数据集
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值