Prikazi cijelu temu 21.01.2011 17:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.