(1) 首先要在控制面板中，加一个odbc数据源。
(2) 在qtp中建立连接和记录集
set cnn=createobject("adodb.connection")
set ōbjrsa=createobject("adodb.recordset")
(3) 连接数据库
cnn.open "provide=msdaora;userid=apts;password=apts;data source=afctwo"
userid/password,是登陆数据库的用户名和密码，这样数据库就连接上。
(4) 对数据库进行操作。
objrsa.open "select bustypefullname from bustypeinfo",cnn,3,2
a=objrsa("bustypefullname").value得到字段bustypefullname的值赋值给了变量a