Comments on: VBA Framework II

By: Dick Kusleika

Dick Kusleika — Tue, 06 Jan 2009 18:58:00 +0000

Jurgen: Habit. Collections are native and dictionaries make me set a reference. I really need to force myself to use a dictionary object, but I haven't yet.

Thanks for the list Peder, that seems like a good approach.

Hans: I considered looping through the workbooks, but didn't use it for some reason - can't remember. Maybe it had something to do with add-ins.

By: Jurgen

Jurgen — Tue, 06 Jan 2009 17:24:00 +0000

hello,
A question: personally, I prefer using a Dictionary over a Collection (because of Exists method, Key property, removeall method).
Is there a reason why you go for a Collection?

regards,

By: Hans Schraven

Hans Schraven — Mon, 05 Jan 2009 10:31:00 +0000

Alternative for filling te combobox

Dim sq()
ReDim sq(Workbooks.Count - 1, 2)

For j = 1 To Workbooks.Count
sq(j - 1, 0) = "VBAProject"
sq(j - 1, 1) = Workbooks(j).Name
sq(j - 1, 2) = j
Next
Me.cbxProject.List = sq

By: Peder Schmedling

Peder Schmedling — Mon, 05 Jan 2009 09:13:00 +0000

Regarding the ADO references I would suggest to attempt to add the reference from a list of known GUIDs, using the VBIDE.References.AddFromGuid method found in "Microsoft Visual Basic for Applications Extensibility" library..

Using this approach you can attempt to add a reference and trap the error that occurs if the library isn't available on the target computer. You could also warn the user if none of the references could be set, this way the user would be aware that the generated code wouldn't work "out of the box".

Here's info on the ADO libraries I found on my computer:
Filename: msado20.tlb
Name: ADODB
GUID: {00000200-0000-0010-8000-00AA006D2EA4}
Desc.: Microsoft ActiveX Data Objects 2.0 Library

Filename: msado21.tlb
Name: ADODB
GUID: {00000201-0000-0010-8000-00AA006D2EA4}
Desc.: Microsoft ActiveX Data Objects 2.1 Library

Filename: msado25.tlb
Name: ADODB
GUID: {00000205-0000-0010-8000-00AA006D2EA4}
Desc.: Microsoft ActiveX Data Objects 2.5 Library

Filename: msado26.tlb
Name: ADODB
GUID: {00000206-0000-0010-8000-00AA006D2EA4}
Desc.: Microsoft ActiveX Data Objects 2.6 Library

Filename: msado27.tlb
Name: ADODB
GUID: {EF53050B-882E-4776-B643-EDA472E8E3F2}
Desc.: Microsoft ActiveX Data Objects 2.7 Library

Filename: msado15.dll
Name: ADODB
GUID: {2A75196C-D9EB-4129-B803-931327F72D5C}
Desc.: Microsoft ActiveX Data Objects 2.8 Library

By: Scott

Scott — Mon, 22 Dec 2008 18:24:00 +0000

Maybe it's a simple as looping through the reference folder? Problem is (and this may be nothing, but you never know), I don't know if the reference folder would ever be anywhere other than Common FilesSystemADO.

Sub IterateADOReferences()

Const sDIR As String = "C:Program FilesCommon FilesSystemADO"
Const sADO_REF As String = "MSADO"
Const sTLB As String = "TLB"
Dim sFile As String

sFile = Dir(sDIR)

Do While Len(sFile) 0
If (UCase(Left(sFile, 5)) = sADO_REF) And _
(UCase(Right(sFile, 3)) = sTLB) Then
Debug.Print sFile
End If
sFile = Dir
Loop

End Sub

By: Egon

Egon — Mon, 22 Dec 2008 17:21:00 +0000

Great work with this, Dick!

Hope it gets approved on Sourceforge.

By: Dick Kusleika

Dick Kusleika — Mon, 22 Dec 2008 15:09:00 +0000

Scott: Yeah, that's why that one is still on my to-do list. I guess I could late-bind it, but I almost never use late-binding with ADO, so it would lose some utility for me.

I have never been able to iterate through the list of available references. I would think that would be in the registry somewhere, but I've never been able to find it.

By: Scott

Scott — Mon, 22 Dec 2008 14:16:00 +0000

When it comes to setting references to ADO, I'd set it for the lowest reference you can without interferring with the ADO functions. I've run into situations where I'll set a ADO 2.7 reference for something and some of the end users didn't have it, so I had to go and manually set the reference to 2.5.

Maybe part of the whole package could be some type of Admin form, where you can choose the path of the DB, choose the reference you wnat (i.e. have access to), etc.

By: Dick Kusleika

Dick Kusleika — Sun, 21 Dec 2008 21:42:00 +0000

I’m trying to put this on sourceforge. I’ve applied for a project and it’s pending approval. I’m not sure how a VBA project will fare on sourceforge, but I thought it was worth a try.