先说下被测系统的基本情况，被测系统是C/S架构，服务器是Linux Kernel 2.6 +PostgreSQL，客户端在XP下。计划要做的是通过描述性编

最近一段时间一直在研究通过QTP实现自动化；以前学一段时间的QTP后就基本就没有用过，也没搞过自动化，所以无论是自动化还是QTP实际上还是个带着蛋壳的菜鸟；不过这段时间的研究也是自得其乐，特意在blog上写几篇文章，记录下自己学习的点点滴滴！

经过一段时间的琢磨，已经到了开始研究数据库检查点的阶段了；之前研究的一些成果如通过描述性编程实现位图检查点、文本检查点的经历也会慢慢补充到blog上。

先说下被测系统的基本情况，被测系统是C/S架构，服务器是Linux Kernel 2.6 +PostgreSQL，客户端在XP下。

计划要做的是通过描述性编程实现数据库检查点，个人觉得更灵活一些；不过既然用的是QTP做自动化，那自然要学一下通过QTP自带的检查点功能实现数据库检查点；过程基本清楚，但是涉及到具体细节时就真的磕磕绊绊了；当添加数据库连接时就遇到了小麻烦，要连接的数据库是PostgreSQL，而Windows默认的ODBC里没有PostgreSQL的驱动，所以要先上网下载一个，下载地址如下：

下载在Linux公社的1号FTP服务器里，下载地址：

FTP地址：ftp://www.linuxidc.com

用户名：

密码：

在 2011年LinuxIDC.com\3月\菜Gavin学QTP之数据库检查点

下载方法见

安装后就可以通过ODBC配置server ip（数据库所在ip）、user name（数据库的用户名）、password（用户密码）、DataBase（数据库名称）来连接到PostgreSQL了；其余配置都很基础，，在此不详细说明了；

然后说说通过描述性编程来实现数据库检查点；基本思路是通过ADODB来连接、打开、操作数据库；但是执行了下面的脚本后在连接数据库时提示“[Microsoft][ODBC 驱动程序管理器]未发现数据源名称并且未指定默认驱动程序”，主要是当时还没安装PostgreSQL的ODBC驱动；当时通过QTP自带的功能插入数据库检查点失败后就想直接用描述性编程实现算了，结果也没成功，后来没办法下载了驱动后，两种方法都成功了；太晚了，后续的实现方法也会逐渐更新上来，大家看看也好点评一下，看看是否有更优办法！

set conn=CreateObject("ADODB.Connection")

set rs =CreateObject("ADODB.RecordSet")

ConnectionString="DRIVER ={PostgreSQL ANSI};Server=172.19.2.130;UID=sa; PWD=sa; Database=testdb;"

Conn.Open ConnectionString

strSQL ="select * from tbl_device "

rs.open strSQL,conn

If conn.State = 0 Then

Msgbox "连接数据库失败"

Else

Msgbox "连接数据库成功"

End If