Connecting to Access from Excel

[hianupam]

I am trying to connect to access and when I define a connection object like

Dim cn As ADODB.Connection

excel gives me an error like "User Defined Type Not Defined"

What am I doing wrong ?

 

[KniteMare]

Set a Reference to MSDataObjects 2.0 lib

Yours in EXCELent Frustration

KiteMare


E to the X
D Y D X
E to the X
D X
Secant Tangent Cosign Sign
3.14159

Huraaaay Math!!!

 

[hianupam]

I hate to sound like an idiot but how do I do this and where

 

[KniteMare]

From the VBE (where you do your code) Select Tools
References...
From the Drop Down List select
MicroSoft Activex DataObjects 2.0 lib

Check the box.

The reference will be set.

When you are using one application from another you need to set references to that applications object. You want to set as few of these as possible. This is because Excel has to look through them all for the reference. If you try to uncheck a reference that is being used you will recieve an error message. If you uncheck one that is not being used but later is needed, Same error message. The help files are not very clear on how to use these. I spent like a gagillion bucks on various books trying to learn the ins and outs. After all that I learned more here in one month of reading the posts and asking questions than I did in a year of reading. Oh well at least the books give me something to read on long airline flights when I need the sleep.


Yours in EXCELent Frustration

KniteMare


.9 repeating is really 1?
1/3 = .3333333(repeating)
3*3=9
so why does 3*.3333333(repeating) =1
instead of .9999999999 (repeating)
Hey there is a hole in my math.

 

[PaddyD]

.9 repeating is really 1?
1/3 = .3333333(repeating)
3*3=9
so why does 3*.3333333(repeating) =1
instead of .9999999999 (repeating)
Hey there is a hole in my math.

Probably related to the fact that 2 plus 2 equals 5 for large values of 2.

 

[Ivan F Moala]

You can always set the reference programatically;

<pre/>

Sub CreateRef_Library_ADODB()
'// Set a Reference to ADODB[M].tlb
'// Microsoft ActiveX Data Objects 2.0 Library M.m Type Library
'// : Note The 1 for Major Version!
'// If it already exits Resume & Handle latter!
'// C:PROGRAM FILESCOMMON FILESSYSTEMADOmsado20.tlb
On Error Resume Next
Set ID = ThisWorkbook.VBProject.References
ID.AddFromGuid "{00000200-0000-0010-8000-00AA006D2EA4}", 1, 0

If Err.Number <> 32813 And Err.Number <> 0 Then
MsgBox "Error Number:= " & Err.Number & vbCr _
& "Error Discrp:= " & Err.Description & vbCr & vbCr & _
"[msado20.tlb] Type Library", _
vbMsgBoxHelpButton, _
"Error" & sGuid, Err.HelpFile, Err.HelpContext
End If
End Sub
</pre>