Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

recordset als Funktion?
Autor: BernyH
Datum: 24.09.03 21:49
Hallo Gemeinde, irgendwie habe ich wohl ein Denkproblem? Der untenstehende Code funkt nicht. - Ich möchte die Erzeugung eines Recordsets über eine Funktion realisieren. Aber ich bekomme die ERR, daß das Objekt nicht mehr zur Verfügung steht... wo immer ich ein RS durch Übergabe einer SQL-Anweisung erzeugen will Geht das überhaupt? Aufruf: dim rs as recordset set rs=GetSQLrs("SELECT.....",dbfile) 'hier kommt der Fehler Public Function GetSQLrs(ByVal SQL As String, ByVal dbfile As String) As Recordset 'DIM Dim Db As Database 'wenn dbfile nicht angegeben If dbfile = "" Then dbfile = App.Path & "\db\db.mdb" 'db.open Set Db = Workspaces(0).OpenDatabase(dbfile, False, False) 'Recordset-Objekt erstellen Set GetSQLrs = Db.OpenRecordset(SQL) SQLrsSetRecord GetSQLrs Db.Close Set Db = Nothing End Function Public Sub SQLrsSetRecord(ByVal rs As Recordset) If rs.EOF = False Then rs.MoveLast If rs.BOF = False Then rs.MoveFirst End Sub Danke für die Mühe...

recordset als Funktion?	1.005	BernyH	24.09.03 21:49
Re: recordset als Funktion?	563	Stefan Rühl	24.09.03 23:05
Re: recordset als Funktion?	553	Dieter	24.09.03 23:07
Re: recordset als Funktion?	664	Stefan Rühl	25.09.03 00:00
Re: recordset als Funktion?	560	BernyH	25.09.03 05:30

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