Import XML file and Export XML File !

Imam program u koji trebam da napravim opciju snimanja - odnosno izvoza samo jednog kupca koji je trenutno aktivan na formi iz tabele tblKupci u .xml format, isto tako treba da napravim opciju uvoza tog .xml formata odnosno tog jednog kupca koji je snimljen u .xml da ga ubacim u tabelu tblKupci u zadnji record!

Naznam dali sam bio jasan,imali rješenja !

Koristi :
Application.ExportXML
Application.ImportXML

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Da nije to problem,problem je kako da exportujem samo jedan record iz tabele koji mi je trenutno aktivan na formi,i da taj isti rekodr koji je exportovan u .xml da ga importujem u tu tabelu kao zadnji record !

Ovaj tvoj cod importuje i exportije kompletnu tabelu a to nije to ! Jer kad importuje onda stavi Table1 !

Koliko je meni poznato metode Export i Inport rade na nivou Access objekata, a ne zapisa. Importovanje bi moglo da se izvrši u jednu privremenu tabelu koja bi nakon importa imala jedan zapis. Potom bi moglo pomoću Append query-a da se doda taj zapis na kraj određene tabele. Za exportovanje ne znam. Možda neko ima drgačija saznanja.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Pokusao sam ovako ali i ovo exportuje kompletnu tabelu !



Kako expotrovati za sad samo jedan record sa forme !

Neznam dali je ovo najbolje raditi sa .xml-om ali ja jednostavno hocu da sa forme iz svih txt box-ova zapisem vrijednosti u nešto eh sad dali je to bolje sa text-om ili xml-om uraditi i da te iste podatke koje sam zapisao ponovo mogu učitam u txt box-ove na formi ali kao novi predracun. Ovo iskljucivo radim da mogu snimati i učitavati svoje predračune !

Evo pokusat cu da snimam sa forme u text fajl pa cu onda Strimovati iz text fajla !

Ali zasto ovo nece da radi gdje grijesim :

Private Sub Command42_Click()

Dim NazivProizvoda As String
Dim Ime As String
Dim Prezime As String
Dim Adresa As String
Dim Mjesto As String
Dim Drzava As String
Dim Telefon As String

Dim ImeFajla As String
Dim Snimi As System.IO.StreamWriter

NazivProizvoda = Me.NazivProizvoda
Ime = Me.Ime
Prezime = Me.Prezime
Adresa = Me.Adresa
Mjesto = Me.Mjesto
Drzava = Me.Drzava
Telefon = Me.Telefon

With SnimiFajl
.Filter = "Text files (*.txt)|*.txt|" & "All files|*.*"
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
ImeFajla = SnimiFajl.ImeFajla



Snimi.Write ("NazivProizvoda =" & NazivProizvoda)
Snimi.Write ("Ime =" & Ime)
Snimi.Write ("Prezime =" & Prezime)
Snimi.Write ("Adresa =" & Adresa)
Snimi.Write ("Mjesto =" & Mjesto)
Snimi.Write ("Drzava =" & Drzava)
Snimi.Write ("Telefon =" & Telefon)

Snimi.Close

End If

End With
End Sub

XML datoteke su pogodne i služe za transport podataka putem raznih media. Recimo iz lokalnog programa (Access SUBP)za obradu podataka i sastavljanje Završnog računa firme, podaci se exportuju u XML fajl sa unapred zadatom strukturom. Takvi podaci putuju na CD-u ili elektronski. Stižu u sabirni centar Narodne banke i tamo se importuju u neki drugi SUBP. Važno je da je struktura ista, što ćeš lako zaključiti uvidom u bilo koji XML fajl. Za tvoje potrebe mislim da ovo nije rešenje. Mnogo je jednostavnije da napraviš tbelu predračuna i povežeš je relacijom za tabelu racuna. Sve se može odraditi putem tabela i query-ja u okviru istog SUBP-a. Od unosa podataka za predračun, preko mehanizma za držanje robe na čekanju do ispunjenja uslova i prodaje, skidanja robe sa lagera i prodaje sa knjiženjem u tabelu racuna.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Moje rješenje će biti ovo !

Function Kreiraj()
Dim ObjFso As Object
Dim ObjFile
Dim Predracun As String
Predracun = Me.Ime & " " & Me.Prezime
Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFso.CreateTextFile("C:\" & Predracun & ".txt", True)
ObjFile.WriteLine "Ime :" & Me.Ime
ObjFile.WriteLine "Prezime :" & Me.Prezime
ObjFile.Close
End Function

Ja cu da snima sa forme u text fajl sve podatke, a kasnijecu da iz text fajla ucitavam na text box-ove forme te podatke i onda samo kazem snimi ubačene recorde u bazu i to je to,podatci ostaju u bazi ukoliko ja hocu ukoliko ne onda ne ostaju :-)
Sada trenutno rjesavam snimanje u txt fajl

Najvjerovatnijece mi biti potrebna pomoć oko učitavanja iz txt fajla na formu u txt-box-ove !

Pozdrav !

Eh evo me,htio bih ovaj gore cod ubaciti preko BROWSE.Znači da biram lokaciju gdje da snimi.

Neznam kao bih glasio cod za taj dialog i gdje ubaciti ovaj gore cod !

1. Nad tabelom predračuna možeš namestiti da se roba na lageru rezerviše i ne prikazuje kao slobodna za prodaju u vremenskom periodu od recimo 48 sati, za koliko recimo očekuješ da će kupac izvršiti uplatu na tekući račun. Nakon toga se roba oslobađa rezervacije i ponovo prikazuje kao slobodna na lageru. Zapis u profakturi se VBA kodom automatski može obrisati.
2. Realizovane predračuna možeš takođe da brišeš automatski nakon izvršene prodaje i generisanog računa.
3. Ako je tebi jednostavnije da u folderu držiš osim .mdb i gomilu .txt fajlova koje ćeš ručno da administriraš onda uredu.
Afiniteti su različiti. O ukusima ne vredi diskutovati. Samo nije u duhu relacionih baza podataka.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Ovo zapisivanje u txt fajl mi je samo privremena stvar !

Inace svi podatci ostaju u bazi,ovaj predracun mi sluzi samo za prenosenje na drugi kompjuter u drugoj firmi,ako on zeli da otvori moju datoteku i vidi sta sam ja sve obračunavao i to je to !

Ajd može li ovaj cod za dialog kao brows !

Evo rijesio sam to ovako :

Option Compare Database

Private Sub cmdBrowse_Click()
On Error GoTo cmdBrowse_Click_Err
Dim VFile As String

ChDrive ("C")
ChDir ("C:\")

cmDialog1.Filter = "All Files (*.*)|*.*|Text Files (HZ*.txt)|*.txt|Excel WorkBooks (*.xls)|*.xls"

cmDialog1.FilterIndex = 1

cmDialog1.Action = 1

If cmDialog1.FileName <> "" Then
VFile = cmDialog1.FileName

Me!lbldb = VFile
End If

cmdBrowse_Click_Exit:
Exit Sub

cmdBrowse_Click_Err:
MsgBox Err.Description, , "cmdBrowse_Click"
Resume cmdBrowse_Click_Exit
End Sub