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

?

轉載于:https://www.cnblogs.com/emilyzhang68/archive/2011/12/19/2293704.html

總結

以上是生活随笔為你收集整理的QTP从数据库中导出数据的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。