TestComplete ADO连接SQL数据库,查询数据导出到EXCEL

感受:由于每次测试都需要执行类似操作,不得已写了这段操作。虽然内容比较简单,但中间磕磕碰碰还是有的,完成之后还是有所收获的。其实在任何编译器里都能执

行,为什么选择TC呢?因为在研究这货,捣鼓一个月发现自动化功能难以发挥其威力,因此决定当半自动化工具用,第一个想到的就是连接数据库,今后就决定用这货分析数据了,顺便学习下VBS大笑

代码作用:根据查询语句,在excel中得到需要数据,现数据还需要手动分析,正研究如何自动分析并得到结果。


Sub Main         

  Dim driver,Path,i,j
  Dim connection,cnstr
  Dim qry,recordset
  Dim xlbook,objExcel,xlsheet
  Dim irowcount,icolcount

  Dim AreaId,ProjectId


  '输入地区号(业务)


  AreaId=37 


  '连接数据库
  
  set connection=Sys.OleObject("ADODB.Connection")
  connection.ConnectionString= "Provider=SQLOLEDB;"&_ 
  "Server=.\BILL2006;Database=ScoreData2010;Uid=sa; Pwd=BILL2006;"
  call  connection.open(cnstr) 
  if err Then
    MsgBox("连接SQL出错!")
    Wscript.quit
  end if
  
  'SQL查询语句(业务原因查询了两次,现仍不知道有没其他方法可以在不关闭的情况下再执行一次查询)
  
  set recordset=Sys.OleObject("ADODB.Recordset")
  qry="select * from td_project where proj_area="&AreaId
  call recordset.Open(qry,connection,1,1)
  recordset.MoveFirst
  ProjectId=recordset.Fields(0).value
  recordset.Close
  
  set recordset=Sys.OleObject("ADODB.Recordset")   
  qry="select biin_Idx,biin_Name,biin_Total from dbo.td_BidInfo where biin_ProjectID='"&ProjectId&"' order by biin_Idx"
  call recordset.Open(qry,connection,1,1)
  
  '打开excel
  
  path="d:\test.xls" 
  Set objExcel = CreateObject("Excel.Application")
  objexcel.Visible = False
  set xlbook = objExcel.workbooks.open(path)
  Set xlsheet  =  xlbook.Worksheets(1)
  
  '导出数据
  
  if recordset.RecordCount<1 Then
    Log.Message("没有数据!")
  End If
  irowcount=recordset.RecordCount
  icolcount=recordset.Fields.Count
  xlsheet.Activate
  xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(irowcount+1,icolcount)).Font.Size=10
  xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(irowcount+1,icolcount)).Font.name="黑体"
  for i=0 to irowcount-1 
    xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(irowcount+1,icolcount)).Rows(i+1).RowHeight=15 
  Next
  xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,icolcount)).Font.Bold=true
  for i=0 to  icolcount-1
    xlsheet.cells(1,i+1)=recordset(i).name
  Next
  recordset.MoveFirst
  while not recordset.EOF 
    for i=0 to irowcount-1
      for j=0 to recordset.Fields.Count-1
         if IsNull(recordset.Fields(j).value) Then
             xlsheet.Cells(i+1,j+1)=""
         Else
         xlsheet.Cells(i+2,j+1)=CStr(recordset.Fields(j).value)
         end If        
      next
      recordset.MoveNext
    next
  Wend
  
  '保存excel 关闭excel、数据库
  
  xlbook.Save  
  xlbook.Close
  Set xlbook = nothing
  objExcel.quit
  set objexcel = Nothing 
  recordset.Close 
  set recordset=Nothing
  connection.Close
  set connection=Nothing
  Log.Message("导出成功!")
  Log.Message("ProjectId:"&ProjectId)
  Log.Message("")
End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值