[VB6] Funzioni e RecordSet (DAO)

[alesssia]

Una funzione può avere come valore di ritorno un recordset?

Ovvero, se definisco:


Private Function Query(ssql As String) As DAO.Recordset
Dim rs As DAO.Recordset
Dim db As DAO.Database

Set db = Workspaces(0).OpenDatabase(PathDb)
Set rs = db.OpenRecordset(ssql)

Query = rs

rs.Close
db.Close

End Function


e poi la richiamo come:


Set rs = Query("SELECT * FROM tabella)"


Mi da:


Errore di compilazione. Utilizzo non valido di Property


La mia domanda perciò è: questo errore è dovuto ad un "limite" di VB& oppure a una mia errata implementazione?

Grazie,
alesssia

[Vegait]

Si puo fare.

Dim DB As DAO.Database
'------------------------------------------------------------------
Public (Private) Function OpenDynaset(ByVal SQL as String, Optional Byval ReadOnly As Boolean) As DAO.Recordset

If ReadOnly Then
SET OpenDynaset = DB.OpenRecordSet(SQL, DB.OpenRecordset(SQL, dbOpenDynaset, dbReadOnly)
Else
SET OpenDynaset = DB.OpenRecordSet(SQL, DB.OpenRecordset(SQL, dbOpenDynaset, dbConsistent)
End if

End Function
'------------------------------------------------------------------
Public (Private) Function OpenSnapshot(ByVal SQL As String, Optional ByVal ForwardOnly As Boolean) As DAO.Recordset

If ForwardOnly Then
Set OpenSnapshot = DB.OpenRecordset(SQL, dbOpenSnapshot, dbForwardOnly)
Else
Set OpenSnapshot = DB.OpenRecordset(SQL, dbOpenSnapshot)
End If

End Function

Annotazioni
Il Database deve essere Aperto e non si chiude.
Esempi

Private Sub Form_Load()
Dim RS As DAO.RecordSet

Set DB = Workspaces(0).OpenDatabase(PathDb) 

Set RS = OpenDynaset("SELECT * FROM tabella", False)
End Sub

[alesssia]

Grazie mille!