菜Gavin學(xué)QTP之PostgreSQL數(shù)據(jù)庫(kù)檢查點(diǎn)

最近一段時(shí)間一直在研究通過(guò)QTP實(shí)現(xiàn)自動(dòng)化；以前學(xué)一段時(shí)間的QTP后就基本就沒(méi)有用過(guò)，也沒(méi)搞過(guò)自動(dòng)化，所以無(wú)論是自動(dòng)化還是QTP實(shí)際上還是個(gè)帶著蛋殼的菜鳥(niǎo)；不過(guò)這段時(shí)間的研究也是自得其樂(lè)，特意在blog上寫(xiě)幾篇文章，記錄下自己學(xué)習(xí)的點(diǎn)點(diǎn)滴滴！

經(jīng)過(guò)一段時(shí)間的琢磨，已經(jīng)到了開(kāi)始研究數(shù)據(jù)庫(kù)檢查點(diǎn)的階段了；之前研究的一些成果如通過(guò)描述性編程實(shí)現(xiàn)位圖檢查點(diǎn)、文本檢查點(diǎn)的經(jīng)歷也會(huì)慢慢補(bǔ)充到blog上。-
 

先說(shuō)下被測(cè)系統(tǒng)的基本情況，被測(cè)系統(tǒng)是C/S架構(gòu)，服務(wù)器是Linux Kernel 2.6 +PostgreSQL，客戶(hù)端在XP下。

計(jì)劃要做的是通過(guò)描述性編程實(shí)現(xiàn)數(shù)據(jù)庫(kù)檢查點(diǎn)，個(gè)人覺(jué)得更靈活一些；不過(guò)既然用的是QTP做自動(dòng)化，那自然要學(xué)一下通過(guò)QTP自帶的檢查點(diǎn)功能實(shí)現(xiàn)數(shù)據(jù)庫(kù)檢查點(diǎn)；過(guò)程基本清楚，但是涉及到具體細(xì)節(jié)時(shí)就真的磕磕絆絆了；當(dāng)添加數(shù)據(jù)庫(kù)連接時(shí)就遇到了小麻煩，要連接的數(shù)據(jù)庫(kù)是PostgreSQL，而Windows默認(rèn)的ODBC里沒(méi)有PostgreSQL的驅(qū)動(dòng)，所以要先上網(wǎng)下載一個(gè)，下載地址如下：

下載在Linux公社的1號(hào)FTP服務(wù)器里，下載地址：

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

用戶(hù)名：www.linuxidc.com

密碼：www.muu.cc

在 2011年LinuxIDC.com\3月\菜Gavin學(xué)QTP之?dāng)?shù)據(jù)庫(kù)檢查點(diǎn)

下載方法見(jiàn) http://www.linuxidc.net/thread-1187-1-1.html

安裝后就可以通過(guò)ODBC配置server ip（數(shù)據(jù)庫(kù)所在ip）、user name（數(shù)據(jù)庫(kù)的用戶(hù)名）、password（用戶(hù)密碼）、DataBase（數(shù)據(jù)庫(kù)名稱(chēng)）來(lái)連接到PostgreSQL了；其余配置都很基礎(chǔ)，在此不詳細(xì)說(shuō)明了；

然后說(shuō)說(shuō)通過(guò)描述性編程來(lái)實(shí)現(xiàn)數(shù)據(jù)庫(kù)檢查點(diǎn)；基本思路是通過(guò)ADODB來(lái)連接、打開(kāi)、操作數(shù)據(jù)庫(kù)；但是執(zhí)行了下面的腳本后在連接數(shù)據(jù)庫(kù)時(shí)提示“[Microsoft][ODBC 驅(qū)動(dòng)程序管理器]未發(fā)現(xiàn)數(shù)據(jù)源名稱(chēng)并且未指定默認(rèn)驅(qū)動(dòng)程序”，主要是當(dāng)時(shí)還沒(méi)安裝PostgreSQL的ODBC驅(qū)動(dòng)；當(dāng)時(shí)通過(guò)QTP自帶的功能插入數(shù)據(jù)庫(kù)檢查點(diǎn)失敗后就想直接用描述性編程實(shí)現(xiàn)算了，結(jié)果也沒(méi)成功，后來(lái)沒(méi)辦法下載了驅(qū)動(dòng)后，兩種方法都成功了；太晚了，后續(xù)的實(shí)現(xiàn)方法也會(huì)逐漸更新上來(lái)，大家看看也好點(diǎn)評(píng)一下，看看是否有更優(yōu)辦法！

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 "連接數(shù)據(jù)庫(kù)失敗"

Else

Msgbox "連接數(shù)據(jù)庫(kù)成功"

End If

服務(wù)器租用/服務(wù)器托管中國(guó)五強(qiáng)！虛擬主機(jī)域名注冊(cè)頂級(jí)提供商！15年品質(zhì)保障！--億恩科技[ENKJ.COM]