QTP连接数据库

Set excelObj = CreateObject("Excel.Applicaiton") '创建一个对象51Testing软件测试网!@4ywxf2y

 xlsUrl = "C:\测试结果.xls" '指定一个已经存在的XSL文件路径

 excelObj.workbooks.open(xlsUrl) '打开EXCEL

 51Testing软件测试网 L&Nt_H$p\G4N

 Set sheetNew = excelObj.sheets.item(2) '设置将数据放在EXCEL中的那一页上(索引从１开始)51Testing软件测试网5HS,dS(Q}oU"a

'相关的数据库操作51Testing软件测试网#Iz%{b)M^b

Set conn = CreateObject("adodb.connection")

set rs = createobject("adodb.recordset")51Testing软件测试网8Ta8@/n:b

 51Testing软件测试网5fS0T&[&v5c

conn.open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=callbackdb;Data Source=192.168.1.53"51Testing软件测试网#Q%Ly s-c{2v;m

sql="select * from callrecord"

 rs.open sql,conn51Testing软件测试网!c Q}b;^$s
s

Dim i51Testing软件测试网 \[0x-Gq[Z3f4@ e

i = 2651Testing软件测试网t#@/E;u7awCwmP

While not rs.eof

user_id = rs("CALLID").value

user_name = rs("SESSIONID").value

sheetNew.cells(i+1,1).value = user_id '列赋值51Testing软件测试网+S&C$I^ftf"l

sheetNew.cells(i+1,2).value = user_name '列赋值

 i = i + 151Testing软件测试网\#Fpl-P&qF

 rs.movenext

 wend51Testing软件测试网iDD(P-k C!C9l a.z1P

 excelObj.activeworkbook.saveas "C:\QTP\0110\sql-excel-qtp\data.xls" '保存数据51Testing软件测试网L#a"pqmP

 excelObj.quit '关闭对象51Testing软件测试网"e}%ORC5?'`f

 set excelObj = nothing '清空对象

 rs.close '关闭数据库连接操作51Testing软件测试网/f3IB9n&k]

 set rs=nothing51Testing软件测试网r6X9csnHs-b

  conn.close51Testing软件测试网Z0Cm%l*X7\ n{gX n