zoukankan      html  css  js  c++  java
  • QTP从数据库中导出数据

    QTP从数据库中导出数据到excel中

    Set objExcel = createobject("Excel.Application")
    xlsUrl = "C:\aa.xls"
    objExcel.Workbooks.Open(xlsUrl)
    Set sheetNew = objExcel.Sheets.Item(1) '把数据库中的内容保存到excel的sheet1表中
    Set conn = CreateObject("adodb.connection")
    set res = createobject("adodb.recordset")
    conn.Open "Provider=SQLOLEDB.1;Password=Password01!;Persist Security Info=True;User ID=sa;Initial Catalog=PCRM2;Data Source=ws-gisgtssts-03\paypaltestserver"
    strSql = "select * from RoleBase"
    res.Open strSql,conn,1,1

    Dim i
    i = 1
    While not res.EOF
    roleID = res("RoleId").value
    name1 = res("Name").value
    IsDeleted = res("IsDeleted").value
    sheetNew.cells(i + 1,1).value = roleID '从excel表中的第2行开始
    sheetNew.cells(i + 1,2).value = name1
    sheetNew.cells(i + 1,3).value = IsDeleted
    i = i + 1
    res.MoveNext
    Wend

    objExcel.ActiveWorkbook.Save
    objExcel.Quit
    Set objExcel = nothing
    res.Close
    Set res = nothing

     QTP从数据库中导出数据到DataTable中

    Set conn = CreateObject("adodb.connection")
    set res = createobject("adodb.recordset")
    conn.Open "Provider=SQLOLEDB.1;Password=Password01!;Persist Security Info=True;User ID=sa;Initial Catalog=PCRM2;Data Source=ws-gisgtssts-03\paypaltestserver"
    strSql = "select * from RoleBase"
    res.Open strSql,conn,1,1

    Dim i
    i = 1
    While not res.EOF
    roleID = res("RoleId").value
    name1 = res("Name").value
    IsDeleted = res("IsDeleted").value
    DataTable.LocalSheet.GetParameter("RoleId").ValueByRow(i) = roleID
    DataTable.LocalSheet.GetParameter("Name").ValueByRow(i) = name1
    DataTable.LocalSheet.GetParameter("IsDeleted").ValueByRow(i) = IsDeleted
    i = i + 1
    res.MoveNext
    Wend

    res.Close
    Set res = nothing


     

  • 相关阅读:
    poj3292
    poj2635
    Android学习之——自己搭建Http框架(2)——框架扩展
    swift -函数、函数指针
    算法导论 第二十一章:不相交集合森林
    Java推断类和实例的关系
    深搜解Riding the Fences
    mariadb克隆
    java-集合类(二)
    在GitHub上使用Hexo搭建静态博客
  • 原文地址:https://www.cnblogs.com/emilyzhang68/p/2293704.html
Copyright © 2011-2022 走看看