| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Connecting Excel to Access Using Late Binding
That seemed to do it! Thanks y'all!!!
-- Dr. M "Bob Phillips" wrote: You can't use the library constants if you use late binding, so replace adStateOpen with the value 1 -- __________________________________ HTH Bob "Dr. M" wrote in message ... Thanks for the tip. However, I'm trying to avoid having to reference the Active X Data Objects Lib X.X by clicking it as I'm unsure which machine will actually be running this code. I was hoping more for a programmtic solution. Thank you! -- Dr. M "Office_Novice" wrote: Try This, this worked for me after referencing Active X Data Objects Lib 2.7 Public Const ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C\: YourDataSource Here." Public Sub Zero() Dim Connection As ADODB.Connection Set Connection = New ADODB.Connection Connection.Open (ConnectionString) If Connection.State = adStateOpen Then MsgBox "You Have Connected Successfully ", vbInformation If Connection.State = adStateClosed Then MsgBox "Sorry, Connection Failed", vbCritical If Connection.State = adStateOpen Then Connection.Close End Sub "Dr. M" wrote: Hello! I'm trying to connect to an Access database using Late Binding but my little simple code will not open the database. I appreciate your help!!! Sub Test() Dim strConnection As String strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=M:\database.mdb;" Dim cn As Object Set cn = CreateObject("ADODB.Connection") cn.Open strConnection ' Find out if the attempt to connect worked. If cn.State = adStateOpen Then MsgBox "You are connected!" Else MsgBox "Sorry. You are not connected." End If ' cn.Close End Sub -- Dr. M |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Late binding to Excel from Access causing Object error | Excel Discussion (Misc queries) | |||
| Late Binding access reference in Excel Module | Excel Programming | |||
| Late Binding Excel in Access | Excel Programming | |||
| Late Binding examples of binding excel application | Excel Programming | |||
| late binding in excel | Excel Programming | |||
Threaded Mode
