Re: How to get an ADO control in my Excel 2002?

I'd say "yes". But what do you mean "normal workbook in a normal code module"?


"RB Smissaert" wrote:

> Works with me even on Excel 2000.
> Did you run it in a normal workbook in a normal code module?
>
> RBS
>
> "NiceGuy" <NiceGuy@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> news:BD7DA1B0-E152-4E7B-937C-4072CFF37CCB@xxxxxxxxxxxxxxxx
> >I ran this sub, it gave me this message:
> > run time error '1004'
> > Method 'VBProject' of object '_workbook' failed
> >
> > What does it mean?
> >
> > Thanks
> >
> >
> >
> > "RB Smissaert" wrote:
> >
> >> I don't think there is an ADO control but you will need a reference to
> >> the
> >> Microsoft ActiveX Data Objects Library and this code will set the
> >> reference
> >> to that library:
> >>
> >> Sub AddADO()
> >>
> >> Dim r
> >>
> >> For Each r In ThisWorkbook.VBProject.References
> >> If r.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And r.Major
> >> = 2
> >> Then
> >> Exit Sub
> >> End If
> >> Next
> >>
> >> On Error GoTo NOTFOUND
> >>
> >> 'although usually the ADO version will be higher, doing Minor:=0 will
> >> install
> >> 'the higher version if available. On the other hand when you specify
> >> Minor:=5
> >> 'and only a lower version is available, this can't be installed
> >>
> >> '----------------------------------------------------------------------------
> >> ThisWorkbook.VBProject.References.AddFromGuid _
> >> GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _
> >> Major:=2, Minor:=0
> >> Exit Sub
> >>
> >> NOTFOUND:
> >> On Error GoTo 0
> >>
> >> End Sub
> >>
> >>
> >> Once you have this reference you can set your connection and work with
> >> the
> >> database.
> >> Plenty of examples on the net how to do this.
> >>
> >>
> >> RBS
> >>
> >>
> >> "NiceGuy" <NiceGuy@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> >> news:D66FF1C1-93E1-4662-8AF5-54EB19D57D07@xxxxxxxxxxxxxxxx
> >> > I'm developing a small program using Excel 2002 and VBA with a
> >> > connection
> >> > to
> >> > Access. However there is no ADO control in my excel. Where do I get one
> >> > and
> >> > how to register it?
> >>
> >>
>
>
.

Relevant Pages

  • Re: Dynamic References to Word?
    ... Sub RemoveWordReference() ... On Error GoTo ERROROUT ... As it does Dim R As Object, rather than R as Reference you don't need a reference to ...
    (microsoft.public.excel.programming)
  • Re: Dynamic References to Word?
    ... First set the reference manually in the VBE under Tools, ... Dim myCheck As Long ... Sub RemoveWordReference() ... On Error GoTo ERROROUT ...
    (microsoft.public.excel.programming)
  • Re: Dynamic References to Word?
    ... Sub ListExcelReferences() ... Dim i As Long ... First set the reference manually in the VBE under Tools, ... On Error GoTo ERROROUT ...
    (microsoft.public.excel.programming)
  • Re: Dynamic References to Word?
    ... Sub RemoveWordReference() ... On Error GoTo ERROROUT ... As it does Dim R As Object, rather than R as Reference you don't need a ...
    (microsoft.public.excel.programming)
  • RXParse module v.91 (by robic0)
    ... # Unicode character reference ... sub original_content ... then call content handler with $content ...
    (comp.lang.perl.misc)