Const DirPutanja = "D:\Internet\obrada\_TempBaza\Baze\"
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 Len(ImeFajla) > 2 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 Len(ImeFajla) > 2 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
Function Db_Putanja() As String
'------------------------------------------------
'Ova funkcija pronalazi putanju postojee baze
'Autor funkcije ZXZ
'-------------------------------------------------
Dim Db As Database, Putanja As String
On Error Resume Next
Set Db = DBEngine(0)(0)
Putanja = Db.Name
Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Db_Putanja = Putanja
End Function
Portal
iCentar
Statistike
Procitajte pravila
Donacije
Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze Aktivne teme ... Vijesti (RSS, ...)
Prijavi se
Verzija za stampu
Racunari i oprema
Softver i op. sistemi
Hardver i mreze
Programiranje i baze
Nauka
Tehnika
Dom i porodica
Biznis
Sport i rekreacija
Zabava
Zanimljivosti