QTP连接数据库

EG:简单代码
Dim Con     //定义变量
Dim rs      //定义变量
Dim conset  //定义变量
conset="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=LMS2.0;Data Source=YANJIN"  //将获得的链接字符串赋值到定义的变量conset中
Set Con=CreateObject("ADODB.Connection")  //生成数据库连接对象
Con.Open conset  //打开数据库
Set rs=CreateObject("ADODB.Recordset")    //生成记录集对象
rs.Open "select userName  from dbo.tbUsers",Con  //书写SQL语句
//条件判断（有读到数据提示Pass，反之提示failed）
If con.State=0 Then         
 msgbox"failed"
 else
 msgbox"pass"
End If
rs.MoveFirst  //将焦点定在第一行
con.close   //关闭数据库连接
Set con=nothing   //清空连接对象

EG：稍微复杂代码
Set excelObj=CreateObject("Excel.Application")    //创建一个对象
xlsUrl="C:\Documents and Settings\zhuy\桌面\a.xlsx"   //指定一个已经存在的Excel文件路径
excelObj.workbooks.open(xlsUrl)   //打开Excel
Set sheetNew=excelObj.sheets.item(1)   //设置将数据放在Excel中（索引从1开始）
//数据库操作
Set conn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
conn.Open"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=LMS2.0-2;Data Source=YANJIN"
rs.Open"select name  from dbo.tbCompetencie",conn 
Dim i   //定义变量
while not rs.EOF  //条件判断语句
CompetencieName=rs("name").value  //列赋值
sheetNew.cells(i+1,1).value=CompetencieName   //将获取到的数值填入sheetNew对象
i=i+1  //遍历循环
rs.movenext  //执行下一行
wend  //条件判断结束语句
excelObj.ActiveWorkbook.SaveAs xlsUrl  //保存数据
excelObj.quit  //关闭对象
Set excelObj=nothing   //清空对象
rs.close  //关闭对象
Set rs=nothing   //清空对象
conn.close   //关闭对象
Set conn=nothing   //清空对象