Eksport u XML - prazna polja

Trebam napraviti eksport tabele u XML i to radi, ali imam jedan problem. Ako je polje u tabeli prazno, ne prenosi se u XML. To nije dobro, u XML-u moram imati sva polja. Kako to riješiti?
Zahvaljujem
Pozdrav

Evo sam sebi odgovaram: Riješeno. Ne radim to preko direktog eksporta, nego pomoću malo koda koji kreira xml datoteku i sva potrebna polja (petlja prođe kroz slogove u tabeli i kreira tekst u datoteci). Mogu staviti kod ako će koga zanimati.
Ipak na kraju opet jedan problem. Acceess napravi xml datoteku koja nije kodirana u UTF-8 (deklaracija u datoteci ne pomaže).
Zna li tko kako iz Accessa konvertirati datoteku u utf-8?
Zahvaljujem
Pozdrav

Posto me export u XML bas zanima ovih dana, molim te da prilozis kod o kome si pricao ako ti nije problem.


Pozdrav

Evo koda sa zakašnjenjem (riješeno i UTF-8 kodiranje):

Dim tekst As Stream
Dim rst As Recordset
Dim fld As Field
Set rst = CurrentDb.OpenRecordset("Ljudi")
Set tekst = New Stream
tekst.Open
tekst.Position = 0
tekst.Charset = "UTF-8"
tekst.WriteText "<?xml version=""1.0"" encoding=""utf-8""?>" & vbCrLf
tekst.WriteText "<dataroot xmlns:od=""urn:schemas-microsoft-com:officedata"">" & vbCrLf
Do Until rst.EOF
tekst.WriteText "<Covjek>" & vbCrLf
For Each fld In rst.Fields
tekst.WriteText "<" & fld.NAME & " " & rst(fld.NAME) & " />" & vbCrLf
Next
tekst.WriteText "</Covjek>" & vbCrLf
rst.MoveNext
Loop
tekst.WriteText "</dataroot>"
tekst.SaveToFile "C:\Ljudi.xml", adSaveCreateOverWrite
tekst.Close
rst.Close

Hvala na kodu, sad sam video tek.

Samo imam problem, moj komp ne prihvata stream, odnosno ne mogu da definisem stram, prijavljuje mi gresku.

Znaci ono deklarisanje 'dim tekst as stream' ne prihvata. Verovatno trebam da ukljucim neku referencu ali ne znam koju.

Reference kod mene:
Visual Basic for Application
Microsoft Access 11.0 Object Library
OLE Automation
Microsoft DAO 3.6 Object Library
Microsoft Word 11.0 Object Library
Microsoft ActiveX Data Objects 2.8 Library

Pozdav

Resio sam, hvala puno

Pozdrav

Možeš to rešiti na još prostiji način. U polja atributa access tabela stavi u polje DEFAULT VALUE "" (prazan string) u exportu u XML će ti biti i polja koja nemaju upisa.

Stavi i code za export ako nije problem

@Sabbac

Mislim da je ovakav code kao sto je napisao Stranac2 resenje naseg problema, ali ja prosto ne znam da ga nodifik da obuhvati sve related tabele.

Ono sa praznim stringom sam resio i radi odlicno, takodje, sva polja su mi vec text, samo stavim input mask gde treba i to radi super, cak mi daje i ukupan iznos fakture bez problema.

@stranac2

Ko sto rekoh, ovaj kod je odlican i radi super. E sada, na koji nacin treba da se modifikuje pa da se obuhvate i tabele koje su u relaciji sa osnovnom 1 prema vise. Mozes li da probas da nam das odgovor na ovo pitanje. Ja probao pa nista.

Pozdrav

Rekao sam da je ovaj gornji kod resenje mog problema, malo sam ga modifikovao i sada je to bas to sto meni treba.

@Sabbac

Obecao sam ti kod pa ga evo stavljam u prilogu. Ti modifikuj sve ono sto tebi treba. Ako je sto nejasno, javi pa da resimo.

@Stranac2

HVala ti za kod. Bez tvoje ideje i pomoci ne bih uspeo!

Pozdrav

Ako možeš stavi primer.
Pozdrav!
Ja sam to rešio na drugi način, ali me interesuje i ovaj. Znjanja nikad dosta!

U gužvi sam, pa nisam gledao postove. Što se tiče povezanih tabela, treba napraviti upit koji sve obuhvati i to je recordset s kojim se radi (kao što u kodu radi s tablicom "Ljudi"). Drago mi je ako sam pomogao, vidim da se dobro snalazite.
Pozdrav

Izvinjavam se, nisam citao postove, sad sam tek video poruku

Sabacc@



evo saljem ti primer

Otvori bazu, klikni na dugme 'FORMIRAJ XML FAKTURU'. Otvori C: particiju videces XML fajl 'El_Faktura_00_00_2010' koji si formirao.

Nadam se da je to ono sto ti treba. Ukoliko uocis neku gresku ti javi


Pozdrav

Hvala, sada ću malo da analiziram.
P.S.
Imaćeš problem sa tagom SanMedMat jer prilikom pružanja usluge ako tih troškova nema u XML taj tag ne treba da se pojavljuje. Pogledaj slog RZZO. U exploreru mi javlja grešku prilikom otvaranja. Inače malo njih dođe uopšte dovde.

Ja radim u ZZJZ, moje usluge nemaju sanitetski materijal (uracunato u cenu usluge) tako da nemam tih problema jer uopste i nemam tag SanMedMat.

Mislim da bi jedno malo IF moglo da resi problem.

Proveriti da li za dati ID_Usluge postoji unos u tabeli SanMedMat. OVo moze najobicnijom dcount funkcijom.

dim i as integer

i= DCount("ID_SanMedMat","SanMedMat","[ID_Usluge]="&[ID_Usluge])

if i=0 then
'Ne radi nista

else

'ovde ide kod za iscitavanje SanMedMad

end if



Pozdrav

I ja sam u ZJZ, ali najbolje je imate rešenje za sve opcije. U svakom slučaju Hvala!
Probaću i sa dodatkom u Code. Od viška rešenja glava ne boli!

Pozdravi mi kolegu Boska puno!

Ko sto ti rekoh, verujem da se ono moze resiti kao sto sam gore predlozio.

Pozdrav

Hoću. bio sam pre 5 minuta sa njim.

Evo ga primer, mislim da sam ovim resio problem.

Pogledaj u donjem primeru


Molim te potvrdi mi ako je sve OK.


Pozdrav