QTP从数据库中导出数据

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

Set bjExcel = 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 bjExcel = nothing
 res.Close
 Set res = nothing

2.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