set my ADODB connection to my current db 1

[JunglesMcBeef]

G'day,

Maybe a simple one for you. Can anyone tell me how to set my ADODB connection to the database that is currently open?

 

[vbajock]

Pass this guy an "" and it will open a local, pass it a path and it will open a Remote

Function OpenDB(ByVal dbname As String)
On Error GoTo OpenDBConnection_err

Set DB = New ADODB.Connection
If dbname = "" Then
Set DB = CurrentProject.Connection
Else
DB.Open ("Provider=Microsoft.jet.OLEDB.4.0;Data Source=" + dbname)
End If
OpenDB = True

Exit Function


'***********************
OpenDBConnection_err:
'***********************
msgbox error$

End Function

 

[JunglesMcBeef]

Perfect, I was trying to Set cnn = CurrentDB.Connection... he he he, my bad. Thanks.

 

[vbajock]

That is not actually documented very well. I remember when I wrote that function I had to really hunt for it.

 

[2drunk2funk]

Ditto vbajock
Only found CurrentProject.Connection in an example. No actual reference in help detailing how to connect to local DB.
Searching thru help for something, sorry to boost an old post but felt compelled to confirm MS documentation shortfalls.

 

[vbajock]

You think thats bad you get into .net. Nobody knows whats going on because the documentation is so bad. The desgn of the "dynamic" help system is atrocious - you get back everything but what's relevent to what you are trying to do.
In the class I just took, the professor spent more time trying to figure out why his *hit didn't work than I did on mine. What a circus.

 

[Robotron]

There is actually a very good book for ADO in Access titled "Programming Microsoft Access Version 2002" by Rick Dobson. I have found it to be an excellent reference for ADO topics.

Phil Edwards