PDA

Vollständige Version anzeigen : XML mit Access97


NikIw
23.09.2003, 13:50
Hi leute,
Wie Betreff schon sagt, gibt es die Möglichkeit mit Access97 von sql eine XML-Datei zu erstellen.
So viel ich weiß geht es mit 00 und 02, aber bei 97 fehlen manche Befehle??

NikIw
24.09.2003, 07:43
moin,
kennt sich niemand damit aus???

Nouba
24.09.2003, 08:15
Hallo,

eine XML-Datei läßt sich recht einfach von einem geöffneten Recordest erstellen.
Sub SchreibeXML(DateiPfad As String)

Const strcDeclaration As String = "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"

Dim rs As DAO.Recordset
Dim strXML As String
Dim intDateiNr As Integer

Set rs = CurrentDb().OpenRecordset("SELECT * FROM Adressen", dbOpenSnapshot)

strXML = strXML & strcDeclaration & vbCrLf
strXML = strXML & "<Adressen>" & vbCrLf
Do While Not rs.EOF
strXML = strXML & "<Adresse ID=""" & rs!ID & """>" & vbCrLf
strXML = strXML & " <Vorname>" & rs!Vorname & "</Vorname>" & vbCrLf
strXML = strXML & " <Nachname>" & rs!Nachname & "</Nachname>" & vbCrLf
strXML = strXML & " <Anschrift>" & rs!Anschrift & "</Anschrift>" & vbCrLf
strXML = strXML & " <PLZ>" & rs!PLZ & "</PLZ>" & vbCrLf
strXML = strXML & " <Ort>" & rs!Ort & "</Ort>" & vbCrLf
strXML = strXML & "</Adresse>" & vbCrLf
rs.MoveNext
Loop
strXML = strXML & "</Adressen>"

rs.Close

intDateiNr = FreeFile

Open DateiPfad For Output As #intDateiNr
Print #intDateiNr, strXML
Close #intDateiNr

Set rs = Nothing
End Sub

NikIw
24.09.2003, 11:53
Danke erstmal Nouba,
ich kann es leider jetzt nicht ausprobieren (habe Netzwerkproblemme).
Ich werde mich auf jedem Fall später melden.

NikIw
26.09.2003, 09:43
Sorry,
kam erst heute dazu, läuft alles. Ich muss nur ausrechnen wie viele Datensätze ich max. speichern kann (String ist doch begrentzt).
Und wie kann mit A97 die XML einspielen???
Danke nochmals

Nouba
26.09.2003, 09:51
Jetzt frage ich mich natürlich nach dem Sinn der Übung. Wofür brachst denn überhaupt das XML-Format? Wäre es nicht einfacher, die Daten als csv abzulegen und ggf. erneut einzulesen?

Schau mal auf Deinem Rechner nach, ob MSXML in den Verweisen zu finden ist. Damit könnte ein Import realisiert werden.

NikIw
26.09.2003, 10:01
Das ganze brauche ich wegen UPS-Software.(Geht nur mit XML)
Also MS XML 3.0 habe ich auf Rechner. Aber in Hilfe steht nichts über XML