Dim Cnn
Dim Rst
Dim strCnn
Set Cnn = CreateObject("ADODB.Connection")
Set Rst =CreateObject("ADODB.Recordset")
strCnn="provider=OraOLEDB.Oracle.1;Data Source=192.168.10.8/aurora;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
If Cnn.State<>0 Then
strsql="select * from pets"
Rst.Open strsql,Cnn
i=1
Do While Not Rst.eof
msg=Rst("name")
'将pets表中的name列导入到datatable，Action1表的name列
Datatable.GetSheet("Action1").GetParameter("name").ValueByRow(i) = msg
'游标移动，指向下行记录
Rst.MoveNext
i=i+1
Loop
Rst.Close
Cnn.Close
Set Rst=nothing
Set cnn=nothing
End If
运行完毕，查看results，
[attach]74937[/attach]作者: 夏日摸摸茶 时间: 2011-8-22 15:43
学习了作者: 阳光下的橙子 时间: 2011-8-22 15:59
这个脚本有个弱点，只能操作类似Select * From XXX这种对物理表查询的结果
如果是一个存储过程返回的结果就无法获得了作者: yidao8808 时间: 2011-8-23 14:33 回复 3#阳光下的橙子