[es] - Kako od tabele dobiti listu??

mika
NBG-ML

Član broj: 55
Poruke: 640
*.privsav.co.yu.

+1 Profil

^{27.10.2004. u 12:29 - pre 237 meseci}

LM, imam običnu tabelu, npr. sa dve kolone: ID, i Item.

Kada odradim:

SELECT Item FROM Table;

Dobijem:

Item1
Item2
Item3
Item4

E sad, meni treba da dobijem ispis u ovakvoj formi (Access):
Item1, Item2, Item3, Item4.

Kako ovo da uradim? Da li moram da idem ručno (u VBA), preko recordset-a, pa kroz WHILE loop, metodom MoveNext da se krećem kroz recordset i pravim string spajanjem?
(Verovatno postoji fora u SQL-u za ovo, ali pitanje je vezano za Access, zato sam i postovao u ovaj forum)

Pozdrav i hvala unapred!

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Kako od tabele dobiti listu??

^{27.10.2004. u 14:18 - pre 237 meseci}

Koliko ja znam, samo While loop i recordset pomaze. Bio bih srecan da me neko ispravi u ovom slucaju.

:-)

Odgovor na temu

gosha
Zemun

Član broj: 2384
Poruke: 589
*.smin.sezampro.yu.

+40 Profil

Re: Kako od tabele dobiti listu??

^{27.10.2004. u 19:15 - pre 237 meseci}

Pa ajde da te neko ispravi :)

Mislim da se funkcija zove GetString i sastavni deo je klase Recordset.

Ako se ne zove tako sigurno postoji potrazi.

Pozdrav Goran.

JokeJunky :)

Mrzim sublimirane marketinske poruke.

Odgovor na temu

mika
NBG-ML

Član broj: 55
Poruke: 640
*.privsav.co.yu.

+1 Profil

Re: Kako od tabele dobiti listu??

^{28.10.2004. u 08:04 - pre 237 meseci}

Što je najbolje ova funkcija RADI!!!

Evo primera: za tabelu koja ima sledeće elemente:

Code:

Tabela
------
Item1
Item2
Item3
Item4

... i za sledeći kod:

Code:

   Dim rst As New ADODB.Recordset
   Dim Ispis As String

   rst.Open "SELECT * FROM Table", CurrentProject.Connection, adOpenStatic, adLockReadOnly
    If rst.RecordCount > 0 Then    Ispis = rst.GetString(adClipString, , , ",")
    End If

    MsgBox (Ispis)
    rst.close

...daje sledeći ispis:

Item1,Item2,Item3,Item4,

Primetite zarez na kraju, dakle ova komande ne "seče" ovaj field-delimiter na kraju, to izgleda mora ručno, preko left/mid/right funkcija. Ako ima neko neki drugi predlog, molim neka postuje.

Jedino što ne kontam čemu služi ovaj StringFormatEnum parametar (prvi u nizu, adClipString)? Nisam uspeo iz Helpa da provalim.

U svakom slučaju, odličan info! Po meni treba da ide u Access bazu znanja. Pozdrav i hvala!

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

Odgovor na temu

mika
NBG-ML

Član broj: 55
Poruke: 640
*.privsav.co.yu.

+1 Profil

Re: Kako od tabele dobiti listu??

^{28.10.2004. u 09:50 - pre 237 meseci}

I hajde da postujem ovde rešenje za "trimovanje" tog zareza na kraju, iako je trivijalno, radi kompletnosti:

Code:

Ispis = Mid(Ispis, 1, Len(Ispis) - 1)

Znači, ako je Ispis imao sledeći sadržaj:

Item1, Item2, Item3, Item4,

Posle izvršene linije koda koja je navedena iznad, Ispis će biti:

Item1, Item2, Item3, Item4

Dakle, bez zareza na kraju. Pozdrav!

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

Odgovor na temu

filjo

Član broj: 17551
Poruke: 136
*.co.yu.

+1 Profil

Re: Kako od tabele dobiti listu??

^{28.10.2004. u 10:35 - pre 237 meseci}

A sto nisi stavio Left(Ispis, len(Ispis)-1) manje bi pisao.

Odgovor na temu

mika
NBG-ML

Član broj: 55
Poruke: 640
*.privsav.co.yu.

+1 Profil

Re: Kako od tabele dobiti listu??

^{28.10.2004. u 10:46 - pre 237 meseci}

Da, mada sam ja mislio da moze i preko trim funkcije, ali ne. Whatever, vazno je da radi.

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

Odgovor na temu

gosha
Zemun

Član broj: 2384
Poruke: 589
*.ppp-bg.sezampro.yu.

+40 Profil

Re: Kako od tabele dobiti listu??

^{28.10.2004. u 10:47 - pre 237 meseci}

Ajde kad smo vec kod trimovanja:

Code:

Public Function StrLTrim(ByVal vVrednost As String, Optional vSta As String = " ") As String
    vVrednost = LTrim(vVrednost)

    If vSta <> " " And (Left(vVrednost, Len(vSta)) = vSta) Then
        vVrednost = Right(vVrednost, Len(vVrednost) - Len(vSta))
    End If
    StrLTrim = vVrednost
End Function

Public Function StrRTrim(ByVal vVrednost As String, Optional vSta As String = " ") As String
    vVrednost = RTrim(vVrednost)

    If vSta <> " " And (Right(vVrednost, Len(vSta)) = vSta) Then
        vVrednost = Left(vVrednost, Len(vVrednost) - Len(vSta))
    End If
    StrRTrim = vVrednost
End Function

Public Function StrTrim(ByVal vVrednost As String, Optional vSta As String = " ") As String
    vVrednost = StrLTrim(vVrednost, vSta)
    StrTrim = StrRTrim(vVrednost, vSta)
End Function

I sada bi tvoj kod izgledao:
...StrRTrim(rs.GetString(....),",")

Valjda ne treba nikakvo objasnjenje :)

Pozdrav Goran.

JokeJunky :)

Mrzim sublimirane marketinske poruke.

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Kako od tabele dobiti listu??

^{28.10.2004. u 13:41 - pre 237 meseci}

Volim kad me neko ovako ispravi pa naucim nesto novo. :-)

'Ajde sad neko (Mika, Gosha, Filjo) da sve ovo sumira u jednoj poruci i doda to u Bazu Znanja.

Hvala puno svoj trojici.

:-)

Odgovor na temu

mika
NBG-ML

Član broj: 55
Poruke: 640
*.privsav.co.yu.

+1 Profil

Re: Kako od tabele dobiti listu??

^{28.10.2004. u 14:14 - pre 237 meseci}

Done.

Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford

Odgovor na temu