Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (4):1,2,3,4
 Prikazi prvu neprocitanu poruku

#21 21.02.2011 17:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: XML po zadanoj shemi
Prvo da te pitam jel mislis na Msgbox napomenu kada se zavrsi neki dio xml-a.
Ako sam u pravu onda si pribiljezio tamo u vordu da ti to treba poslije dio2 ili pak mislis na svaki upis u dio2 dijela jer ovaj dio2 se ponavlja vise puta.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#22 21.02.2011 20:58
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
zasvaki dio treba u djelu dio2 treba da pise
</PodaciOPrihodimaDoprinosimaIPorezu>
pa iza ovog
<Ukupno>
pa bla,bla
</ukupno>
</Dio2PodaciOPrihodimaDoprinosimaIPorezu>
i ja sam mislio da sam rješio to if naredbom ako je eof
da upiše ove gore podatke ali iz nekog razloga njemu nijekraj i ne napiše ovo završetke, ali uredno otvori novog radnika
Pozdav,

Nedim
↑  ↓

#23 21.02.2011 21:31
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
Rješio sam "pješke" ali radi
Pozdav,

Nedim
↑  ↓

#24 23.02.2011 17:18
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
Nije ova tema ali je vezana za ovi.
Kako da omogućim korisnicima da iz "programa" naprave zapis za poreznu upravu a da ne zovu mene, jer sam evo iz nekog puta uspio finalizirati taj godiÅ¡nji fail obrazac-1022? PoÅ¡to poreska uprava traži da taj file bude zipovan (po određenim kriterijima), mada nisam siguran kako to uraditi i da nemora biti zipovan, predpostavljam da bih trebao pozvati neku dos komandu iz accessa, vjerovatno Copy file-a koji sam napravio na istoj lokaciji gdje je i program (koristo sam zxz ovu funkciju putanje i uzeo da je to ista lokacija kao i "programska".

Unaprijed svima puno hvala,
Pozdav,

Nedim
↑  ↓

#25 23.02.2011 17:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: XML po zadanoj shemi
Ako ti treba zip file iz koda mogu ti dati primjer. Ostalo te bas nisam nesto ni razumio.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#26 24.02.2011 12:26
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
E to mi baš treba, pošto PU traži da to bude ZIP-ovano na CD-u
Pozdav,

Nedim
↑  ↓

#27 24.02.2011 12:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: XML po zadanoj shemi
Evo ti ova procedura.
Ona usporava shell odnosno kontrolise kada se zavrsi i provjerava jeli odradjeno pa tek onda dozvoljava dalji tok koda.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  4. Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  5. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  6.  
  7. Private Const SYNCHRONIZE = &H100000
  8. Private Const INFINITE = -1&
  9.  
  10. ' Usporava shel
  11. ' to finish, hiding while we wait.
  12. Private Sub UsporiShell(ByVal program_name As String, ByVal window_style As Integer)
  13. Dim process_id As Long
  14. Dim process_handle As Long
  15.     ' Start the program.
  16.    On Error GoTo ShellError
  17.     process_id = Shell(program_name, window_style)
  18.     On Error GoTo 0
  19.  
  20.     ' Wait for the program to finish.
  21.    ' Get the process handle.
  22.    process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
  23.     If process_handle <> 0 Then
  24.         WaitForSingleObject process_handle, INFINITE
  25.         CloseHandle process_handle
  26.     End If
  27.  
  28.     Exit Sub
  29.  
  30. ShellError:
  31.     MsgBox "Error starting task " & _
  32.          program_name & vbCrLf & _
  33.         Err.Description, vbOKOnly Or vbExclamation, _
  34.         "Error"
  35. End Sub

Procedura se poziva:
UsporiShell putanjafajla & "\pkzip " & PutZipa & "\" & ImeFajla & ".zip " & PutZapisa, vbHide

U prilogu zip fajl.

Prilozi:
Informacije o tipu datoteke za:zip  pkzip_dos.zip
Preuzimanja:198
Velicina datoteke:69.33 KB

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#28 24.02.2011 16:07
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
Jeli pozivam proceduru na neki klik..., a ostalo moram probati kad sve unesen u bazu.
pa ću se javiti dali mi radi ili ne!

Hvala puno!
Pozdav,

Nedim
↑  ↓

#29 24.02.2011 16:56
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


Predmet:Re: XML po zadanoj shemi
moraju li ovi zip. exe fieovi biti na istom direktriumu kao i program, jer ja imam na program fileu na nekom dir. postavljene i zip i unzip, neznam tačno kako se zove dir. ali se nalaze tamo(klod kuće...)
Pozdav,

Nedim
Ovaj post je ureden 1 puta. Posljednja izmjena 24.02.2011 16:57 od strane nzuko. ↑  ↓

#30 24.02.2011 18:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: XML po zadanoj shemi
Gledaj nije ti dobro da stavljas na neku fiksnu putanju ako ces to instalisati negdje.
Onda imas dvije mogucnodti a to su:
Da cuvas putanju u tabeli nekoj pa da ucitavas, ili da mijenjas u kodu kada postavis ili pak da moras i na to racunaru napraviti istu putanju.

Ja licno to radim u dir programa ili iza njega.
Naprimjer ako instalises program na d:\mojprogram\xml
Naredbom db.name naci ces ovu putanju.
E sad ako neces ovdje staviti otvoris novi forlder na putanji:
d:\mojprogram\xml\zip
sada mozes kodom iscitati putanju gdje god bilo instalisano
putanja=putanjaprograma & \zip
Ako sad instalise neko program na putanji:
c:\xml
Ti nista u kodu nemoras mijenjati a i nisi tu da mijenjas
putanja=putanja programa &\zip
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (4):1,2,3,4

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 2: 17 am.