Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (9):1,2,3,4,5,6,7,8,9
 Prikazi prvu neprocitanu poruku

#61 22.07.2013 13:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Eh sad sam skontao cini mi se.
Mislim da ne odradjuje zadnju godinu.
sad mi pade napamet jer 2016 nije odradio.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#62 22.07.2013 13:27
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
De izbrsis sve msg koje imas pa stavi ovdje iza loop.
Da vidimo dali petlja broji kako treba.
Trebalo bi biti prvi prazan a drugi greska.
Loop
MsgBox ImeFajla
ImeFajla = Dir
MsgBox ImeFajla
Provjeri dali u modulu na vrhu imas option explicit upisano
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#63 22.07.2013 14:29
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Nije odradio 2006, a ne 2016 kao Å¡to si ti konstatirao.
Option explicit imam.
napisao sam u proceduri kao Å¡to si sugerirao i dobijem jedan prazan MsgBox i nakon tofa Run-time error 5:
Invalid procedure call or argument
Pozdrav
↑  ↓

#64 22.07.2013 14:37
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
2007, 2008, 2009, 2010, 2011, 2012 i 2013 (nema 2016)
Ovo si napisao pa sam ja iz ovog zakljucio da ne odradjuje zadnju godinu.
Probaj dodati Bazu napr 2014. pa vidi hoce li uraditi tada 2013. i probaj 2013 samu.
-Probaj i otvoriti novu mdb i prenijeti kod pa iz nje probati ako vec nisi.
Ovo je stvarno nevjerovatno.
Kod mene sve radi i to na tvojoj bazi sto si poslao.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#65 22.07.2013 14:54
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Ovo 2016 jemoja greška. Treba biti 2006
Da se razumijemo. Ne odrađuje mo prvu najnižu godinu. U mom primjeru to je 2006. Sve ostale odradi
Pozdrav
↑  ↓

#66 22.07.2013 16:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Stavi ovu proceduru pa pokreni.
U dir app. dobit ces file aaa.txt pa ga zakaci na forum.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function KreirajTempZXZ()
  2. Dim wrk As Workspace
  3. Dim Db As Database, tmpBaza As Database
  4. Dim Rs As Recordset, tmpRs As Recordset
  5. Dim Fld As Field
  6. Dim OrgTabela As TableDef, TmpTabela As TableDef
  7. Dim ImeBaze As String, ImeTmpBaze As String
  8. Dim ImeFajla As String, SQL(1) As String
  9. Dim Prefiks As Integer
  10.  
  11.  
  12. Open Db_Putanja & "\aaa.txt" For Output Shared As #1
  13. DoCmd.SetWarnings False
  14. ImeTmpBaze = Db_Putanja & "tmp.mdb"
  15. If Dir(ImeTmpBaze) <> "" Then Kill ImeTmpBaze
  16. Set Db = CurrentDb()
  17. Set wrk = DBEngine.Workspaces(0)
  18. 'Tabela transakcije
  19. Set tmpBaza = wrk.CreateDatabase(ImeTmpBaze, dbLangGeneral)
  20. Set OrgTabela = Db.TableDefs("tblTransakcije")
  21. Set TmpTabela = tmpBaza.CreateTableDef("tblTransakcije")
  22. For Each Fld In OrgTabela.Fields
  23.     With TmpTabela
  24.     .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
  25.     End With
  26. Next Fld
  27. tmpBaza.TableDefs.Append TmpTabela
  28. Set OrgTabela = Nothing
  29. Set TmpTabela = Nothing
  30. 'tabela ulazizlaz
  31. Set OrgTabela = Db.TableDefs("tblUlazIzlaz")
  32. Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz")
  33. For Each Fld In OrgTabela.Fields
  34.     With TmpTabela
  35.     .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
  36.     End With
  37. Next Fld
  38. tmpBaza.TableDefs.Append TmpTabela
  39. Set OrgTabela = Nothing
  40. Set TmpTabela = Nothing
  41. 'Prenos podataka
  42. ImeFajla = Dir(DirPutanja, vbDirectory)
  43. Print #1, "-----Pije petlje ImeFajla----"
  44. Print #1, ImeFajla
  45.         Do While Len(ImeFajla) > 0
  46.             ImeFajla = Dir
  47.             Print #1, "-----Pije Ifa ImeFajla----"
  48.             Print #1, ImeFajla
  49.              If Right(ImeFajla, 3) = "Mdb" Then
  50.                 ImeBaze = DirPutanja & ImeFajla
  51.                
  52.                 Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
  53.                      SQL(0) = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
  54.                     & "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
  55.                     & "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
  56.                     & "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
  57.                     & "FROM tblTransakcije IN '" & ImeBaze & "'"
  58.                     DoCmd.RunSQL (SQL(0))
  59.                     SQL(1) = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
  60.                         & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
  61.                         & "FROM tblUlazIzlaz IN '" & ImeBaze & "'"
  62.                     DoCmd.RunSQL (SQL(1))
  63.                     Print #1, "-----Poslije ifa----"
  64.                     Print #1, ImeFajla & vbTab & ImeBaze & vbTab & vbTab & Prefiks & vbTab
  65.              End If
  66.         Loop
  67.  'MsgBox ImeFajla
  68. 'ImeFajla = Dir
  69.  'MsgBox ImeFajla
  70. Set tmpBaza = Nothing
  71. Set Db = Nothing
  72. DoCmd.SetWarnings True
  73. Close #1
  74. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#67 22.07.2013 16:48
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Do sutra ne mogu niÅ¡ta jer mi je problematična baza na poslu. Pa se Å¡to se toga tiće čujemo sutra poslie 7h.
Pozdrav
↑  ↓

#68 22.07.2013 18:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Da da jano mi je to.
Uf i mene je zaintrigiralo sta to moze biti.
na kraju ce biti neka banalna stvar.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#69 23.07.2013 10:00
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Spajanje arhiviranih baza
Dobro jutro. Evo text fail.

Prilozi:
Informacije o tipu datoteke za:rar  aaa.rar
Preuzimanja:230
Velicina datoteke:251 Bajt

Pozdrav
↑  ↓

#70 23.07.2013 10:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Spajanje arhiviranih baza
Kako ja vidim ovdje nije uradjena Prodaja_2006_be.mdb.
Prodaja_20113_be.mdb je uredno prosla.
Provjeri podatke.
Izgleda da ipak prva ne prolazi kroz petlju, zasto jos neznam ali cemo vidjeti.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (9):1,2,3,4,5,6,7,8,9

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 8: 11 pm.