Prikazi cijelu temu 04.01.2011 15:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Da pojednostavimo.
Ti imas ovih nekoliko tabela koje imaju u stvari ista polja.
Imas i polje Kat koje samo govori porijeklo odnosno iz koje su tabele podaci.
Evo ti kod da to prebacimo sve u jednu tabelu pa cemo vidjeti dalje sta.
Kada su u jednoj sve imas isto kao i prije.
Koja je tvoja tabela bila pise ti u polju Kat.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Db As Database
  4. Dim MojaTabela As Recordset
  5. Const MojSQL = "SELECT * FROM ShemaMoja"
  6.  
  7. Function TabelaProces()
  8. Dim SQL As String
  9. Dim Rs As Recordset
  10. Dim Kljuc As String
  11.  
  12. Set Db = CurrentDb
  13. SQL = "SELECT ID FROM PROCES"
  14.  
  15. Set Rs = Db.OpenRecordset(SQL)
  16. Set MojaTabela = Db.OpenRecordset(MojSQL)
  17. Do While Not Rs.EOF
  18. Kljuc = Rs.Fields(0)
  19. Call Upis_Podataka("0_tblKombinacija", Kljuc)
  20. Call Upis_Podataka("1_STROJ", Kljuc)
  21. Call Upis_Podataka("2_SKLOP", Kljuc)
  22. Call Upis_Podataka("3_PODSKL", Kljuc)
  23. Call Upis_Podataka("4_CVOR", Kljuc)
  24. Rs.MoveNext
  25. Loop
  26.  
  27. End Function
  28. Function Upis_Podataka(ImeTabele As String, IdStroja As String)
  29. Dim SQL As String
  30. Dim Rs As Recordset
  31.  
  32. SQL = "SELECT * FROM " & ImeTabele & " WHERE IDstroja='" & IdStroja & "'"
  33. Set Rs = Db.OpenRecordset(SQL)
  34.  
  35. Do While Not Rs.EOF
  36. MojaTabela.AddNew
  37. MojaTabela!IdStroja = Rs!IdStroja
  38. MojaTabela!komada = Rs!Kom
  39. MojaTabela!nivo = Rs!Kat
  40. MojaTabela!IdDijela = Rs!IdDijela
  41. MojaTabela!Index = Rs.Fields(3)
  42. MojaTabela.Update
  43. Rs.MoveNext
  44. Loop
  45. End Function

Ja sam dao ime novoj tabeli ShemaMoja ti ako hoces promijeni ili u kodu ili promijeni ime tabele.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.