Centar za edukaciju-BiH

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



Deprecated: Function create_function() is deprecated in /home2/icentarb/public_html/icentar/classes/class.geshi.php on line 4708
Prosiri i skupi Opcije teme
Stranice (22):1,2 ... 7,8,9,10,11 ... 21,22
 Prikazi prvu neprocitanu poruku

#81 07.01.2011 23:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Napravi jednu tabelu (mozes kopirati unu neku Shema, Shema moja itd.) Bitno je da ima polja:
IdStroja
IdDijela
Kat
KOM

PreuzmiIzvorni kôd (Visual Basic):
  1. Ovaj kod kopiraj u neki modul.
  2. Option Compare Database
  3. Option Explicit
  4. Dim Db As Database
  5. Function Strojevi(ID As String, Kategorija As Integer)
  6. Dim ImeTabele As String
  7.  
  8. Set Db = CurrentDb
  9. Db.Execute "DELETE*FROM [Indeks]"
  10.  
  11. Select Case Kategorija
  12. Case 0
  13. Kombinacija:
  14. ImeTabele = "tblKombinacija"
  15. Zapisi ImeTabele, ID
  16. GoTo STROJ
  17. Case 1
  18. STROJ:
  19. ImeTabele = "Stroj"
  20. Zapisi ImeTabele, ID
  21. GoTo SKLOP
  22. Case 2
  23. SKLOP:
  24. ImeTabele = "SKLOP"
  25. Zapisi ImeTabele, ID
  26. GoTo Podsklop
  27. Case 3
  28. Podsklop:
  29. ImeTabele = "PODSKL"
  30. Zapisi ImeTabele, ID
  31. GoTo Cvor
  32. Case 4
  33. Cvor:
  34. ImeTabele = "CVOR"
  35. Zapisi ImeTabele, ID
  36. End Select
  37.  
  38. End Function
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Zapisi(ImeT As String, IDK As String)
  2. Dim Rs1 As Recordset
  3. Dim Rs2 As Recordset
  4. Dim SQL1 As String
  5. Dim SQL2  As String
  6.  
  7. SQL1 = "SELECT * FROM Indeks"
  8. SQL2 = "SELECT * FROM " & ImeT _
  9.  & " WHERE IDstroja='" & IDK & "' Or IDstroja In (SELECT IDDijela FROM Indeks) " _
  10.   & "Or IDstroja In (SELECT ID FROM Proces WHERE Klasa=5)"
  11. Set Rs1 = Db.OpenRecordset(SQL1)
  12. Set Rs2 = Db.OpenRecordset(SQL2)
  13.     Do While Not Rs2.EOF
  14.     Rs1.AddNew
  15.     Rs1!IDstroja = Rs2!IDstroja
  16.     Rs1!IDdijela = Rs2!IDdijela
  17.     Rs1!kat = Rs2!kat
  18.     Rs1!KOM = Rs2!KOM
  19.     Rs1.Update
  20.     Rs2.MoveNext
  21.     Loop
  22. Rs1.Close
  23. Rs2.Close
  24. End Function
Ovimces dobiti sve elemente da krenes bilo odakle. Hocu reci od sklopa stroja itd.
U tvome combu SelectProdukt ti je u koloni 1 (column(1) Ulazni parametar kategorija u proceduri a id u column(0)
Ovim ces dobiti sve sastavne elemente. E sad sta ces dalje neznam. Dali mislis mijenjati izvjestaj ili ces ga ostaviti onakvog.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#82 13.01.2011 11:16
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Evo smo da se javim kako nebi ispalo da sam odustao.
Ali bio mi se pokvario kompjuter pa sam imao problema oko toga, a i trenutno na poslu se nakupilo zaostataka pa nemam vremena da ovo pošteno istestiram.

Pozdrav
Pozdrav
↑  ↓

#83 13.01.2011 20:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Hehe i ja sam u frci a mislio sam napraviti jos jednu proceduru na drugi nacin.
Isto ce se dobiti samo na drugi nacin.
Kada stignem napravit cu.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#84 14.01.2011 12:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Samo jos jedno pitanje.
Jel tebi ovi podaci trebaju samo u uzvjestaju.
Pitam iz razloga sto imam ideju da napravim izvjestaj sa kolicinama.
Nemam vremena ove sedmice ali iduce cu imati nadam se.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#85 14.01.2011 13:38
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Podaci mi trebaju za viÅ¡e različitih namjena
-prinranje trebovnica
-izračune cijene koÅ¡tanja
-zbirnik materijala koji je potreban za izradu.
-pregled vremena izrade
-preglede radnih operacija itd.

ovo je več dosta velika baza i služi za pračenje proizvodnog procesa.

P:S:
Imama ja jedno pitanje
Kako Funkciju koju si mi zadnju dao pokrenuti sa forme.
Pozdrav
↑  ↓

#86 14.01.2011 16:05
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Aha.
Cini ni se da ti se onaj combo zove select produkt I drugi select categori. gdje su ti ulazni prametri za proceduru Strojevi.
Znaci trebalo bi poziv staviti na after update te kontrole.
Pa bi bilo na selectProdukt:
call Strojevi(Me.selectProduct,me.SelectCategori)

Nism siguran u tvoje nazive polje provjerit cu. Sad nisam u prilici.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#87 15.01.2011 18:32
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Prvo da ti se zahvalim na tvom dosadašnjem trudu i strpljenju da ovo nekako riješimo.
Danas sam testirao funkciju koji si mi zadnju poslao i nekako se čudno ponaÅ¡a.
U reduciranoj bazi sa samo dva stroja, koju sam prikaćio Funkcija upiÅ¡e u tablicu Indeks ispravne podatke ali nisu baÅ¡ složeni po redosljedu kako bih ja to želio.
Međutim kada istu funkciju pokrenem u originalnoj bazi gdje ima puno rekorda u tablicu indeks upiÅ¡u se i neki djelovi koji tamo ne pripadaju.

Slicice prilozenih slika:
01_Cvor.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:156
Velicina datoteke:161.75 KB
Velicina slike: 959 x 580 Pikseli
02_Sklop.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:158
Velicina datoteke:293.41 KB
Velicina slike: 1124 x 835 Pikseli

Pozdrav
↑  ↓

#88 15.01.2011 18:36
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Evo i nova baza sa svim podacima.
Podjelio sam rar u dva dijela da stane u Attach

Prilozi:
Informacije o tipu datoteke za:rar  Proces_New_1.part01.rar
Preuzimanja:171
Velicina datoteke:488.28 KB
Informacije o tipu datoteke za:rar  Proces_New_1.part02.rar
Preuzimanja:166
Velicina datoteke:320.54 KB

Pozdrav
↑  ↓

#89 16.01.2011 11:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Ovo sto se tice slaganja si u pravu nece sloziti po redosledu niti ce broj komada izbaciti odnosno izmnoziti. To sam mislio da se uradi u izvjestaju direktno. Naravno moze se napraviti i procedura.
Druga stvar trebalo bi ovu tabelu sto se brise na kraju izbaciti iz baze vani jer nije dobro u bazi stalno brisati i dodavati podatke. Ovo sve moze ostati dok ne rijesimo ovaj dio, odnosno dok ne izdvojimo podatke.
Ovo cu provjeriti za pozicije sto si naveo. Moguce da postoji negdje rupa u proceduri. Sto se tice samog postupka mislim da tu nisam pogrijesio.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#90 21.01.2011 18:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Uf Ima lijepo posla na ovome.
Neznam kako bi ti ovo naplatio ili u pivu ili da ti dam jedan dalekovodni stub da nacrtas.
Evo danas sam slobodan pa sam uzeo ovo tvoje.
Prvo sam prebacio podatke sve u jednu zabelu (Sklopove, kombinacije, strojeve itd) i dao joj ime Tbl_Zbirna.
Mislim da ti ****lje ovako. da sve imas na jednomk mjestu.
Jednostavno uzmi jednu od ovih tabela sklopova cvorova ili bilo koju i kopiraj je pod imenom Tbl_Zbirna.
Poslije toga pokreni sledeci kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim DB As Database
  4. Function Zbirna()
  5. Dim Rs1 As Recordset
  6. Dim Rs2 As Recordset
  7. Dim Imetabele(0 To 4) As String
  8. Dim N As Integer
  9. Dim I As Integer
  10.  
  11. DB.Execute "DELETE*FROM [Tbl_Zbirna]"
  12. Set DB = CurrentDb
  13. Imetabele(0) = "TblKombinacija"
  14. Imetabele(1) = "Stroj"
  15. Imetabele(2) = "Sklop"
  16. Imetabele(3) = "Podskl"
  17. Imetabele(4) = "Cvor"
  18. Set Rs2 = DB.OpenRecordset("Tbl_Zbirna")
  19. For I = 0 To 4
  20. Set Rs1 = DB.OpenRecordset(Imetabele(I))
  21. Do While Not Rs1.EOF
  22.     Rs2.AddNew
  23.     For N = 0 To 4
  24.     Rs2.Fields(N) = Rs1.Fields(N)
  25.     Next N
  26.     Rs2.Update
  27. Rs1.MoveNext
  28. Loop
  29. Next I
  30. End Functi
on

Najbolje otvori novi modul. One stare pobrisi pa sav kod od sad stavljaj u njega.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (22):1,2 ... 7,8,9,10,11 ... 21,22

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 11: 07 am.