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

zxz	15.07.2013 09:15
Predmet:Re: Spajanje arhiviranih baza Citat: Unrecognized database format 'S:\Prodaja_2013_be.ldb' Ili je ostecena ili je neka novija verzija od od ove kojom radis.

pmiroslav	15.07.2013 11:11
Predmet:Re: Spajanje arhiviranih baza Neznam dali si me razumio. Kada otvorim front aplikaciju koja je linkovana sa serverom u direktoriju na serveru se napravi lock file 'Prodaja_2013_be.ldb' Ovo nije fail sa podacima, a funkcija Å¾eli iz njega kopirati podatke u 'temp.mdb? U funkciji KreirajTemp() varijabla 'ImeFaila' u jednom trenutku dobije ime "Prodaja_2013_be.ldb" i tu se javlja greÅ¡ka. Trebalo bi nekako napraviti da se uzimaju u obzir samo .mdb datoteke. Ja sam probao sa If ImeFajla = " .ldb " Then GoTo Kraj , ali to me ne sluÅ¡a
Prilozi: Slika1.jpg (Velicina datoteke: Bajt) Slika2.jpg (Velicina datoteke:21.63 KB)

pmiroslav

15.07.2013 11:11

Predmet:Re: Spajanje arhiviranih baza

Neznam dali si me razumio. Kada otvorim front aplikaciju koja je linkovana sa serverom u direktoriju na serveru se napravi lock file 'Prodaja_2013_be.ldb' Ovo nije fail sa podacima, a funkcija Å¾eli iz njega kopirati podatke u 'temp.mdb?
U funkciji KreirajTemp() varijabla 'ImeFaila' u jednom trenutku dobije ime "Prodaja_2013_be.ldb" i tu se javlja greÅ¡ka. Trebalo bi nekako napraviti da se uzimaju u obzir samo *.mdb datoteke.
Ja sam probao sa If ImeFajla = " *.ldb " Then GoTo Kraj , ali to me ne sluÅ¡a

Prilozi:
Slika1.jpg (Velicina datoteke: Bajt)
Slika2.jpg (Velicina datoteke:21.63 KB)

zxz	15.07.2013 12:32
Predmet:Re: Spajanje arhiviranih baza Da u pravu si nisam te razumio: Evo procedura ispravljena. PreuzmiIzvorni kôd (Visual Basic): Function KreirajTemp() Dim wrk As Workspace Dim Db As Database, tmpBaza As Database Dim Rs As Recordset, tmpRs As Recordset Dim OrgTabela As TableDef, TmpTabela As TableDef Dim ImeBaze As String, ImeTmpBaze As String Dim ImeFajla As String, SQL As String Dim Prefiks As Integer DoCmd.SetWarnings False ImeTmpBaze = Db_Putanja & "tmp.mdb" If Dir(ImeTmpBaze) <> "" Then Kill ImeTmpBaze Set Db = CurrentDb() Set wrk = DBEngine.Workspaces(0) 'Tabela transakcije Set tmpBaza = wrk.CreateDatabase(ImeTmpBaze, dbLangGeneral) Set OrgTabela = Db.TableDefs("tblTransakcije") Set TmpTabela = tmpBaza.CreateTableDef("tblTransakcije") For Each fld In OrgTabela.Fields With TmpTabela .Fields.Append .CreateField(fld.Name, fld.Type, fld.Size) End With Next fld tmpBaza.TableDefs.Append TmpTabela ImeFajla = Dir(DirPutanja, vbDirectory) Do While Len(ImeFajla) > 0 ImeFajla = Dir If Right(ImeFajla, 3) = "Mdb" Then ImeBaze = DirPutanja & ImeFajla Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2) SQL = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _ & "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _ & "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _ & "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _ & "FROM tblTransakcije IN '" & ImeBaze & "';" DoCmd.RunSQL (SQL) End If Loop Set OrgTabela = Nothing Set TmpTabela = Nothing 'tabela ulazizlaz Set OrgTabela = Db.TableDefs("tblUlazIzlaz") Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz") For Each fld In OrgTabela.Fields With TmpTabela .Fields.Append .CreateField(fld.Name, fld.Type, fld.Size) End With Next fld tmpBaza.TableDefs.Append TmpTabela ImeFajla = Dir(DirPutanja, vbDirectory) Do While Len(ImeFajla) > 0 ImeFajla = Dir If Right(ImeFajla, 3) = "Mdb" Then ImeBaze = DirPutanja & ImeFajla Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2) SQL = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _ & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _ & "FROM tblUlazIzlaz IN '" & ImeBaze & "';" DoCmd.RunSQL (SQL) End If Loop Set OrgTabela = Nothing Set TmpTabela = Nothing Set tmpBaza = Nothing Set Db = Nothing DoCmd.SetWarnings True End Function

zxz

15.07.2013 12:32

Predmet:Re: Spajanje arhiviranih baza

Da u pravu si nisam te razumio:
Evo procedura ispravljena.

PreuzmiIzvorni kôd (Visual Basic):

Function KreirajTemp()
Dim wrk As Workspace
Dim Db As Database, tmpBaza As Database
Dim Rs As Recordset, tmpRs As Recordset
Dim OrgTabela As TableDef, TmpTabela As TableDef
Dim ImeBaze As String, ImeTmpBaze As String
Dim ImeFajla As String, SQL As String
Dim Prefiks As Integer
DoCmd.SetWarnings False
ImeTmpBaze = Db_Putanja & "tmp.mdb"
If Dir(ImeTmpBaze) <> "" Then Kill ImeTmpBaze
Set Db = CurrentDb()
Set wrk = DBEngine.Workspaces(0)
'Tabela transakcije
Set tmpBaza = wrk.CreateDatabase(ImeTmpBaze, dbLangGeneral)
Set OrgTabela = Db.TableDefs("tblTransakcije")
Set TmpTabela = tmpBaza.CreateTableDef("tblTransakcije")
For Each fld In OrgTabela.Fields
With TmpTabela
.Fields.Append .CreateField(fld.Name, fld.Type, fld.Size)
End With
Next fld
tmpBaza.TableDefs.Append TmpTabela
ImeFajla = Dir(DirPutanja, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If Right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirPutanja & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
SQL = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
& "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
& "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
& "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
& "FROM tblTransakcije IN '" & ImeBaze & "';"
DoCmd.RunSQL (SQL)
End If
Loop
Set OrgTabela = Nothing
Set TmpTabela = Nothing
'tabela ulazizlaz
Set OrgTabela = Db.TableDefs("tblUlazIzlaz")
Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz")
For Each fld In OrgTabela.Fields
With TmpTabela
.Fields.Append .CreateField(fld.Name, fld.Type, fld.Size)
End With
Next fld
tmpBaza.TableDefs.Append TmpTabela
ImeFajla = Dir(DirPutanja, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If Right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirPutanja & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
SQL = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
& "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
& "FROM tblUlazIzlaz IN '" & ImeBaze & "';"
DoCmd.RunSQL (SQL)
End If
Loop
Set OrgTabela = Nothing
Set TmpTabela = Nothing
Set tmpBaza = Nothing
Set Db = Nothing
DoCmd.SetWarnings True
End Function

pmiroslav	15.07.2013 12:59
Predmet:Re: Spajanje arhiviranih baza Sada to radi kako treba. Moram to dotjerati u svojoj bazi pa ako joÅ¡ bude kakovih problema... Za sada puno hvala.

pmiroslav

15.07.2013 12:59

Predmet:Re: Spajanje arhiviranih baza

Sada to radi kako treba. Moram to dotjerati u svojoj bazi pa ako joÅ¡ bude kakovih problema...

Za sada puno hvala.

pmiroslav	15.07.2013 19:44
Predmet:Re: Spajanje arhiviranih baza Å to se tiče kopiranja podataka u temp bazu to sve radi OK. Međutim vraćam se na problem zbog kojeg sam i otvorio ovu temu. Naime u sve tri baze iz kojih kopram u temp.mdb u tnlTransakcije počinje se sa Inventurom tj prvi ulaz je prenos zavrÅ¡nog stanja iz proÅ¡le godine. Kod kopiranja bi trebalo izbječi kopirati to stanje znači IDTransakcije = 1 (ali ne za prvu godinu o ovo slučaju iz baze Prodaja_2011_be treba se prepisati IdTransakcije = 1, a iz svih ostali godina ne) Dali ima rijeÅ¡enja za ovako neÅ¡to?

pmiroslav

15.07.2013 19:44

Predmet:Re: Spajanje arhiviranih baza

Å to se tiče kopiranja podataka u temp bazu to sve radi OK. Međutim vraćam se na problem zbog kojeg sam i otvorio ovu temu. Naime u sve tri baze iz kojih kopram u temp.mdb u tnlTransakcije počinje se sa Inventurom tj prvi ulaz je prenos zavrÅ¡nog stanja iz proÅ¡le godine. Kod kopiranja bi trebalo izbječi kopirati to stanje znači IDTransakcije = 1 (ali ne za prvu godinu o ovo slučaju iz baze Prodaja_2011_be treba se prepisati IdTransakcije = 1, a iz svih ostali godina ne)
Dali ima rijeÅ¡enja za ovako neÅ¡to?

zxz	15.07.2013 21:39
Predmet:Re: Spajanje arhiviranih baza Kazes ne ovu prvu. Hoce li uvijek ova prva biti 2011 ili je mozda najniza po broju odnosno godini.

zxz

15.07.2013 21:39

Predmet:Re: Spajanje arhiviranih baza

Kazes ne ovu prvu.
Hoce li uvijek ova prva biti 2011 ili je mozda najniza po broju odnosno godini.

pmiroslav	16.07.2013 07:11
Predmet:Re: Spajanje arhiviranih baza Kod mene je slučaj da je to 2011 jer onda je zapoćet rad sa konkretnom bazom ali moÅ¾da bi bolje bilo kada bi se mogla odabrati najniÅ¾a godina ako se aÅ¡likacija u nekom drugom skladiÅ¡tu počne kristiti ispočetka.

pmiroslav

16.07.2013 07:11

Predmet:Re: Spajanje arhiviranih baza

Kod mene je slučaj da je to 2011 jer onda je zapoćet rad sa konkretnom bazom ali moÅ¾da bi bolje bilo kada bi se mogla odabrati najniÅ¾a godina ako se aÅ¡likacija u nekom drugom skladiÅ¡tu počne kristiti ispočetka.

zxz	16.07.2013 10:18
Predmet:Re: Spajanje arhiviranih baza Evo pa istestiraj. PreuzmiIzvorni kôd (Visual Basic): Function KreirajTemp() Dim wrk As Workspace Dim Db As Database, tmpBaza As Database Dim Rs As Recordset, tmpRs As Recordset Dim Fld As Field Dim OrgTabela As TableDef, TmpTabela As TableDef Dim ImeBaze As String, ImeTmpBaze As String Dim ImeFajla As String, SQL(2) As String Dim Prefiks As Integer, God As Integer Dim PrefiksS As String DoCmd.SetWarnings False ImeTmpBaze = Db_Putanja & "tmp.mdb" If Dir(ImeTmpBaze) <> "" Then Kill ImeTmpBaze Set Db = CurrentDb() Set wrk = DBEngine.Workspaces(0) 'Provjera: God = Format(Date, "yy") ImeFajla = Dir(DirPutanja, vbDirectory) Do While Len(ImeFajla) > 0 ImeFajla = Dir If Right(ImeFajla, 3) = "Mdb" Then Prefiks = Mid(ImeFajla, (Len(ImeFajla) - 8), 2) If Prefiks < God Then: God = Prefiks End If Loop 'Tabela transakcije Set tmpBaza = wrk.CreateDatabase(ImeTmpBaze, dbLangGeneral) Set OrgTabela = Db.TableDefs("tblTransakcije") Set TmpTabela = tmpBaza.CreateTableDef("tblTransakcije") For Each Fld In OrgTabela.Fields With TmpTabela .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size) End With Next Fld tmpBaza.TableDefs.Append TmpTabela Set OrgTabela = Nothing Set TmpTabela = Nothing 'tabela ulazizlaz Set OrgTabela = Db.TableDefs("tblUlazIzlaz") Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz") For Each Fld In OrgTabela.Fields With TmpTabela .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size) End With Next Fld tmpBaza.TableDefs.Append TmpTabela Set OrgTabela = Nothing Set TmpTabela = Nothing 'Prenos podataka ImeFajla = Dir(DirPutanja, vbDirectory) Do While Len(ImeFajla) > 0 ImeFajla = Dir If Right(ImeFajla, 3) = "Mdb" Then ImeBaze = DirPutanja & ImeFajla Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2) PrefiksS = Format(Prefiks, "00") If Prefiks = God Then SQL(0) = "WHERE IDTransakcije<>1" Else SQL(0) = "" End If SQL(1) = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _ & "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _ & "' SELECT " & PrefiksS & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _ & "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _ & "FROM tblTransakcije IN '" & ImeBaze & "' " & SQL(0) DoCmd.RunSQL (SQL(1)) SQL(2) = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _ & "' SELECT " & PrefiksS & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _ & "FROM tblUlazIzlaz IN '" & ImeBaze & "' " & SQL(0) DoCmd.RunSQL (SQL(2)) End If Loop Set tmpBaza = Nothing Set Db = Nothing DoCmd.SetWarnings True End Function

zxz

16.07.2013 10:18

Predmet:Re: Spajanje arhiviranih baza

Evo pa istestiraj.

PreuzmiIzvorni kôd (Visual Basic):

Function KreirajTemp()
Dim wrk As Workspace
Dim Db As Database, tmpBaza As Database
Dim Rs As Recordset, tmpRs As Recordset
Dim Fld As Field
Dim OrgTabela As TableDef, TmpTabela As TableDef
Dim ImeBaze As String, ImeTmpBaze As String
Dim ImeFajla As String, SQL(2) As String
Dim Prefiks As Integer, God As Integer
Dim PrefiksS As String
DoCmd.SetWarnings False
ImeTmpBaze = Db_Putanja & "tmp.mdb"
If Dir(ImeTmpBaze) <> "" Then Kill ImeTmpBaze
Set Db = CurrentDb()
Set wrk = DBEngine.Workspaces(0)
'Provjera:
God = Format(Date, "yy")
ImeFajla = Dir(DirPutanja, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If Right(ImeFajla, 3) = "Mdb" Then
Prefiks = Mid(ImeFajla, (Len(ImeFajla) - 8), 2)
If Prefiks < God Then: God = Prefiks
End If
Loop
'Tabela transakcije
Set tmpBaza = wrk.CreateDatabase(ImeTmpBaze, dbLangGeneral)
Set OrgTabela = Db.TableDefs("tblTransakcije")
Set TmpTabela = tmpBaza.CreateTableDef("tblTransakcije")
For Each Fld In OrgTabela.Fields
With TmpTabela
.Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
End With
Next Fld
tmpBaza.TableDefs.Append TmpTabela
Set OrgTabela = Nothing
Set TmpTabela = Nothing
'tabela ulazizlaz
Set OrgTabela = Db.TableDefs("tblUlazIzlaz")
Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz")
For Each Fld In OrgTabela.Fields
With TmpTabela
.Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
End With
Next Fld
tmpBaza.TableDefs.Append TmpTabela
Set OrgTabela = Nothing
Set TmpTabela = Nothing
'Prenos podataka
ImeFajla = Dir(DirPutanja, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If Right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirPutanja & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
PrefiksS = Format(Prefiks, "00")
If Prefiks = God Then
SQL(0) = "WHERE IDTransakcije<>1"
Else
SQL(0) = ""
End If
SQL(1) = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
& "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
& "' SELECT " & PrefiksS & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
& "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
& "FROM tblTransakcije IN '" & ImeBaze & "' " & SQL(0)
DoCmd.RunSQL (SQL(1))
SQL(2) = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
& "' SELECT " & PrefiksS & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
& "FROM tblUlazIzlaz IN '" & ImeBaze & "' " & SQL(0)
DoCmd.RunSQL (SQL(2))
End If
Loop
Set tmpBaza = Nothing
Set Db = Nothing
DoCmd.SetWarnings True
End Function

pmiroslav	17.07.2013 09:05
Predmet:Re: Spajanje arhiviranih baza Jučer sam testirao ovaj tvoj novi kod i vidim da nije dobro. Zapravo ja sam se zapleo i nisam dobro objasnio. U mom slučaju u prvoj bazi 2011 godine imam 2822 artikla čije stanje je upisano kao ulaz na inventuri pa se inventurno stanje tih artikala se u narednim godinama viÅ¡e nebi trebalo prikazivati. Ali u 2012 imam 132 novo upisana artikla (Query_2012 Without Matching Query_2011) i to bi trebalo upisati. I onda opet u 2013 imam 124 nova artikla kojih nije bilo u predhodnim godinama itd. E sad ako se ovo moÅ¾e rijeÅ¡iti dobro, a ako ne moÅ¾e opet dobro.
Prilozi: PrimjerMp.rar (Velicina datoteke: Bajt)

pmiroslav

17.07.2013 09:05

Predmet:Re: Spajanje arhiviranih baza

Jučer sam testirao ovaj tvoj novi kod i vidim da nije dobro. Zapravo ja sam se zapleo i nisam dobro objasnio. U mom slučaju u prvoj bazi 2011 godine imam 2822 artikla čije stanje je upisano kao ulaz na inventuri pa se inventurno stanje tih artikala se u narednim godinama viÅ¡e nebi trebalo prikazivati. Ali u 2012 imam 132 novo upisana artikla (Query_2012 Without Matching Query_2011) i to bi trebalo upisati. I onda opet u 2013 imam 124 nova artikla kojih nije bilo u predhodnim godinama itd.
E sad ako se ovo moÅ¾e rijeÅ¡iti dobro, a ako ne moÅ¾e opet dobro.

Prilozi:
PrimjerMp.rar (Velicina datoteke: Bajt)