[VB 6.0]Richiama una funzione con parametro Recordset

[meronet]

Ciao a tutti..
volevo sciogliere una matassa
chi mi aiuta !!!

creo in un modulo una funzione:

code
--------------------------------------------------------------
Public Sub apridb(alfa As Recordset)

Set miodb = OpenDatabase("database.mdb")
Set miorst = miodb.OpenRecordset("SELECT campo from tabella ", dbOpenDynaset)
alfa = miorst

End Sub
----------------------------------------------------------------

nel form quando la richiamo
come devo fare !!!

se metto apridb(x)

mi da errore 424 "necessario oggetto"


grazie a tutti


------------------------------------------------------------
Sei sperso nell'oceano...
abbi fede una barchetta
ti affogherà

[xegallo]

appunto x che cavolo sarebbe

[Sypher]

fai una funzione che restituisce un recordset no? e non gli passi niente

[Brainjar]

Premetto, senza per questo voler dare 'consigli', che la tecnologia ADO è ormai in uso da quasi (più di) 5 anni, mentre noto che molti utilizzano ancora DAO, o il meno vetusto RDO. In tutti i casi dovresti fare un po' di chiarezza quando posti il codice. Nel frammento che hai postato non è evidente se miodb e miorst sono già dichiarati.
In tutti i casi, 'alfa = miorst' andrebbe scritto come :

  ..
 Set alfa = miorst  
  ..

sempre che il riferimento ad alfa sia dichiarato precedentemente, come ti suggerisce peraltro giustamente xegallo, ossia:

Dim x as Recordset 

Call apridb(x) 

....
....

Public Sub apridb(alfa As Recordset) 
Dim miodb as Database
Dim miorst as Recordset 
Set miodb = OpenDatabase("database.mdb") 
Set miorst = miodb.OpenRecordset("SELECT campo from tabella ", dbOpenDynaset) 
Set alfa = miorst 
' Comunque è più efficiente 
' Set alfa = miodb.OpenRecordset("SELECT campo from tabella ", dbOpenDynaset)
' al posto di 
' Set miorst = miodb.OpenRecordset("SELECT campo from tabella ", dbOpenDynaset) 
' Set alfa = miorst 


End Sub

Ciao,

[Sypher]

ancora non mi è chiaro a cosa serva il parametro alfa della sub...

[meronet]

mi dispiace di non aver ancora provato i vostri consigli
e ringrazio tutti i partecipanti ....della disponibilità
Sinceramente è la prima volta che uso una funzione con parametro
ma mi pare di aver capito che non c' ne bisogno...o sbaglio !!!
ma se non passo il parametro nel modulo
come manipolo l' oggetto recordset nel form ???






-------------------
la barchetta sta arrivando
ma per ora , ti lascia
stramortire dalle onde

[Sypher]

io farei così:

Private Function rcs() As ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim myrcs As New ADODB.Recordset
    conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\miodb.mdb;Uid=Admin;Pwd=;"
    rcs.Open "select * from tabella1", conn
    Set rec = myrcs 
End Function

Private Sub Form_Load()
    Dim tuorcs As ADODB.Recordset
    Set tuorcs = rcs
End Sub

mi spiego?
nell'esempio l'ho messo nel form_load il recordset restituito dalla funzione (tuorcs)