Prikazi cijelu temu 07.01.2011 23:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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.