Predmet:Re: XML i access 2003
PreuzmiIzvorni kôd (Visual Basic):Function Zapisxml()
Dim Tabele(1 To 2) As String
Dim Putanja As String
Dim XmlFile As String
Dim Temp As String
Tabele(1) = "Zahtjev" ?osnovna tabela
Tabele(2) = "Parametar" ' Pridodata tabela
Putanja = "c:\Tring\xml\" 'Putanja zapisa bez imena filea
XmlFile = "stampatinefiskalnidokument.xml" ' Ime xml fajla
Application.ExportXML acExportTable, Tabele(1), Putanja & "sys.dll", , , , acUTF8, , , Tabele(2)
Close #1
Close #2
Open Putanja & "sys.dll" For Input As 1
Open Putanja & XmlFile For Output As 2
While Not EOF(1)
Line Input #1, Temp
If Left(Temp, 9) = "<dataroot" Then
'<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
'<Zahtjev xmlns:xsi="http://www.w3.org/...instance" xmlns:xsd="http://www.w3.org/...Schema">
Temp = "<Zahtjev xmlns:xsi=" & Chr(34) & "http://www.w3.org/...instance" & Chr(34) _
& " xmlns:xsd=" & Chr(34) & "http://www.w3.org/...Schema" & Chr(34) & ">"
End If
If Left(Temp, 11) = "</dataroot>" Then
Temp = "</Zahtjev>"
End If
Print #2, Temp
Wend
Close #1
Close #2
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.