LoadActiveData メソッド

クラス

処理

スクリプトで使用する ActiveData 資産を読み込みます。

構文

Workbench.LoadActiveData("activeDataName", [sheetName, startRow, endRow, randomCount, readOnly])

変数	説明
`activeDataName`	スクリプトで使用する ActiveData 資産の名前。 STRING。注: 環境内で複数のプロジェクトを使用する場合、Common プロジェクト内にある、名前が一意でない ActiveData 資産を挿入するには、プロジェクト修飾子を使用します。詳細については、例を参照してください。
`sheetName`	省略可能：使用するシートの名前。ここで指定したシートは、ActiveData 資産で指定したシートを上書きします。デフォルトでは、資産で指定したシートが使用されます。STRING
`startRow`	省略可能：最初に読み込む ActiveData 資産内の行のインデックスです。INTEGER。
`endRow`	省略可能：最後に読み込む ActiveData 資産内の行のインデックスです。INTEGER。
`randomCount`	省略可能：資産に関連付けられた ActiveData ファイルのレコードを ActiveData テストで使用するかどうか、およびその方法を決定します。値が 0 または False の場合は、ランダムモードがオフになります。値が -1 または True の場合は、値が StartRow から EndRow のすべての行が ActiveData テストでランダムな順番で使用されます。値が 1 から N (N はテストデータ資産の行数) の場合は、StartRow から EndRow の範囲でのランダムな行数として使用されます。RandomCount パラメータの許容値とともに、さまざまな StartRow 値および EndRow 値を使用する場合の詳細については、「アクティブデータに使用するデータの指定」を参照してください。INTEGER。
`readOnly`	省略可能：ActiveData 資産を読み取り/書き込み可能で開くか、読み取り専用で開くかを決定します。読み取り/書き込み可能で ActiveData 資産を開くには、False に設定します。ActiveData 資産を読み取り専用として開くには、True に設定します。読み取り専用に設定すると、スクリプトの ActiveData テストの部分で ActiveData 資産に書き込みを行おうとした場合に実行時エラーが生成されます。デフォルトでは、ActiveData 資産は読み取り/書き込み可能で開かれます。BOOLEAN。

使用例

スクリプトに ActiveData 内のランダムな行を含めるには、次のように入力します。

Public Sub Main() 
  AddRandomToPhoneBook( 3 )	'Reads 3 rows in a random order
End Sub

Public Sub AddRandomToPhoneBook( howMany As Integer )
  Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData", 1, -1, howMany )
  Dim row As ActiveDataRow
		
  With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
    For Each row In data
      Dim FirstName As String = row.GetString("fname")
      Dim LastName As String = row.GetString("lname")
      Dim PhoneNumber As String = row.GetString("number")

      .DomTextField("@id='txtFirstName'").SetText(FirstName)
      .DomTextField("@id='txtLastName'").SetText(LastName)
      .DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)

      .DomButton("@id='btnAdd'").Select()
    Next
  End With
End Sub

スクリプトに ActiveData ファイル内のデータの一部を含めるには、次のように入力します。

Public Sub Main()
  AddSomeToPhoneBook( 3, 5 )	'Reads rows 3, 4 and 5 only		
End Sub

Public Sub AddSomeToPhoneBook( firstToAdd As Integer, lastToAdd As Integer )
  Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData", firstToAdd, lastToAdd )
  Dim row As ActiveDataRow
		
  With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
    For Each row In data
      Dim FirstName As String = row.GetString("fname")
      Dim LastName As String = row.GetString("lname")
      Dim PhoneNumber As String = row.GetString("number")

      .DomTextField("@id='txtFirstName'").SetText(FirstName)
      .DomTextField("@id='txtLastName'").SetText(LastName)
      .DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)

      .DomButton("@id='btnAdd'").Select()
    Next
  End With
End Sub

スクリプトに ActiveData ファイル内のすべてのデータを読み取り専用として含めるには、次のように入力します。

Public Sub Main()
  AddAllToPhoneBookReadOnly()	'Opens the data file as read only
End Sub

Public Sub AddAllToPhoneBookReadOnly()
  Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData", 1, -1, 0, True )
  Dim row As ActiveDataRow

  With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
    For Each row In data
      Dim FirstName As String = row.GetString("fname")
      Dim LastName As String = row.GetString("lname")
      Dim PhoneNumber As String = row.GetString("number")

      .DomTextField("@id='txtFirstName'").SetText(FirstName)
      .DomTextField("@id='txtLastName'").SetText(LastName)
      .DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)

      .DomButton("@id='btnAdd'").Select()
    Next
  End With
End Sub

環境内で複数のプロジェクトを使用する場合、Common プロジェクト内にある、名前が一意でない ActiveData ファイルを挿入するには、プロジェクト修飾子を使用します。たとえば、以下のように入力します。

Public Sub Main()
  AddAllToPhoneBookReadOnly()	'Opens the data file as read only
End Sub

Public Sub AddAllToPhoneBookReadOnly()
  Dim data As ActiveData = Workbench.LoadActiveData( "Common.PhoneBookData", 1, -1, 0, True )
  Dim row As ActiveDataRow

  With _desktop.BrowserWindow("/BrowserApplication//BrowserWindow")
    For Each row In data
      Dim FirstName As String = row.GetString("fname")
      Dim LastName As String = row.GetString("lname")
      Dim PhoneNumber As String = row.GetString("number")

      .DomTextField("@id='txtFirstName'").SetText(FirstName)
      .DomTextField("@id='txtLastName'").SetText(LastName)
      .DomTextField("@id='txtPhoneNumber'").SetText(PhoneNumber)

      .DomButton("@id='btnAdd'").Select()
    Next
  End With
End Sub

注: 任意のプロジェクト内の資産から、Common プロジェクト内の資産にアクセスできます。ただし、その逆はできません。現在処理中のプロジェクト内の ActiveData ファイルを使用する場合、プロジェクト修飾子を指定する必要はありません。別のプロジェクト内の Common プロジェクトにある ActiveData ファイルを使用する場合は、「Common」プロジェクト修飾子を指定します。