---

Hej gruppe
Jeg sidder med det problem, at jeg vil have lavet mig en database-klasse,
der tager sig af al kommunikation med databasen.
Derfor har jeg oprettet en function, der skal sørge for at udføre en søgning
og returnere et Recordset, Dictionary, Collection ell. lign. med de værdier
fra databasen, der passer på søgningen.

Mit problem er bare, at jeg ikke kan få en function til at returnere andet
en strings, integers osv.

Så mit spørgsmål er ganske simpelt: Hvordan kan jeg returnere en
Collection/Dictionary/Recordset fra en function?

Mvh. Mads

---

Mads Kristensen <madsjuhl423@hotmail.com> wrote:
> Så mit spørgsmål er ganske simpelt: Hvordan kan jeg returnere en
> Collection/Dictionary/Recordset fra en function?
>
> Mvh. Mads
Hej Mads

Nedenstående returnerer et recordset fra en funktion (VBA, men
princippet er det samme).

Private Function getRecordset() As Recordset
Set getRecordset = CurrentDb.OpenRecordset("adr1")
End Function

og denne en Collection

Private Function getCollection() As Collection
Dim res As Collection

Set res = New Collection
res.Add ("Mikkel")
res.Add ("Bundgaard")
Set getCollection = res
End Function
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Codito, Ergo Sum

---

Jamen, var det bare det
Tusind tak for hjælpen!

Mads


"Mikkel Bundgaard" <mikkelbu@teliamail.dk> wrote in message
news:aaehf8$oh2$1@sunsite.dk...
> Mads Kristensen <madsjuhl423@hotmail.com> wrote:
> > Så mit spørgsmål er ganske simpelt: Hvordan kan jeg returnere en
> > Collection/Dictionary/Recordset fra en function?
> >
> > Mvh. Mads
> Hej Mads
>
> Nedenstående returnerer et recordset fra en funktion (VBA, men
> princippet er det samme).
>
> Private Function getRecordset() As Recordset
> Set getRecordset = CurrentDb.OpenRecordset("adr1")
> End Function
>
> og denne en Collection
>
> Private Function getCollection() As Collection
> Dim res As Collection
>
> Set res = New Collection
> res.Add ("Mikkel")
> res.Add ("Bundgaard")
> Set getCollection = res
> End Function
> --
> Mikkel Bundgaard
> IT University of Copenhagen
> http://officehelp.gone.dk
> Codito, Ergo Sum
>
>