关于qtp的又一些代码

1,连接数据库，并对数据库中的某张表进行删除操作

Dim conn,res,strSql,conset'定义变量

conset="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tempdb;Data Source=WANGYT/sqlexpress" '开启连接
set conn = CreateObject("ADODB.Connection")'创建连接
conn.open conset
Set res = CreateObject("ADODB.RecordSet")'创建一个记录集对象
strSql="select * from student"
If conn.state=0 Then '如果连接状态为0，表示连接失败，写入reporter对象中，否则表示连接成功
Reporter.ReportEvent micFail,"testing","数据库连接失败"
'res.close'关闭结果集和连接，并且置为空
'Set res = nothing
'conn.close
else
Reporter.ReportEvent micPass,"testing","数据库连接成功"
res.open strSql,conn'执行查询语句
res.MoveFirst'将记录集游标指到记录集的最开始
Do
Reporter.ReportEvent micPass,"file",cstr(res(0))+" : "+cstr(res(1)) '循环遍历查询结果，并且保持到reproter对象中，直到记录集到达末尾，循环结束
res.MoveNext
Loop until res.eof = true
End If
res.close
Set res = nothing
conn.close

2，查询数据库并将结果写入到excel表格中

Dim excelObj,sheetNew,strSql,conset
Set excelObj = createobject("Excel.Application") '创建一个excel对象
excelObj.workbooks.open("F:/test/tao.xls")
Set sheetNew = excelobj.sheets.item(1)'' 设置将数据放在 EXCEL 中的那一页上 ( 索引从１开始 )
conset="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tempdb;Data Source=WANGYT/sqlexpress"
Set conn=createobject("Adodb.Connection")
strSql="select * from student"
Set res=createobject("Adodb.recordset")
conn.open conset
res.Open strSql, conn 'strSql为查询语句

res.MoveFirst()
Dim i
Dim j
j=1
Do while not res.eof
For i=0 to res.Fields.count-1
sheetNew.cells(j,(i+1)).value=res.fields(i).value
Next
j=j+1
res.movenext()
Loop
res.close
conn.close
Set res=nothing
Set conn=nothing
excelObj.activeworkbook.saveas "F:/test/tao.xls" ' 保存数据
excelObj.quit ' 关闭对象
set excelObj = nothing ' 清空对象