zxz 21.01.2011 18:10
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.

zxz 21.01.2011 18:18
Predmet:Re: Server i Access baza

Sada napravi jos jednu tabelu i daj joj ime indeks.
I nju mozes napraviti tako sto ces kopirati neku od gore navedenih tabela te dodati jos 2 polja:
Polja:
Slaganje tekst 255 karaktera
Komada Long integer

Kod ide u isti modul i ove prve dvije procedure su u stvari stare samo malo prepravljene.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Strojevi(ID As String, Kategorija As Integer)
  2. Dim I As Integer
  3. Dim Opcija As Integer
  4.  
  5. Set DB = CurrentDb
  6. DB.Execute "DELETE*FROM [Indeks]"
  7. Zapisi Kategorija, ID, Opcija
  8. Opcija = 1
  9. For I = Kategorija To 4
  10. Zapisi I, ID, Opcija
  11. Next I
  12. BrojKomada
  13. Slaganje
  14. End Function
  15. Function Zapisi(Kat As Integer, IDK As String, Op As Integer)
  16. Dim Rs1 As Recordset
  17. Dim Rs2 As Recordset
  18. Dim SQL1 As String
  19. Dim SQL2  As String
  20.  
  21. SQL1 = "SELECT * FROM Indeks"
  22. If Op = 0 Then
  23. SQL2 = "SELECT * FROM Tbl_Zbirna" _
  24. & " WHERE IDstroja='" & IDK & "'" '
  25. Else
  26. SQL2 = "SELECT * FROM Tbl_Zbirna" _
  27.  & " WHERE IDstroja In (SELECT IDDijela FROM Indeks WHERE kat=" & Kat & ") Order BY IndexSklop" '& Imetabele
  28. End If
  29. Set Rs1 = DB.OpenRecordset(SQL1)
  30. Set Rs2 = DB.OpenRecordset(SQL2)
  31. If Op = 0 Then
  32.    Rs1.AddNew
  33.     Rs1!IDstroja = "0000001"
  34.     Rs1!IDdijela = Rs2!IDstroja
  35.     Rs1!Kat = Kat - 1
  36.     Rs1!Kom = 1
  37.     Rs1.Update
  38. End If
  39.     Do While Not Rs2.EOF
  40.     Rs1.AddNew
  41.     Rs1!IDstroja = Rs2!IDstroja
  42.     Rs1!IDdijela = Rs2!IDdijela
  43.     Rs1!Kat = Rs2!Kat
  44.     Rs1!Kom = Rs2!Kom
  45.     Rs1.Update
  46.     Rs2.MoveNext
  47.     Loop
  48. Rs1.Close
  49. Rs2.Close
  50. End Function

Slijedi nastavak.
Koda za slaganje i brojeve komada.

pmiroslav 22.01.2011 14:59
Predmet:Re: Server i Access baza

E Å¡ta da ti kažem, ako treba nacrtat ću ti cijeli dalekovod jer mi Autocad ide bolje nego VB.
Ovo je stvarno puno posla i da sam znao možda ne bi ni započinjao ovu temu.
MS Access baza Proces, o kojoj govorimo je u funkciji i korektno mi odrađuje posao, jedino Å¡to sam ja to rijeÅ¡io sa puno Query-a i joÅ¡ dodatnog VB coda, kako se može i vidjeti iz baze koju sam prije zakačio. Ja sam imao želju da se to rijeÅ¡i na jednostavniji način ako može jer sada mi je najveći problem da ako neÅ¡to treba popraviti ili dodati , moram proći kroz sve te Query-e i oda je tu uvijek mogućnost neke pogreÅ¡ke.

Å to se tiče ovog tvog zadnjeg napravio sam kako si rekao.
Prva funkcija Zbirna vračala mi je greÅ¡ku, pa sam uočio da ispred reda

DB.Execute "DELETE*FROM [Tbl_Zbirna]"
nedostaje

Set DB = CurrentDb

Kada sam dodao funkcija je odradila posao i prebacila je sve rekorde u novu tablicu.
U funkciji Zapisi nakon što pokrenem Debug javi se poruka o greški

Sub or Function not defined
I zaustavi se na varijabli BrojKomada

zxz 22.01.2011 15:23
Predmet:Re: Server i Access baza

Hehe napisao sam ti da to nije sve.
Ja postavio juce i legao.
Kontao kada ti dodjes stavit cu drugi dio. Tebe sinoc nije bilo i ja zaboravio.
Ovo prvo Dim db as database.
Ja sam stavio van procedure tako da se nemora dodavati u svaku.
Ako si sve stavio u jedan modul trebalo bi to da radi.
Samo kopiraj sve po redu u jedan modul.
Na vrhu modula ide ovo kao sto sam i dao u prvom.
Option Compare Database
Option Explicit
Dim Db As Database

Ovu proceduru nisam ni stavio ali sad cu.
Citat:
Sub or Function not defined
I zaustavi se na varijabli BrojKomada

i procedura slaganje fali.

Napisao sam da nije sve.

zxz 22.01.2011 15:36
Predmet:Re: Server i Access baza

Sto se tice acada za ja radim dosta dal. stubove. Sutra opet dobijam novi stub od staticara.
Uradio sam ih do sad neznam ni broj. Lako bi se mi dogovorili da ti radis stubove a ja bazu hehehe.
Citat:
Ovo je stvarno puno posla i da sam znao možda ne bi ni započinjao ovu temu.
MS Access baza Proces, o kojoj govorimo je u funkciji i korektno mi odrađuje posao, jedino Å¡to sam ja to rijeÅ¡io sa puno Query-a i joÅ¡ dodatnog VB coda, kako se može i vidjeti iz baze koju sam prije zakačio. Ja sam imao želju da se to rijeÅ¡i na jednostavniji način ako može jer sada mi je najveći problem da ako neÅ¡to treba popraviti ili dodati , moram proći kroz sve te Query-e i oda je tu uvijek mogućnost neke pogreÅ¡ke.

Da pretpostavljam ja da ti imas problema kada hoces nesto mijenjati.Zato sam ti preporucio u pocetku ono.
Problem je i prenesenog kljuca koji ja u pocetku nisam mogao otkriti jer je bilo tesko ako neznas sastavne dijelove nekog sklopa ili stroja.
Samo da si bar napravio dvije tabele. Tabelu elemenata (sastavnih dijelova sadasnja (proces) i tabelu sklopova.
I polje preneseni kljuc da bude parent odnosno pripadnost napr neki sklop cemu pripada samo id toga kome pripada stroju napr. itd.
Imao bi onda samo trecu tabelu gdje bi upisivao id stroja sklopa i id elementa odnosno sastavnog dijela.
tako bi za svaki sklop zasebno imao sve elemente a mogao bi vidjeti koji kojem sklopu pripada i koji podsklop pripada sklopu.
Moglo bi se to sve kodom prebaciti i naravno ako imas crtez trebalo bi i njega vezati pa da se vidi.

Ovo je sad krpaza.
Vidio sam da negdje imas broj komada i negativan

Imam ja i izvjestaj sa pasusima gdje sve vidi.
Nazalost nemogu opet sve prekontrolisati na pogled jer nemam sliku odnosno crtez.
ti vjerovatno znas to napamet.
Nisam ti htio zakaciti sve to iz razloga eto kad stavljas dio po dio znat ces sta radis.

zxz 22.01.2011 15:46
Predmet:Re: Server i Access baza

Evo ostatak koda.
Ide u isti modul.
Nemoj nista ispravljati samo prekopiraj sve po redu u novi modul. Ono gore prije i ovo.
Ukoliko ne bude islo poslat cu ti modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function BrojKomada()
  2. Dim DB As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim BrKomada As Long
  6. Dim IDdijela As String
  7.  
  8. Set DB = CurrentDb
  9. Set Rs1 = DB.OpenRecordset("Indeks")
  10. Do While Not Rs1.EOF
  11. IDdijela = Rs1!IDdijela
  12. If Rs1!KOMADA = 1 Then
  13. BrKomada = Rs1!Kom
  14. Else
  15. BrKomada = Rs1!KOMADA
  16. End If
  17. Set Rs2 = DB.OpenRecordset("SELECT * FROM Indeks WHERE idstroja ='" & IDdijela & "'")
  18.     Do While Not Rs2.EOF
  19.     Rs2.Edit
  20.     Rs2!KOMADA = BrKomada * Rs2!Kom
  21.     Rs2.Update
  22.     Rs2.MoveNext
  23.     Loop
  24. Rs2.Close
  25. Rs1.MoveNext
  26. Loop
  27. Rs1.Close
  28.  
  29. End Function
  30.  
  31. Function Slaganje()
  32. Dim Rs As Recordset
  33. Dim SQL As String
  34. Dim Kat As String
  35. Dim I As Integer
  36. Dim IDstroja As String
  37. Dim IDdijela As String
  38. Dim Brojac As Integer
  39.  
  40.  
  41. Set DB = CurrentDb
  42. SQL = "SELECT * FROM Indeks"
  43. Set Rs = DB.OpenRecordset(SQL)
  44.  Do While Not Rs.EOF
  45.  Rs.Edit
  46.  Rs!Slaganje = ""
  47.  Rs.Update
  48. Rs.MoveNext
  49. Loop
  50. Rs.Close
  51. For I = 0 To 5
  52. SQL = "SELECT * FROM Indeks WHERE Kat=" & I
  53. Set Rs = DB.OpenRecordset(SQL)
  54.  Do While Not Rs.EOF
  55.  Brojac = Brojac + 1
  56.  IDdijela = Rs!IDdijela
  57.  Rs.Edit
  58.  If Format$(Rs!Slaganje) = "" Then
  59.  Rs!Slaganje = I & "." & Str(Brojac)
  60.  Else
  61.  Rs!Slaganje = Rs!Slaganje & "." & I & "." & Str(Brojac)
  62.  End If
  63.  Kat = Rs!Slaganje
  64.  Rs.Update
  65.  Unos IDdijela, Kat, I
  66.  Rs.MoveNext
  67.  Loop
  68.  Rs.Close
  69.  Brojac = 0
  70. Next I
  71. End Function
  72.  
  73. Function Unos(ID As String, KLASA As String, K As Integer)
  74. Dim Rs As Recordset
  75. Dim SQL As String
  76. Dim Slaganje As String
  77. Dim Brojac As Integer
  78. Set DB = CurrentDb
  79.  
  80. SQL = "SELECT * FROM Indeks WHERE IDstroja='" & ID & "'"
  81. Set Rs = DB.OpenRecordset(SQL)
  82.  Do While Not Rs.EOF
  83.  Brojac = Brojac + 1
  84.  Slaganje = KLASA & "." & Str(Brojac)
  85.  Rs.Edit
  86.  Rs!Slaganje = Slaganje
  87.  Rs.Update
  88.  Rs.MoveNext
  89.  Loop
  90. Rs.Close
  91. End Function
  92.  
  93. Function Pasus(K As Integer) As String
  94. Dim I As Integer
  95. I = K
  96. Do While I > Brojac
  97. I = I - 1
  98. Pasus = Pasus & "  "
  99. Loop
  100.  
  101. End Function

pmiroslav 22.01.2011 17:10
Predmet:Re: Server i Access baza

Napravi sam kako si rekao.
Sada je problem slijedeći:

U Funkciji Pasus javlja se greška

Compile error:
Variable not Defined
zaustavi se na

Do While I > Brojac

zxz 22.01.2011 17:19
Predmet:Re: Server i Access baza

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Pasus(K As Integer) As String
  2. Dim i As Integer
  3. Dim Brojac As Integer
  4. i = K
  5. Do While i > Brojac
  6. i = i - 1
  7. Pasus = Pasus & "  "
  8. Loop

samo dimenzionisi brojac.

zxz 22.01.2011 17:21
Predmet:Re: Server i Access baza

PreuzmiIzvorni kôd (SQL):
  1. SELECT Indeks.IDstroja, Indeks.IDdijela, pasus([kat]) & [NAZIV] AS N, PROCES.KLASA, Indeks.Kat, PROCES.ALT, PROCES.BROJ_POZ, Indeks.Komada, Indeks.Kom
  2. FROM Indeks INNER JOIN PROCES ON Indeks.IDdijela = PROCES.ID
  3. ORDER BY Indeks.Slaganje;

zapisi ovaj query napr pod imenom Q_Izvjestaj.

zxz 22.01.2011 18:28
Predmet:Re: Server i Access baza

Uf Opet mi pobjeze.