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

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

Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze
- Oznaci forume kao procitane
- Smjernice
Aktivne teme ...
- u posljednja 24 sata
- od moje posljednje posjete
Vijesti (RSS, ...)
- RSS 2.0
- RSS 1.0
- OPML
- Klipfolio
- Atom 1.0
Prijavi se

Opcije teme

Stranice (2):1,2

Prikazi prvu neprocitanu poruku

#11

18.01.2014 22:08

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: Kopiranje baze (nova godina)

jeste ado ti je ukljucen vidi se na slici.
E sad dali koristis to gdje u kodu neznam.
To ti je ovo:
Microsoft activx data object 2 itd..

U nisam rs naveo u dimenzionisanju:
Dim Db As DAO.Database, NovaDb As DAO.Database
Dim SQL As String
Dim Rs As DAO.Recordset

Mora se naznaciti da je dao ako imas i ado ili rdo.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

Ovaj post je ureden 2 puta. Posljednja izmjena 18.01.2014 22:10 od strane zxz.

#12

19.01.2014 09:17

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Kopiranje baze (nova godina)

Sve sam tako dimezionirao sa DAO. I opet imamo ovu greÅ¡ki No current record.

Koju vrijednost bi trebao dati
SQL = "SELECT TOP 1 Database FROM MSysObjects WHERE Database Is Not Null"

Kada ovaj SQL prepiÅ¡em u Query ja ne dobijem nikakav rezultat

Prilozi:

baze.rar
Preuzimanja:311
Velicina datoteke:509.15 KB

Pozdrav

Ovaj post je ureden 1 puta. Posljednja izmjena 19.01.2014 09:18 od strane pmiroslav.

#13

19.01.2014 09:27

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: Kopiranje baze (nova godina)

Hehe sad je sve jasno.
Ovaj kod netreba da bude u bazi nego u app.
Ovdje nemas niti jednu linkovanu tabelu i zato ti javlja gresku.
Nemozes u bazi imati kod.
Korisnik to treba da pokrene iz aplikacije.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#14

19.01.2014 09:36

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Kopiranje baze (nova godina)

OK. onda ću probati tako. Hvala.
JoÅ¡ pitanje. Dali u funkciji

NovaGodina(Godina)

pri pokretanja iz Immediate prozora treba pisati sa navodnicima ili bez
?NovaGodina(2014) ili ?NovaGodina("2014")

Pozdrav

#15

19.01.2014 09:39

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: Kopiranje baze (nova godina)

Vidis da var. nova godina nisam dimenzionisao pa je mozes pisati kako hoces.
Ako stavis Godina as integer onda bi bila broj a ako stavis godina as string onda bi bilo kao sto si napisao.
Ovako moze i jedno i drugo.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#16

19.01.2014 09:43

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Kopiranje baze (nova godina)

Upravo sam probao i sve radi OK.

Pozdrav

#17

20.01.2014 09:14

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Kopiranje baze (nova godina)

Ovo sve radi OK. i nemam primjedbe, međuti moja zamisao je bila malo drugačija.
Å½elio bih da se cijeli postupak izrade be baze za novu godinu nekako automatizira.
Ovdje ipak treba bazu 'be.sys' napraviti ručno, a to opet zna samo programer. Å to ako on recimo ode u penziju, a korisnik nezna čačkati po tablicama.
Be.sys se ne moÅ¾e napraviti jednom za svagda jer se neke stvari tokom godine promjene(tablica artikala je dopunjena novim proizvodima, tablica kupaca novim kupcima itd.)

Pozdrav

#18

20.01.2014 09:26

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: Kopiranje baze (nova godina)

Onda mozes u be.sys staviti sve prazne tablice te napraviti slican kod za prekopiravanje podataka iz zadnje godine u kodne tabele nove gosine, na isti nacin kako si to napravio i zaprenos pocetnog stanja.

Jedini problem ovoga je ako imas negdje autonumber a ljudi ga koriste kao sifarnik i ako imas dozvolu brisanjau kodnim tabelama.
Tada se moze desiti da sifre nisu iste a ljudi vec navikli na to.

U takvim slucajevima mora se vrsiti export tabela.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

Ovaj post je ureden 1 puta. Posljednja izmjena 20.01.2014 09:29 od strane zxz.

#19

20.01.2014 18:12

pmiroslav

Clan

Registrovan od:02.02.2009
Postovi:1,458

Predmet:Re: Kopiranje baze (nova godina)

Evo to je to radi izvrsno. Jedino kako provjeriti dali baza koja se pravi več postoji da korisnik nebi pregazio staru bazu.

PreuzmiIzvorni kôd (vbnet):

Function NovaGodina(Godina)
Dim Db As Database, NovaDb As Database
Dim SQL As String
Dim Rs As Recordset
Dim PutanjaBaza As String, Putanja As String
Dim ImeNoveBaze As String
Dim Sl_PocetnaJM As Recordset
Dim Sl_ZavrsnaJM As Recordset
Dim Sl_PocetnaSKL As Recordset
Dim Sl_ZavrsnaSKL As Recordset
Dim Sl_PocetnaDOB As Recordset
Dim Sl_ZavrsnaDOB As Recordset
Dim Sl_PocetnaMAT As Recordset
Dim Sl_ZavrsnaMAT As Recordset
Dim Sl_PocetnaDUL As Recordset
Dim Sl_ZavrsnaDUL As Recordset
Dim Sl_PocetnaDIZ As Recordset
Dim Sl_ZavrsnaDIZ As Recordset
Dim Sl_PocetnaKTA As Recordset
Dim Sl_ZavrsnaKTA As Recordset
Dim Sl_PocetnaUL As Recordset
Dim Sl_ZavrsnaUL As Recordset
Set Db = CurrentDb()
SQL = "SELECT TOP 1 Database " _
& "FROM MSysObjects " _
& "WHERE Database Is Not Null"
Set Rs = Db.OpenRecordset(SQL)
Putanja = Rs.Fields(0)
Rs.Close
PutanjaBaza = Put_Baza(Putanja)
ImeNoveBaze = "Skladiste_" & Godina & "_be.mdb"
FileCopy PutanjaBaza & "be.sys", PutanjaBaza & ImeNoveBaze
Set NovaDb = OpenDatabase(PutanjaBaza & ImeNoveBaze)
'Kopiranje u tablicu Jedinice
Set Sl_PocetnaJM = Db.OpenRecordset("Jedinice", dbOpenDynaset)
Set Sl_ZavrsnaJM = NovaDb.OpenRecordset("Jedinice", dbOpenDynaset)
If Sl_PocetnaJM.RecordCount > 0 Then
Sl_PocetnaJM.MoveFirst
While Not Sl_PocetnaJM.EOF
With Sl_ZavrsnaJM
.AddNew
![JM] = Sl_PocetnaJM![JM]
![MJERA] = Sl_PocetnaJM![MJERA]
.Update
End With
Sl_PocetnaJM.MoveNext
Wend
End If
'Kopiranje u tablicu SkladiÅ¡ta
Set Sl_PocetnaSKL = Db.OpenRecordset("SkladiÅ¡ta", dbOpenDynaset)
Set Sl_ZavrsnaSKL = NovaDb.OpenRecordset("SkladiÅ¡ta", dbOpenDynaset)
If Sl_PocetnaSKL.RecordCount > 0 Then
Sl_PocetnaSKL.MoveFirst
While Not Sl_PocetnaSKL.EOF
With Sl_ZavrsnaSKL
.AddNew
![IDSkladiÅ¡ta] = Sl_PocetnaSKL![IDSkladiÅ¡ta]
![NazivSkladiÅ¡ta] = Sl_PocetnaSKL![NazivSkladiÅ¡ta]
.Update
End With
Sl_PocetnaSKL.MoveNext
Wend
End If
'Kopiranje u tablicu Dobavljaci
Set Sl_PocetnaDOB = Db.OpenRecordset("tblDobavljaci", dbOpenDynaset)
Set Sl_ZavrsnaDOB = NovaDb.OpenRecordset("tblDobavljaci", dbOpenDynaset)
If Sl_PocetnaDOB.RecordCount > 0 Then
Sl_PocetnaDOB.MoveFirst
While Not Sl_PocetnaDOB.EOF
With Sl_ZavrsnaDOB
.AddNew
![IDdobavljaca] = Sl_PocetnaDOB![IDdobavljaca]
![Dobavljac] = Sl_PocetnaDOB![Dobavljac]
![Mjesto] = Sl_PocetnaDOB![Mjesto]
![Adresa] = Sl_PocetnaDOB![Adresa]
![DrÅ¾ava] = Sl_PocetnaDOB![DrÅ¾ava]
.Update
End With
Sl_PocetnaDOB.MoveNext
Wend
End If
'Kopiranje u tablicu MAT
Set Sl_PocetnaMAT = Db.OpenRecordset("MAT", dbOpenDynaset)
Set Sl_ZavrsnaMAT = NovaDb.OpenRecordset("MAT", dbOpenDynaset)
If Sl_PocetnaMAT.RecordCount > 0 Then
Sl_PocetnaMAT.MoveFirst
While Not Sl_PocetnaMAT.EOF
With Sl_ZavrsnaMAT
.AddNew
![MAT] = Sl_PocetnaMAT![MAT]
![MAT_IME] = Sl_PocetnaMAT![MAT_IME]
![Kvalitet] = Sl_PocetnaMAT![Kvalitet]
![JM] = Sl_PocetnaMAT![JM]
![primjedba] = Sl_PocetnaMAT![primjedba]
.Update
End With
Sl_PocetnaMAT.MoveNext
Wend
End If
'Kopiranje u tablicu tblDokumentiUlaz
Set Sl_PocetnaDUL = Db.OpenRecordset("tblDokumentiUlaz", dbOpenDynaset)
Set Sl_ZavrsnaDUL = NovaDb.OpenRecordset("tblDokumentiUlaz", dbOpenDynaset)
If Sl_PocetnaDUL.RecordCount > 0 Then
Sl_PocetnaDUL.MoveFirst
While Not Sl_PocetnaDUL.EOF
With Sl_ZavrsnaDUL
.AddNew
![IDdokumenta] = Sl_PocetnaDUL![IDdokumenta]
![Dokument] = Sl_PocetnaDUL![Dokument]
.Update
End With
Sl_PocetnaDUL.MoveNext
Wend
End If
'Kopiranje u tablicu tblDokumentiIzlaz
Set Sl_PocetnaDIZ = Db.OpenRecordset("tblDokumentiIzlaz", dbOpenDynaset)
Set Sl_ZavrsnaDIZ = NovaDb.OpenRecordset("tblDokumentiIzlaz", dbOpenDynaset)
If Sl_PocetnaDIZ.RecordCount > 0 Then
Sl_PocetnaDIZ.MoveFirst
While Not Sl_PocetnaDIZ.EOF
With Sl_ZavrsnaDIZ
.AddNew
![IDdokumenta] = Sl_PocetnaDIZ![IDdokumenta]
![Dokument] = Sl_PocetnaDIZ![Dokument]
.Update
End With
Sl_PocetnaDIZ.MoveNext
Wend
End If
'Kopiranje u tablicu Konta
Set Sl_PocetnaKTA = Db.OpenRecordset("Konta", dbOpenDynaset)
Set Sl_ZavrsnaKTA = NovaDb.OpenRecordset("Konta", dbOpenDynaset)
If Sl_PocetnaKTA.RecordCount > 0 Then
Sl_PocetnaKTA.MoveFirst
While Not Sl_PocetnaKTA.EOF
With Sl_ZavrsnaKTA
.AddNew
![Kto] = Sl_PocetnaKTA![Kto]
![NazivKta] = Sl_PocetnaKTA![NazivKta]
.Update
End With
Sl_PocetnaKTA.MoveNext
Wend
End If
'Kopiranje u tablicu Ulaz
Set Sl_PocetnaUL = Db.OpenRecordset("Q_Inventura", dbOpenDynaset)
Set Sl_ZavrsnaUL = NovaDb.OpenRecordset("Ulaz", dbOpenDynaset)
If Sl_PocetnaUL.RecordCount > 0 Then
Sl_PocetnaUL.MoveFirst
While Not Sl_PocetnaUL.EOF
With Sl_ZavrsnaUL
.AddNew
![Å ifraUlaz] = Sl_PocetnaUL![Sifra]
![Datum] = Sl_PocetnaUL![Datum]
![Skl] = Sl_PocetnaUL![Skl]
![Ulaz] = Sl_PocetnaUL![Ulaz]
![IDdokumenta] = 4
![Predatnica] = ""
![Dobavljac] = 1
![Nalog] = ""
![Regal] = ""
.Update
End With
Sl_PocetnaUL.MoveNext
Wend
End If
Kraj:
Set Db = Nothing
Set NovaDb = Nothing
End Function
Function Put_Baza(Putanja As String)
Dim tmp As String
tmp = Putanja
Do While right(tmp, 1) <> "\"
tmp = left(tmp, Len(tmp) - 1)
Loop
Put_Baza = tmp
End Function

Pozdrav

#20

20.01.2014 20:00

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: Kopiranje baze (nova godina)

Evo samo ovo popravi.

Citat:

PutanjaBaza = Put_Baza(Putanja)
ImeNoveBaze = "Skladiste_" & Godina & "_be.mdb"
If Dir(PutanjaBaza & ImeNoveBaze) = "" Then
FileCopy PutanjaBaza & "be.sys", PutanjaBaza & ImeNoveBaze
Set NovaDb = OpenDatabase(PutanjaBaza & ImeNoveBaze)
else
MsgBox "Baza već postoji"
Exit Function
End If

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

Stranice (2):1,2

Izvoz

Verzija za stampu

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova

Razno. veze

Aktivne teme ...

Vijesti (RSS, ...)

Kontakt

Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 06 pm.

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

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

Srodne teme

Ko je online?

Prijavi se

Izdvojeno