QTP之清除测试数据

Dim sql,sql2,tishi

Dim day1

day1 = Date()-1

sql="select * from cl_feed where usercode='00004084' and appcode = 'album' and creationDate > '"&day1&"'"
sql2="delete  from cl_feed where usercode='00004084' and appcode = 'album' and creationDate > '"&day1&"'"
tishi="主页之照片"

Call deleteTestInfo(sql,sql2,tishi)

Function deleteTestInfo(sql,sql2,tishi)

Dim rs,conn,strconn,rsdel

Set rs=createobject("ADODB.recordset")

Set rsdel=createobject("ADODB.recordset")

Set conn=createobject("ADODB.Connection")

conn.ConnectionString ="DRIVER=SQL Server;SERVER=ADSERVER;UID=Customer;PWD=Customer;APP=QuickTest Professional;WSID=995D5369A65743E"

conn.Open

Set rs.ActiveConnection = conn

Set rsdel.ActiveConnection = conn

rs.CursorType = adOpenDynamic
rsdel.CursorType = adOpenDynamic

rs.Open sql

If rs.eof=false Then 
         reporter.ReportEvent micPass,tishi,"测试通过！"
         rsdel.Open sql2

         If  rs.eof=false Then
              reporter.ReportEvent micPass,tishi,"清除数据成功！"
  else  
       reporter.ReportEvent micFail,tishi,"清除数据失败！"
        End If 
 else
           reporter.ReportEvent micFail,tishi,"测试失败！"
End If

Set rs=nothing
Set rsdel=nothing
conn.Close

End Function