qtp学习笔记二（有关数据库的操作）

  数据库摸索起来就是麻烦，弄了半天，才实现了把数据库里的数据导入excel表的功能，本代码不需要设置数据源和安装sqlserver2005,不过要先在d盘建立一个test.xls文件，大家共同学习：）

Dim cnn,rst,strCnn,i
i=1
Set excelobj=createobject("excel.application")'设置excel对象
xlsurl="d:\test.xls"
excelobj.workbooks.open(xlsurl)'打开excel对象
Set sheetNew=excelobj.sheets.item(1)'设置excel文件中的第一页为操作对象
Set cnn=createobject("adodb.connection")'连接数据库对象
Set rs=createobject("adodb.recordset") '数据库的记录数对象
strcnn="driver=sql server;server=192.168.2.6;uid=sa;pwd=111111;app=microsoft office 2003;wsid=WWW-8667BF09E6F;database=qtp" 'server为数据库服务器的ip地址,wsid为本机器名,database为数据库名
cnn.open strcnn '打开数据库连接
If cnn.state=0 Then '连接是否建立，失败弹出提示框
  msgbox "failed"
  else
  msgbox "pass"
End If

rs.open "select * from test",cnn '把sql语句放入数据库里执行
rs.movefirst     '指向第一条记录
Do while not rs.eof '如果下一条记录不存在则跳出循环
 a=rs("a").value     '字段a的值赋给变量a
 b=rs("b").value
 sheetNew.cells(i,1).value=a '把a的值赋给 excel表的第一个框
  sheetNew.cells(i,2).value=b
  i=i+1
  rs.movenext '移动到下一条
Loop
excelobj.activeworkbook.save '保存excel文件
excelobj.quit       '关闭对象
Set excelobj=nothing '释放对象
cnn.close '关闭连接
Set cnn=nothing'释放连接