Nachfrage RSS Feed aus Access

08/12/2008 - 12:16 von Klaus | Report spam
Hallo,
ich versuche auf Access heraus eine XML Datei zu schreiben.

Das Schreiben einzelner "ITEMS" in einer Schleife klappt nicht. Ich komme im
Moment nicht auf den Fehler:

Dim rs As DAO.Recordset
Dim sql As String Dim str As String
str = "<?xml version='1.0' encoding='iso-8859-1'?>" & vbCrLf
str = str & "<Rootelement>"

sql = "SELECT * FROM [meine Tabelle];"

Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
Do While Not rs.EOF
Debug.Print rs![mein Artikelname]
str = str & "<mein_Artikelname>"

rs.MoveNext
Loop

rs.Close
If Not rs Is Nothing Then Set rs = Nothing
str = str & "</mein_Artikelname>"
str = str & "</Rootelement>"
Open CurrentProject.Path & "\myfeed.xml" For Output As #1
Print #1, str
Close #1


Es wird wortwörtlich: "mein_Artilkelname" angezeigt, jedoch nicht die
einzelnen Artikelnamen.

Gruß Klaus
 

Lesen sie die antworten

#1 André Minhorst
08/12/2008 - 12:22 | Warnen spam
Hi,

Am Mon, 8 Dec 2008 12:16:33 +0100 schrieb Klaus:
ich versuche auf Access heraus eine XML Datei zu schreiben.

Das Schreiben einzelner "ITEMS" in einer Schleife klappt nicht. Ich komme im
Moment nicht auf den Fehler:

Dim rs As DAO.Recordset
Dim sql As String Dim str As String
str = "<?xml version='1.0' encoding='iso-8859-1'?>" & vbCrLf
str = str & "<Rootelement>"

sql = "SELECT * FROM [meine Tabelle];"

Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
Do While Not rs.EOF
Debug.Print rs![mein Artikelname]
str = str & "<mein_Artikelname>"

rs.MoveNext
Loop

rs.Close
If Not rs Is Nothing Then Set rs = Nothing
str = str & "</mein_Artikelname>"
str = str & "</Rootelement>"
Open CurrentProject.Path & "\myfeed.xml" For Output As #1
Print #1, str
Close #1


Es wird wortwörtlich: "mein_Artilkelname" angezeigt, jedoch nicht die
einzelnen Artikelnamen.



beim Ausgeben im Direktfenster klappt es aber?

Dann liegt es wohl daran, dass Du statt rs![mein Artikelname] die
Zeichenkette "<mein_Artikelname>" an Deinen String anhàngst.

Ciao
André

http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen