/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Returnere fra en function (newbie)
Fra : Mads Kristensen


Dato : 27-04-02 15:48

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



 
 
Mikkel Bundgaard (27-04-2002)
Kommentar
Fra : Mikkel Bundgaard


Dato : 27-04-02 16:51

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



Mads Kristensen (27-04-2002)
Kommentar
Fra : Mads Kristensen


Dato : 27-04-02 17:39

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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste