QTP訪問外部數(shù)據(jù)之一：數(shù)據(jù)庫

第第頁QTP訪問外部數(shù)據(jù)之一：數(shù)據(jù)庫QTP訪問外部數(shù)據(jù)之一：數(shù)據(jù)庫

發(fā)表于：2023-07-15來源：：點(diǎn)擊數(shù)：標(biāo)簽：數(shù)據(jù)庫qtpQTP訪問

QTP有時(shí)候需要訪問數(shù)據(jù)庫，以下整理了一些訪問數(shù)據(jù)庫常用的FUNCTION'================================================'說明：連接數(shù)據(jù)庫'參數(shù)：curSession，數(shù)據(jù)庫連接的指針，用于后面具體訪問的操作'connection_string，連接字符串，如'connecti

QTP有時(shí)候需要訪問數(shù)據(jù)庫，以下整理了一些訪問數(shù)據(jù)庫常用的FUNCTION

'================================================

'說明：連接數(shù)據(jù)庫

'參數(shù)：curSession，數(shù)據(jù)庫連接的指針，用于后面具體訪問的操作

'connection_string，連接字符串，如

'connection_string="Provider=MSDAORA.1;Password=password;UserID=user;DataSource=orcl;PersistSecurityInfo=True"

'返回值:0表示連接數(shù)據(jù)庫成功，其它的為出錯(cuò)信息。

'================================================

Functiondb_connect(byRefcurSession,connection_string)

dimconnection

onerrorResumenext

'打開連接

setconnection=CreateObject("ADODB.Connection")

IfErr.Number0then

db_connect="Error#"CStr(Err.Number)""Err.Descrīption

err.clear

ExitFunction

EndIf

connection.Openconnection_string

IfErr.Number0then

db_connect="Error#"CStr(Err.Number)""Err.Descrīption

err.clear

ExitFunction

EndIf

setcurSession=connection

db_connect=0

EndFunction

'==============================================

'說明：斷開數(shù)據(jù)庫連接

'參數(shù)：curSession,數(shù)據(jù)庫連接的指針

'返回值：無

'==============================================

Functiondb_disconnect(byRefcurSession)

curSession.close

setcurSession=Nothing

EndFunction

'===============================================

'說明：通過查詢語句，得到一個(gè)記錄集

'參數(shù)：curSession,數(shù)據(jù)庫連接的指針，SQL，相關(guān)SQL語句

'返回值：函數(shù)返回一個(gè)記錄集'

'==============================================

Functiondb_execute_query(byRefcurSession,SQL)

setrs=curSession.Execute(SQL)

setdb_execute_query=rs

EndFunction

'=============================================

'說明：獲取記錄集的行數(shù)

'參數(shù)：curRS,記錄集的指針

'返回值：返回行數(shù)

'===============================================

Functiondb_get_rows_count(byRefcurRS)

Onerrorresumenext

dimrows

rows=0

curRS.MoveFirst

DoUntilcurRS.EOF

rows=rows+1

curRS.MoveNext

Loop

db_get_rows_count=rows

EndFunction

'=============================================

'說明：得到記錄集當(dāng)中某一行某一列的值

'參數(shù)：curRecordSet，記錄集的指針，rowIndex，行的標(biāo)識，從0開始，

'colIndex，列的標(biāo)識，從0開始，可以是列名

'============================================

Functiondb_get_field_value(curRecordSet,rowIndex,colIndex)

dimcurRow

curRecordSet.MoveFirst

count_fields=curRecordSet.fields.count-1

If(TypeName(colIndex)"String")and(count_fieldscolIndex)then

db_get_field_value=-1'requestedfieldindexmorethanexistsinrecordset

Else

curRecordSet.MoverowIndex

db_get_field_value=curRecordSet