QTP-データベースへのアクセス

そのため、QTPはデータベースに接続するための組み込みサポートを提供しませんが、VBScriptテスターを使用すると、ADODBオブジェクトを使用してデータベースに接続し、対話することができます。

ADODBには、データベースを操作できる4つのプロパティまたはメソッドがあります。彼らは-

ADODB.Connection -データベースへの接続を確立するために使用
ADODB.Command -SQLコマンド（クエリまたはストアドプロシージャ）の実行に使用
ADODB.Fields -クエリ/ストアドプロシージャの実行後にレコードセットから特定の列をフェッチするために使用
ADODB.Recordset -データベースからデータを取得するために使用

データベースへの接続方法

データベースは、接続文字列を使用して接続できます。各データベースは、接続方法が異なります。ただし、接続文字列はhttp://www.connectionstrings.com/[www.connectionstrings.com]を使用して構築できます

次のパラメータを使用してデータベースに接続する方法を見てみましょう-

データベースタイプ-MSSQLサーバー
サーバー名-SQLEXPRESS
データベース名-トライアル
*ユーザーID *-sa
password -Password123

クエリの出力は、次のようにSQL Server Management Studioに表示されます-

データベースへのアクセス

Dim objConnection
'Set Adodb Connection Object
Set objConnection = CreateObject("ADODB.Connection")
Dim objRecordSet

'Create RecordSet Object
Set objRecordSet = CreateObject("ADODB.Recordset")

Dim DBQuery 'Query to be Executed
DBQuery = "Select NAME from dbo.EMPLOYEE where AGE = 29"

'Connecting using SQL OLEDB Driver
objConnection.Open "Provider = sqloledb.1;Server =.\SQLEXPRESS;
User Id = sa;Password=Password123;Database = Trial"

'Execute the Query
objRecordSet.Open DBQuery,objConnection

'Return the Result Set
Value = objRecordSet.fields.item(0)
msgbox Value

' Release the Resources
objRecordSet.Close
objConnection.Close

Set objConnection = Nothing
Set objRecordSet = Nothing

結果

上記のスクリプトを実行すると、次のように出力がメッセージボックスに表示されます-

データベース2へのアクセス

Qtp-accessing-databases

QTP-データベースへのアクセス

データベースへの接続方法

結果