Connection function

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 ?

VB Code:

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

u r using DAO?????

yes :(

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

Code:

---

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

---

K.. I get error though

VB Code:

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

On the line where error occurs

VB Code:

Set getRecordset = rstRecord

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.

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

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

VB Code:

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

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

How will ADO help me.. ?

are the variables different ? recordsets different?

Thanks all

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

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

Can anyone else sell ADO?


seahag