QTP-访问数据库

QTP是一款强大的自动化测试工具，它可以测试Web应用、Windows应用、Java应用等。同时，QTP还支持访问数据库，可以实现数据的增删改查等操作。

数据库连接

使用QTP访问数据库，首先需要建立数据库连接。QTP支持多种类型的数据库连接，比如Access、SQL Server、Oracle等。

Access数据库连接

Access数据库连接需要安装Microsoft Access Database Engine，连接语句如下：

Set cn = CreateObject("ADODB.Connection") 
With cn 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 'Access 2003及以上版本
    '.Provider = "Microsoft.Jet.OLEDB.4.0" 'Access 2000及以下版本
    .ConnectionString = "Data Source=C:\Test.mdb" 'Access数据库文件路径
    .Open 
End With

SQL Server数据库连接

SQL Server数据库连接需要安装SQL Server Native Client，连接语句如下：

Set cn = CreateObject("ADODB.Connection") 
With cn 
    .Provider = "SQLNCLI10" 'SQL Server 2008及以上版本
    '.Provider = "SQLNCLI" 'SQL Server 2005版本
    .ConnectionString = "Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;" 'SQL Server连接字符串
    .Open 
End With

Oracle数据库连接

Oracle数据库连接需要安装Oracle Provider for OLE DB或Oracle Data Provider for .NET，连接语句如下：

Set cn = CreateObject("ADODB.Connection") 
With cn 
    .Provider = "OraOLEDB.Oracle" 'Oracle Provider for OLE DB
    '.Provider = "Oracle.DataAccess.Client" 'Oracle Data Provider for .NET
    .ConnectionString = "Data Source=myTNS;User Id=myUsername;Password=myPassword;" 'Oracle连接字符串
    .Open 
End With

数据库操作

建立好数据库连接之后，就可以对数据库进行操作。常见的操作包括数据的增删改查。

数据查询

数据查询可以使用Recordset对象，查询语句如下：

Set rs = CreateObject("ADODB.Recordset") 
rs.Open "SELECT * FROM myTable", cn '查询语句和连接对象
Do Until rs.EOF 
    '处理每一条记录
    rs.MoveNext 
Loop
rs.Close

数据插入

数据插入需要使用Execute方法，插入语句如下：

cn.Execute "INSERT INTO myTable (Field1, Field2) VALUES ('Value1', 'Value2')"

数据更新

数据更新需要使用Execute方法，更新语句如下：

cn.Execute "UPDATE myTable SET Field1='Value1' WHERE Field2='Value2'"

数据删除

数据删除需要使用Execute方法，删除语句如下：

cn.Execute "DELETE FROM myTable WHERE Field='Value'"

总结

QTP的数据库操作功能强大且灵活，可以满足大多数自动化测试项目的需求。同时，QTP也提供了丰富的API和插件，以便开发人员进行更高级和定制化的数据库操作。