Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (2):1,2
 Prikazi prvu neprocitanu poruku

#11 01.09.2016 09:35
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Iz kolone u niz
Evo ga primer

Prilozi:
Informacije o tipu datoteke za:zip  Baza_Copy.zip
Preuzimanja:306
Velicina datoteke:71.05 KB

↑  ↓

#12 01.09.2016 17:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Iz kolone u niz
Evo procedura ali gdje se tekst umece nisam bas siguran inace bi odradio do kraja.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Pregledi(BrPredmeta As String)
  2.     Dim SQL As String
  3.     Dim Db As DAO.Database
  4.     Dim Rs As DAO.Recordset
  5.     Dim Temp As String, Znak As String
  6.     Dim BrRekorda As Integer, I As Integer
  7.  
  8.  
  9.     SQL = "SELECT Prezime, Ime,Broj_Predmeta_Pregleda " _
  10.           & "FROM tblINSPEKTORI " _
  11.           & "INNER JOIN tblINSPEKTORI_NA_PREGLEDU ON tblINSPEKTORI.JMBG_Inspektor = " _
  12.           & "tblINSPEKTORI_NA_PREGLEDU.JMBG_Inspektor " _
  13.           & "WHERE Broj_Predmeta_Pregleda= '" & BrPredmeta & "'"
  14.     Set Db = CurrentDb
  15.     Set Rs = Db.OpenRecordset(SQL)
  16.     If Rs.RecordCount = 0 Then
  17.     MsgBox "Nema Podataka"
  18.     GoTo Kraj:
  19.    
  20.     End If
  21.     Do While Not Rs.EOF
  22.     Temp = Temp & Rs!Ime & " " & Rs!Prezime & " isprava broj " & Rs!Broj_Predmeta_Pregleda & ",  "
  23.     Rs.MoveNext
  24.     Loop
  25.     Temp = Left(Temp, Len(Temp) - 3)
  26.     BrRekorda = Rs.RecordCount
  27.     If BrRekorda > 1 Then
  28.         For I = 1 To Len(Temp) - 1
  29.         Znak = Mid(Temp, Len(Temp) - I, 1)
  30.             If Znak = "," Then
  31.             Mid(Temp, Len(Temp) - I, 2) = " i"
  32.             Exit For
  33.             End If
  34.         Next I
  35.     End If
  36.     Pregledi = Temp
  37.     Exit Function
  38. Kraj:
  39.     End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 02.09.2016 12:45
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Iz kolone u niz
Zahvaljujem, ako može dodatno piotanje.
Rs.RecordCount bez podataka ima vrednost 0 a sa bilo koliko podataka ima vrednost 1. Kako dobiti koliko je podataka selektovano?
↑  ↓

#14 02.09.2016 17:31
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: Iz kolone u niz
Rs.RecordCount vraca broj selektovanih podataka
↑  ↓

#15 03.09.2016 07:10
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Iz kolone u niz
Moje neznanje. Nisam MsgBox Rs.RecordCount stavio u pravi red. Hvala veliko za pomoć.
↑  ↓

#16 29.12.2016 00:13
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Iz kolone u niz
PokuÅ¡ao sam prepraviti kod iz ove teme, ali ...Importovao sam dve tabele iz baze i modul pa ako može pomoč oko koda koji treba da radi istu stvar kao i u ovoj temi samo sa drugim tabelama.

Prilozi:
Informacije o tipu datoteke za:zip  strSQL.zip
Preuzimanja:309
Velicina datoteke:22.08 KB

↑  ↓

#17 29.12.2016 20:30
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: Iz kolone u niz
Ovako nesto ako sam et dobro razumeo.
ZXZ-ov SQL iz modula zamenio sam Querijem, pa iz njega mozes birati polja koja hoces

Prilozi:
Informacije o tipu datoteke za:zip  strSQLDex.zip
Preuzimanja:313
Velicina datoteke:19.38 KB

↑  ↓

#18 30.12.2016 15:49
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Iz kolone u niz
Uf, koliko god mislio da sam napredovao nekada me stvarnost (neznanje) opomene kojiko u stvari malo znam. U svakom slučaju veliko hvala!
↑  ↓

Stranice (2):1,2

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 10 am.