DataRecordsets.AddFromXML メソッド (Visio)
DataRecordset オブジェクトを DataRecordsets コレクションに追加し、結果のデータ レコードセットに XML 文字列の形式で指定されたデータを入力します。
注:
この Visio オブジェクトまたはメンバーは Visio Professional 2013 のライセンス ユーザーのみが使用できます。
構文
式。AddFromXML (XMLString、 AddOptions、 Name)
式DataRecordsets オブジェクトを返す式。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
XMLString | 必須 | String | Microsoft ActiveX データ オブジェクト (ADO) クラシック XML スキーマに準拠し、インポートするデータを記述する XML 文字列。 |
AddOptions | 必須 | Long | 追加するデータのレコードセットのプロパティを指定するオプションです。 VisDataRecordsetAddOptions からの 1 つ以上の列挙値の組み合わせ。 詳細については、「備考」を参照してください。 |
名前 | 省略可能 | String | 追加する DataRecordset オブジェクトの表示名を割り当てます。 |
戻り値
DataRecordset
注釈
XMLString パラメーターでは、ADO の従来の XML スキーマに準拠し、インポートするデータを表す XML 文字列を渡します。 この後の例で、簡単な XML 文字列を示します。
AddOptions パラメーターは、Microsoft Visio タイプ ライブラリで宣言される VisDataRecordsetAddOptions 列挙から取得される以下の値の 1 つ以上の組み合わせになります。 既定値はゼロ (0) で、どのオプションも設定されません。
定数 | 値 | 説明 |
---|---|---|
visDataRecordsetNoExternalDataUI | 1 | 新しいデータ レコードセットのデータは [外部データ] ウィンドウに表示されません。 |
visDataRecordsetNoAdvConfig | 4 | データ レコードセットは [データ更新の構成] ダイアログ ボックスに表示されません。 |
visDataRecordsetDontCopyLinks | 16 | データ レコードセットを追加しますが、図形データ リンクは切り取られたりコピーされたりしません。 |
一度割り当てた値は、DataRecordset オブジェクトが存在する間は変更することができません。
引数 Name は、データ レコードセットに表示名を割り当てるための文字列です (省略可能)。 [外部データ] ウィンドウを Visio UI に表示するように指定している場合、この引数によって渡される名前が追加したデータ レコードセットに対応する [外部データ] ウィンドウのタブに表示されます。
Add メソッドまたは AddFromConnectionFile メソッドを使用して作成されたデータ レコードセットとは異なり、AddFromXML メソッドを使用して作成されたデータ レコードセットは、DataConnection オブジェクトに関連付けられません。
さらに、AddFromXML メソッドを使用して作成されたデータ レコードセットは、DataRecordset.RefreshInterval プロパティの設定に関係なく自動的にリフレッシュされません。 このようなデータ レコードセット内のデータを更新するには、 DataRecordset.RefreshUsingXML メソッドを 呼び出す必要があります。
AddFromXML メソッドが成功すると、次のアクションが実行されます。
DataRecordset オブジェクトを作成し、Name パラメーターに指定されている名前を割り当てます。 名前を指定しない場合、Visio はデータ レコードセットに、データのソースであるデータベース テーブルの名前を割り当てます。
データ ソースの列のデータ型を対応する Visio データ型にマップします。同時に、対応する Visio データ型を持たないために Visio の図形にリンクできないデータ ソースの列を削除するため、結果をフィルター処理します。
インポートされたデータに有効な Visio データ行 ID がない場合、データ レコードセットに各行に Visio データ行 ID を割り当てます。 Visio データ行 ID の詳細については、「 DataRecordset.GetDataRowIDs 」トピックを参照してください。
例
次の Microsoft Visual Basic for Applications (VBA) マクロは、AddFromXML メソッドを使用して、Visio 図面を ADO XML 文字列に含まれるデータに接続する方法を示します。
XML 文字列の例は、次のとおりです。 AddFromXML メソッドに渡されると、この文字列は、"Cities" という名前の 1 つの列と、都市名で構成されるその列のエントリを含む 2 つのデータ行を含むデータ レコードセットを作成します。
<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly' rs:updatable='true'>
<s:AttributeType name='c1' rs:name='Cities'
rs:number='2' rs:nullable='true' rs:maydefer='true' rs:write='true'>
<s:datatype dt:type='string' dt:maxLength='255' rs:precision='0'/>
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row c1='Seattle' />
<z:row c1='Redmond' />
</rs:data>
</xml>
次のサンプル コードでは、データを含む XML 文字列の名前および作成する新しいデータ レコードセットに割り当てる表示名を含む文字列の名前を AddFromXML メソッドに渡します。
Public Sub AddFromXML_Example()
Dim strXML As String
Dim strName As String
Dim vsoDataRecordset As Visio.DataRecordset
strXML = "<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'" + Chr(10) _
& "xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'" + Chr(10) _
& "xmlns:rs='urn:schemas-microsoft-com:rowset'" + Chr(10) _
& "xmlns:z='#RowsetSchema'>" + Chr(10) _
& "<s:Schema id='RowsetSchema'>" + Chr(10) _
& "<s:ElementType name='row' content='eltOnly' rs:updatable='true'>" + Chr(10) _
& "<s:AttributeType name='c1' rs:name='Cities'" + Chr(10) _
& "rs:number='2' rs:nullable='true' rs:maydefer='true' rs:write='true'>" + Chr(10) _
& "<s:datatype dt:type='string' dt:maxLength='255' rs:precision='0'/>" + Chr(10) _
& "</s:AttributeType>" + Chr(10) _
& "<s:extends type='rs:rowbase'/>" + Chr(10) _
& "</s:ElementType>" + Chr(10) _
& "</s:Schema>" + Chr(10) _
& "<rs:data>" + Chr(10) _
& "<z:row c1='Seattle'/>" + Chr(10) _
& "<z:row c1='Redmond'/>" + Chr(10) _
& "</rs:data>" + Chr(10) _
& "</xml>"
strName = "City Names"
Set vsoDataRecordset = ThisDocument.DataRecordsets.AddFromXML(strXML, 0, strName)
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。