Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Return RecordSet in funktion
Autor: PlettenbergerVB
Datum: 15.07.04 13:17
Hi tschanne, kann's gerade nicht prüfen, aber so müsste es gehen. Da du ja immer auf eine Konstante DB zugreifst, und sowieso nicht schließt, solltest du sie nicht immer wieder in jedem Aufruf öffnen, sondern vielleicht eher in einer übergeordneten Sub... Und Global deklarieren (ganz oben im Code in keiner Sub) Dim DBa As Database Dim dbFile As String 'Datenbank öffnen dbFile = App.Path + "\DMS.MDB" Set DB = Workspaces(0).OpenDatabase(dbFile, False, False) Jetzt zur Funktion Funktionen sollten immer einen Rückgabewert haben... Private Function DB(ByVal SQL As String) as recordset 'Da deine Funktion ja selbst vom Typ recordset ist... Set DB = DBa.OpenRecordset(SQL) End Function in der aufrufenden sub... set recordsetobj = DB(SQLString) VB6, DB, SQL, EDIFACT, u.v.m

Return RecordSet in funktion	357	tschanne	15.07.04 09:00
Re: Return RecordSet in funktion	225	PlettenbergerVB	15.07.04 13:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen