Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Objekt aus Funktion zurückgeben

Objekt aus Funktion zurückgeben
jan
Hallo, ich habe gestern den Hinweis bekommen, dass es wohl daran liege, dass ich ein Objekt zurückgeben möchte, aber irgendwie hänge ich hier fest.
Also ich habe eine Funktion, die momentan so aussieht, aber nicht läuft.
Function lese_kunden(cn) As ADODB.Recordset
Dim SQLStatement As String
SQLStatement = "select * from Kunde"
lese_kunden.Open SQLStatement, cn, adOpenForwardOnly, adLockReadOnly
End Function
Die Idee war, durch diese Funktion ein Recordset zu erzeugen, welches dann zurückgegeben werden soll.
z.B. so: Ergebnis = lese_kunden(cn)
Ich weiß einfach nicht, wie ich den Return bewerkstelligen muss. Kann mir hier bitte jemand helfen?
Vielen Dank
Jan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Ist doch einfacher für uns mit mappe ow.T.
17.03.2011 19:39:51
Reinhard


OT
17.03.2011 22:04:31
Reinhard
Hallo Jan,
Entschuldigung, hab den Betreff verwechselt :-(
Deine Frage habe ich auf noch offen gestellt, das macht man mit dem Häkchen rechts über dem Eingabefeld.
GRuß
Reinhard
Anders aber funktioniert
18.03.2011 06:52:32
Marc
Moin!
Ich hab eine funktionnierende Abfrage die wie folgt aussieht:
Set conldap = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
conldap.Provider = "ADSDSOObject"
conldap.ConnectionString = "BeliebigerString"
conldap.Open
Set objCommand.ActiveConnection = conldap
objCommand.CommandText = "Select sn, givenName, usw usw" 'Ergänzen!
Set rs = objCommand.Execute 'Ausführung
If rs.RecordCount >= 1 Then
rs.movefirst
Do While Not rs.EOF
Name= rs("sn").Value
Vorname= rs("givenname").Value
rs.movenext
Loop
End If
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige