Connection function

[SeaHag]

How do i create a function to return a
Access table that i may read from somwhere
else in my project.

This is what i have so far... but I think its returning the
wrong thing... as well where would i use the .close ?

Public Function getRecordset(Table As String) As Recordset
Dim dbsBlastRoom As Database
 
 
Set dbsBlastRoom = OpenDatabase(App.Path & "\blstroom.mdb")
Set getRecordset = dbsBlastRoom.OpenRecordset(Table)
 
myRecordset.Close
dbsBlastRoom.Close
End Function
 
 
Seahag

[moinkhan]

u r using DAO?????

[SeaHag]

yes

[Megatron]

You should close it after you are done with it e.g.

myRST = getRecordset("MyTable")
'do code with myRST here
myRST.close

[SeaHag]

K.. I get error though

Private Sub Command1_Click()
Dim myRecorset As Recordset
Set myRecorset = getRecordset("blstpot")
 
myRecorset.MoveFirst
            Debug.Print myRecorset(1)
 
myRecorset.Close
 
End Sub
 
 
 
Public Function getRecordset(Table As String) As Recordset
Dim dbsBlastRoom As Database
Dim rstRecord As Variant
 
    Set dbsBlastRoom = OpenDatabase(App.Path & "\blstroom.mdb")
    Set rstRecord = dbsBlastRoom.OpenRecordset(Table)
 
            getRecordset = rstRecord ' *** i get error here " INVALID USE OF PROPERTY
     
    rstRecord.Close
    dbsBlastRoom.Close
End Function

[moinkhan]

On the line where error occurs

Set getRecordset = rstRecord

[SeaHag]

Yuppers.. then I get another error
under the click event for the command button. (ot of scope
or something)

I have done some searching.. I don't thing this will be
economical.
Maybe a DB class or something.. and even thats not worth
the time.. for this project that is.

I just thought it would be easy


thnks.

[rEaL iGoR]

It would be alot easier if you worked with ADO instead of DAO...

[Virus00110]

this is the only way i was able to get it to work but it would be easier if you were using ADO.

Private Sub Command1_Click()
Dim myRecorset As Recordset
Set myRecorset = getRecordset("blstpot")
 
myRecorset.MoveFirst
            Debug.Print myRecorset(1)
 
myRecorset.Close
 
End Sub
 
 
 
Public Function getRecordset(Table As String) As Recordset
Dim dbsBlastRoom As Database
Dim rstRecord As Variant
 
    Set dbsBlastRoom = OpenDatabase(App.Path & "\blstroom.mdb")
    Set rstRecord = dbsBlastRoom.OpenRecordset(Table)
 
            Set getRecordset = rstRecord ' *** i get error here " INVALID USE OF PROPERTY
     
    'Take out or comment out the following two lines like i have done.
    'rstRecord.Close
    'dbsBlastRoom.Close
End Function

[SeaHag]

Ya. thats the way i got it to work too..

How will ADO help me.. ?

are the variables different ? recordsets different?

Thanks all

[Megatron]

I think you have to dig deep into DB programming to realize the benefits of ADO programming.

[SeaHag]

So.. Dao is great for opening a database
grabbing info and populating an array?

Can anyone else sell ADO?


seahag