Centar za edukaciju-BiH



#181 01.02.2011 19:28
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Citiraj zxz:
Ti hoces da prepises kat grupe napr stroj a podgrupa moze biti bilo sta sklop podsklop cvor te kat isto tako moze biti 3,4 itd.
Kada hoces u sklop napr. dodati cvor kat sklopa je 2 a cvora 4
Jedino mozes ovo napraviti kada ima rekorda da ti pokaze.

Kod koji si mi dao znao sam i ja ali me on ne zadovoljava jer ako neme rekorda za određeni izbor tj. krene se od poćetka, onda se nema Å¡to prepisati u novi red. A kada ima podataka onda mi se kada zavrÅ¡i upis, uvjek javlja greÅ¡ka (slika)

Mislio sam da se iskoristi recimo ovakav query i iz njega Proces.Klasa
PreuzmiIzvorni kôd (vbnet):
  1. SELECT Indeks.Slaganje, PROCES.PozKratica, PROCES.NAZIV, PROCES.KLASA, Indeks.Kat, Indeks.IDstroja, Indeks.Kom, Indeks.Komada
  2. FROM Indeks INNER JOIN PROCES ON Indeks.IDdijela = PROCES.ID;


Slicice prilozenih slika:
greska.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:139
Velicina datoteke:94.02 KB
Velicina slike: 1100 x 752 Pikseli


Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 01.02.2011 19:29 od strane pmiroslav. ↑  ↓

#182 01.02.2011 19:53
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Ja sam malo doradio funkciju koju si mi prije dao i u nju povukao broj za kategoriju, e sad ne znam kako to iskoristiti za Defaukt value

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub MeniD_AfterUpdate()
  2. Dim Nodx As Node
  3. Dim Rs As Recordset
  4. Dim Indeks As String
  5. Dim Tekst As String
  6. Dim Text_Poz As String
  7. Dim Text_Naz As String
  8. Dim Text_Label As String
  9. Dim Kategorija As Integer ' [b]Dodao sam ovo[/b]
  10. Dim Kom As Integer
  11. Dim SQL As String
  12. Dim ImgI As Integer
  13. Dim Db As Database
  14. Dim Nadredjeni As String
  15.  
  16. Strojevi Me.MeniD, Me.MeniC
  17. Set Db = CurrentDb
  18.  
  19. SQL = "SELECT * FROM Q_Indeks ORDER BY Slaganje"
  20. On Error Resume Next
  21.  
  22. Me.sTREE.SetFocus
  23. Start:
  24.             Set Rs = Db.OpenRecordset(SQL)
  25.             sTREE.Nodes.Clear              
  26.             Rs.MoveFirst
  27.             Nadredjeni = "@" & Rs!Slaganje
  28.             Indeks = "@" & Rs!Slaganje
  29.             Text_Naz = Rs!NAZIV
  30.             Text_Poz = Rs!PozKratica
  31.  
  32.             Kategorija = Rs!KLASA    '[b]Ovo sam dodao[/b]
  33.  
  34.             Tekst = Text_Poz & " - " & Text_Naz & " - " & Kategorija
  35.            
  36.         '---------------------------------------
  37.         Do While Not Rs.EOF
  38.         If Nadredjeni = Indeks Then
  39.         Set Nodx = sTREE.Nodes.Add(, , Indeks, Tekst)
  40.         Nodx.Bold = True
  41.         Else
  42.         Nodx.Bold = False
  43.        
  44.         Set Nodx = sTREE.Nodes.Add(Nadredjeni, tvwChild, Indeks, Tekst)
  45.        End If
  46.         ImgI = Val(Rs!KLASA)
  47.         sTREE.Nodes(Indeks).image = ImgI
  48.         Rs.MoveNext
  49.  
  50.         Kom = Rs!Kom
  51.         Text_Naz = Rs!NAZIV
  52.         Text_Poz = Rs!PozKratica
  53.  
  54.         Kategorija = Rs!KLASA  ' [b]I  ovo sam dodao[/b]
  55.  
  56.         Tekst = Kom & " x " & Text_Poz & " - " & Text_Naz & " - " & Kategorija
  57.         Indeks = "@" & Rs!Slaganje
  58.         Nadredjeni = Parentni(Rs!Slaganje)
  59.         Loop
  60. Rs.Close
  61. Exit Sub
  62.  
  63. End Sub


Slicice prilozenih slika:
kat.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:238
Velicina datoteke:177.89 KB
Velicina slike: 1141 x 756 Pikseli


Pozdrav
↑  ↓

#183 01.02.2011 23:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
hehe zato sam stavio on error resume next.
Ovdje se to moze staviti jer ako i ne uradi upisat ces.
Jedino sto mozemo staviti je ako hoces naprimjer kada opdaberes sklop da ti daje kat od podsklopa.
Opet napominjem da ti na sklop mozes dodati nap cvor te zato bi se kat trebao pisati bar u prvi red pa poslije neka se prepisuje kao default.
Umjesto kat trebas staviti combo pa da bude tekst. neka i drugi znaju sta je to:
U combo rowsource upises:
0;Kombinqacija;1;Stroj itd..
U table Qyery vale list.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#184 02.02.2011 12:45
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Čini mi se da sam ovo uspio rijeÅ¡izi na slijedeći način:
Na formu sam dodao Text Box koji sam nazvao txtKat.

U Proceduri Sub sTree dodaosam

Me.txtKat = Val(Right(sTREE.Object.SelectedItem.Text, 1))

Što mi u taj TextBox upiše kaegoriju selektitanog dijela na stablu

Na formi F_Izmjeme u polju Kat

Default Value = =[Forms]![Frm_Strojevi]![txtKat]

sada sve radi OK.
Pozdrav
↑  ↓

#185 02.02.2011 16:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Mozes ti to upisati i direktno u default value ali sto sam napomenuo obicno klines na grupu a upisujes podgrupu. Mislio sam ja upisati idgrupe-1 medjutim ima slucajeva da je grupa sklop a podrgrupa napr.cvor.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#186 02.02.2011 20:36
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Nema tu nikakve komplikacije . Svar je jednostavna.
Kada na stablu editiram neki element npr.

5501.10 - NAZIV ( 2 Kategorija ili Klasa)
svim pripadajućim elementima koje upisujemo u tom trenutku u subformu F_Izmjene mora se upisati ista kategorija tj. 2. u polje KAT.

ako editiram

5501.10.01 - NAZIV (3 Kategorij)
Svim elementima u F_Izmjena upisuje se KAT = 3 itd.

Nema različitih varijanti za jedan izbor na stablu.
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 02.02.2011 20:37 od strane pmiroslav. ↑  ↓

#187 02.02.2011 20:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Ne razumijem.
Evo konkretno.
Izberemo stroj 17.
Na njemu kliknemo dupli klik na glavina koja je Kat 1.
U desnom prozoru dobijemo 2 elementa i to:
Glavina i
PRIRUBNICA

koji su kat 3.

Mozda si ti sta mijenjao.
ja sam to zamislio i napravio tako da biras u meniju grupu a u podmeniju dobijes podgrupu od te grupe.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#188 03.02.2011 08:18
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
NiÅ¡ta nisam mjenjao. Ali u tablicu Tbl_Zbitna uz element ne upisujemo koja je njegova kategorija več koja je kategorija viÅ¡eg elementa u koji se on ugrađuje.
Znači kada smo iz starih tablica
tblKombinacija, Stroj , Sklop, Podsklop i Cvor sve kopirali u novu tablicu Tbl_Zbirna tada smo

Ako smo kopirali iz
tblKombinacija polje Kat = 0
Stroj polje Kat = 1
Sklop polje Kat = 2
Podsklop polje kat = 3
Cvor polje kat =4

kat = 5 se ne koristi u Tbl_Zbirna jer Pozicija nema sastavnih dijelova

znači kat se odnosi na IDstroja, ane na IDdijela
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 04.12.2022 10:15 od strane zxz. ↑  ↓

#189 03.02.2011 11:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: Server i Access baza
Dobro bitno je da radi kako ti mislis da treba.
Bolje je da idemo dalje.
Sada naparavi sub dir u dir baze podataka. Posto ti je baza na serveru znaci na sreveru mozes napraviti subdir napr da se zove bitmap i nemore tako ali eto. Skeniraj nekoliko slika pozicija i strojeva i postavi tu ali daji imena iddijela. Ako imas vecinu u acadu onda ****lje da sve bude u dwg. Ostale koje imas na pausu onda bi mogao skenirati pa uvesti u akad kao vanjsku ref.
Bitno je samo da bude jedinstveno. ako je bmp neka sve bude bmp ako je jpg neka sve bude jpg ili pak dwg.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#190 03.02.2011 12:27
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Server i Access baza
Napravio sam direktorj Bitmap kako si rekao i u njega stavio slike U PDF formatu.
Pozdrav
↑  ↓

Stranice (22):1,2 ... 17,18,19,20,21,22


Sva vremena su GMT +02:00. Trenutno vrijeme: 1: 21 am.