5

Access から XML ファイルを作成する必要があります。リレーショナル ノード タイプの形式である必要があります。

例えば：

<Item>
   <description></description>
   <colors>
         <blue>
         <green>
   </colors>
</item>

アイテムのデータはテーブルにあります。カラーは他にあります。私は参照 ID を持っているので、それらに参加できます。

どのように/これを行うことができます。私は全体を見渡して、テーブルをエクスポートする方法を見てきましたが、ネストされたタイプのファイルではありません。

4

3 に答える 3

2

SELECT参照 ID を使用して items テーブルと色テーブルを結合するクエリを 作成します。

情報を正しく収集するクエリを作成したら、そのデータを Access ユーザー インターフェイスから XML にエクスポートします。

クエリを XML にエクスポートする

必要な XML が得られる場合は、 Application.ExportXML Methodを使用して VBA からのエクスポート操作を自動化できます。メソッドには、XML を微調整するための多数のオプションが用意されていることに注意してください。しかし、エクスポートはこれと同じくらい簡単かもしれません...

Application.ExportXML acExportQuery, "YourQuery", _
    "C:\SomeFolder\YourQuery.xml"
于 2013-09-24T17:00:37.640 に答える
1

以下は、データのクエリを実行し、結果をフラット ファイルにエクスポートするために使用するサンプルです。私はあなたが必要とするかもしれないものにそれをいくらか適応させました.

 On Error GoTo Err_My_Click
 Dim rs As DAO.Recordset
 Set rs = CurrentDb.OpenRecordset("SELECT * FROM MyTable", dbOpenDynaset)

 If (rs.RecordCount <> 0) Then
   rs.MoveFirst

   Open "C:\Export\XML__MyFile.xml" For Output As #1

   Do While rs.EOF = False
     TempExportCount = TempExportCount + 1

     Print #1, "<Item>"
     Print #1, "    <description>" & rs.Fields("[Description]").value & "</description>"
     Print #1, "</Item>"

     rs.MoveNext
   Loop
 End If

Exit_My_Click:
  On Error Resume Next
  rs.Close
  Set rs = Nothing
  Close 1#
  Exit Sub
Err_My_Click:
  If (Err.Number = 76) Then
    MsgBox ("The program could not save the txt file." & vbNewLine & vbNewLine & _
            "Make sure you have the following folder created: C:\Export\")
  Else
    MsgBox (Err.Description)
  End If
  Resume Exit_My_Click
于 2013-09-24T16:03:05.037 に答える