51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

测试开发精英班,通向高级软件测试工程师论坛测试积点免费获取渠道攻略什么样的人才需要实战项目?横扫BAT,Python全栈测试开发技能大全
【113期】:Web安全测试你来问我来答!中国软件测试行业现状调查报告新鲜出炉! 【杂志】做测试行业不偏科的尖子生! 自学软件测试那点事
查看: 1555|回复: 2

[原创] 如何从对象中取出每一个值(结贴)

[复制链接]

该用户从未签到

发表于 2008-8-25 17:50:26 | 显示全部楼层 |阅读模式
编写函数QueryDatabase把数据(两个字段,N行数据)从数据库中放到一个对象objrsa中,然后将objrsa返回给Action,那么,在ACTION中如何依次取出objrsa中每个数据呢?
程序如下:
Action:
  Dim itemData,result
  Set result = QueryDatabase(tablename,fieldname1,fieldname2,fieldname3,network)

  ...'往下该怎么能才取出每个字段的每一行数据呢?试了好多方法都不管啊。。


public Function QueryDatabase(byref tablename,byref fieldname1,byref fieldname2,byref fieldname3,byref network)
  ' On error resume next
  Dim cnn,objrsa,sql
    Set cnn=createobject("adodb.connection")
Set objrsa=createobject("adodb.recordset")
    cnn.open "rovider=OraOLEDB.Oracle.1assword=xxxersist Security Info=True;User ID=xxx;Data Source=database"
If cnn.State=0 then
  cnn.close
  Set cnn=nothing
  Call WriteMsg(logFileNow,"连接数据库失败")
Else
  Call WriteMsg(logFileNow,"连接数据库成功")
End If
' 执行查询语句
    sql="select "&fieldname1&","&fieldname2&" from "&tablename&"  where "&fieldname3&" like '%"&network&"'"
    objrsa.open sql ,cnn,3,2
Set QueryDatabase = objrsa
    If err<>0 Then
  cnn.close
  Set cnn=nothing
  Call WriteMsg(logFileNow,"获得数据库数据时发生异常")
End If
  cnn.close
  Set cnn=nothing
End Function

[ 本帖最后由 centurystone 于 2008-8-28 16:24 编辑 ]
回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2008-8-26 17:26:51 | 显示全部楼层
晕。怎么给置成审核了。。。
现在连改都不让了。。。
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2008-8-28 16:24:41 | 显示全部楼层
已另外开贴,此贴结贴
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2020-7-8 15:08 , Processed in 0.070216 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2020 Comsenz Inc.

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