Access Tabell in XML?

centerguide

Grünschnabel
Hi,

habe hier ein kleineres Problem.
Im Zuge meines Praktikums soll ich eine Routine erstellen die eine Access Tabelle in ein XML file umwandelt und dieses dann in das web stellt.
Kann mir jemand einen Tipp geben wie ich am besten vorgehen kann mache es das erste mal mit routinen!
Über eine Antwort würde ich mich sehr freuen.

Gruß Timo
 

Thomas Darimont

Erfahrenes Mitglied
Hallo!

Siehe:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deconxmldataexport.asp

Code:
'unter Extras
'Verweise -> Microsoft Ado Extensions for DDL and Security hinzufügen
Dim cat As Catalog
Dim tbl As Table

Set cat = New Catalog
cat.ActiveConnection = CurrentProject.Connection

For Each tbl In cat.Tables
    If InStr(tbl.Name, "MSys") <> 1 Then 'Systemtabellen ausschließen
        Application.ExportXML acExportTable, tbl.Name, "c:/export_" & tbl.Name & ".xml"
    End If
Next tbl
Set cat = Nothing
Set tbl = Nothing

Gruß Tom
 

Neue Beiträge