Evaluating References in Code [Long]

[jeremygetsmail]

I've got an adp (Metrix.adp) with a reference to another adp
(InteractSQL.ad p). InteractSQL sits on a server, and is refered to by
all of the clients (Metrix), which sit on the client machines (There's
also a SQL Server that sits on the server, but that's besides the point
here.). Both adp files have references to ADOX. I've got to check
Metrix has an older version of ADOX, and react appropriately. I've
written code to do this, and it looks like it should work. But it
doesn't and I can't figure out why.

I would love any thoughts on what might be going wrong with my code. I
would also love any thoughts on other ways that I could go about
assessing what version of ADOX is being refered to in an adp to which
I have a reference set. Another way to go about this would be to figure
out what version of MDAC is on another computer on the network.

The code (below) runs in Metrix, and walks the collection of references
in that file. When it encounters the ADOX reference, it just gathers
the version. When it encounters the InteractSQL reference, it then
walks the reference collection of that object, again gathering the
version number when it finds the ADOX reference.

I've got two machines set up. The client machine has a reference to
ADOX 2.7 in the Metrix file. The InteractSQL file on the server has a
reference to ADOX 2.8 (a scenario we encounter a lot at client sites).
But the code reports back that they are both 2.7. When I go back to
InteractSQL.adp , though, it's reference is clearly still set to 2.8.

Thanks much for any help on this.

Jeremy
--
Jeremy Wallace
Fund for the City of New York

Function fnInteractRepor tRefsValid() As Boolean
On Error GoTo Error
Dim refParent As Access.Referenc e
Dim appChildDB As Application
Dim refChild As Access.Referenc e
Dim lngParentVersio n As Long
Dim lngChildVersion As Long
Dim strInteractFile As String

'Can't know how the references will be named, so get rid of the
extension, if it's there
strInteractFile = Replace(INTERAC TFILE, ".adp", "")

'Walk the collection of references set in Metrix.adp
For Each refParent In References
If refParent.Name = "ADOX" Then
'Gather the local mdac version, which we'll later compare to
the one in interact.
lngParentVersio n = CLng(refParent. Major & "." &
refParent.Minor )
ElseIf refParent.Name Like "*" & strInteractFile & "*" Then
If refParent.IsBro ken = True Then
'Report back if it's broken.
fnInteractRepor tRefsValid = False
Else
'Gather the version of mdac refered to in InteractSQL.adp .
Set appChildDB = New Access.Applicat ion
Call appChildDB.Open AccessProject(r efParent.FullPa th)
For Each refChild In appChildDB.Refe rences
If refChild.Name = "ADOX" Then
lngChildVersion = CLng(refChild.M ajor & "." &
refChild.Minor)
End If
Next refChild
appChildDB.Clos eCurrentDatabas e
End If
End If
Next refParent

If lngChildVersion > lngParentVersio n Then
'Do some stuff
End If

ExitPoint:
On Error Resume Next
'Clean-up code

Exit Function
Error:
'Error handling
End Function

[Tim Marshall]

TC wrote:

See if you can work out which of those three people, is you.

Christmas is a very stressful time of year...

--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[TC]

Ain't that the truth!

TC

[Terry Kreft]

Well, by my counting of responders in this branch of the thread you've just
called David Epsom a wanker, which in my experience is not true, I therefore
think you owe him an apology.

BTW my answer, if you had bothered to check, was to the question of whether
the references changed when the loaded database changed, but of course
you're too busy getting wound up about an irrelevant aside, which I have
already justified, to be concerned with irrelevancies such as that.

Oh, and trimming your reply where you randomly attempted to insult me
doesn't make it dissapear.

To be honest at the moment you needn't worry about me interrupting one of
your "technical" discussions again because your lack of rational thought and
apparent lack of technical knowledge makes it seem to me that it wouldn't be
a worthwhile experience for either of us.

<PLONK>

--
Terry Kreft

"TC" <aa**********@y ahoo.com> wrote in message
news:11******** **************@ g49g2000cwa.goo glegroups.com.. .

Terry, see if you can follow along. Really try to concentrate.

- Person 'A' is involved in a technical discussion with person 'B'.
- Person 'A' asks person 'B' to clarify their position.
- Some random wanker 'C' drops into the thread, for the first time, to
tell person 'A' that the issue is obvious ("I'm trying hard not so say
"of course").
- Person 'A' asks person 'C' - twice - to justify their statement.
- Person 'C' replies with a fact that is, in truth, completely
irrelevant the issue at hand.
- Person 'A' restates the technical issue that the thread is about.
- Person 'C' replies with random invective.

See if you can work out which of those three people, is you.

TC

[david epsom dot com dot au]

You've done that wrong:

5. open a different one which definitely does have different references
6. repeat step 3.
Should be
5. repeat step 1.

The behaviour is not the same, and if you wish to use code
like that (instead of the code in the original question),
you should make your own tests.

(david)
"TC" <aa**********@y ahoo.com> wrote in message
news:11******** *************@g 44g2000cwa.goog legroups.com... Ok, let me check I understand what you're saying. You're saying that
the References collection of the Application object, does return the
references of the specific database or access project that is currently
open in that object? So, in the following sequence of actions, steps 3
and 6 would return different information?

1. automate a new instance of Access;
2. open a database or access project in that instance;
3. print all the details of the Application object, Refrences
collecion;
4. close that database or access project;
5. open a different one which definitely does have different references
to the previous one;
6. repeat step 3.

Cheers,
TC

[TC]

Terry Kreft wrote:

Well, by my counting of responders in this branch of the thread you've just
called David Epsom a wanker, which in my experience is not true, I therefore
think you owe him an apology.
Good Lord man, * Y O U * are person (C) in that script! Can't you
read the words on the page?

BTW my answer, if you had bothered to check, was to the question of whether
the references changed when the loaded database changed
You did answer that, which was fine. I have no objection to that,
that's the reason why people ask questions. They hope to get answers.
It was obvious from my reply to David Epsom, that I was asking him to
confirm my understanding of what he said. You stepped in & did that for
him. No poblems up to that point.

but of course you're too busy getting wound up about an irrelevant aside
It was an aside which obviously offended me. You could easily have
neutralized that by a suitably worded reply. You chose not to bother. I
chose not to accept that.

<PLONK>

We're certainly getting nowhere with this, and I have much more
pressing things to do with my time. Please do no ever reply to any of
my posts again. I'll try hard to deal with the fearful ramifications of
that. I'll advise my clients that my level of expertise will plummet
alarmingly.

TC

[Larry Linson]

"TC" <aa**********@y ahoo.com> wrote

<PLONK>
pressing things to do with my time. Please do no ever reply to any of
my posts again.

PLONK implies that he won't ever _see_ your posts again.
I'll try hard to deal with the fearful ramifications of
that. I'll advise my clients that my level of expertise
will plummet alarmingly.

I don't have any idea of your level of expertise, but I can assure you that
Terry Kreft's level of expertise is quite high. I wouldn't, even in a fit of
pique, cut myself off from his excellent knowledge of Access. On the other
hand, as _he_ has PLONKed _you_, you don't really seem to have much choice
in the matter. :-)

[TC]

Larry Linson wrote:

I don't have any idea of your level of expertise,

Well, I must have made at least 6000 posts at various times in the last
10 years, and I doubt that any more than 2 or 3 of those were
questions. All the rest were answers. So that should give you some
idea.

But I come here very rarely now. There are too many egos & posturing. I
enjoy a robust discussion of technical issues, but that seems very hard
in this group.

You won't see any of that behaviour in the MS beta newsgroups. Look
there for a good example of how it should go. There are robust
discussions of Office & Access 12 at present, but no-one is making
snide comments, or being disrespectful to others.

I post in those groups, with the same tone I have posted here. But I've
not got into any arguments there. Maybe that should tell you something.

Cheers,
TC

[jeremygetsmail]

Lyle,

One red-headed cupcake headed your way, Lyle. Turns out it was just one
function that was using ADOX, and it was quite easily rebuilt using ADO
and an SP. Thanks much.

Jeremy

[Lyle Fairfield]

Great; red-headed cupcakes will generally motivate me to do anything!

[david epsom dot com dot au]

I offer the following code because I continue to be
unconvinced of the need for something more complex:

Private Declare Function GetFileVersionI nfo& Lib "Version" Alias
"GetFileVersion InfoA" (ByVal FileName$, ByVal lptr&, ByVal lSize&, lpvData
As Any)
Public Function gfn_GetVersion( FileName$)
'2003/02/26 dlg --minimalist version -- Right to attribution retained
Dim iBuf(0 To 99) As Integer

Call GetFileVersionI nfo(FileName$, 0&, 200, iBuf(0))
gfn_GetVersion = iBuf(25) & "." & iBuf(24) & "." & iBuf(27) & "." &
iBuf(26) 'FILE VERSION

End Function
"Lyle Fairfield" <ly***********@ aim.com> wrote in message
news:11******** **************@ g43g2000cwa.goo glegroups.com.. .

If I were rude I'd say the end result would be the same, but I'm not
rude. My evil twin, Kyle, might not be so circumspect!
Moving right along, I believe somewhere in the thread you indicated
that it might help to be able to ascertain the version of ADOX
available on the machine.
As you have specified an ADP, I beleive we can be assured of Access >=
2000 and an ADODB reference. I believe that the ADOX dll will reside in
the same directory as the msado dll. So, based on those assumptions I
offer this, which is a very minor adaption of some other code that I
run, [the one to use is ADOXVersion()]:

Option Explicit

Private Declare Sub CopyMemory _
Lib "kernel32" Alias "RtlMoveMem ory" _
(Destination As Any, Source As Any, ByVal Length As Long)

Private Declare Function GetFileVersionI nfo _
Lib "version.dl l" Alias "GetFileVersion InfoA" _
(ByVal lptstrFilename As String, ByVal DWHandle As Long, _
ByVal dwLen As Long, lpData As Any) As Long

Private Declare Function GetFileVersionI nfoSize _
Lib "version.dl l" Alias "GetFileVersion InfoSizeA" _
(ByVal lptstrFilename As String, lpdwHandle As Long) As Long

Private Declare Function VerQueryValue _
Lib "version.dl l" Alias "VerQueryValueA " _
(pBlock As Any, ByVal lpSubBlock As String, _
LPLPBuffer As Any, PULen As Long) As Long

Public Function VersionNumber(B yVal FullPath As String) As String
Dim Buffer() As Byte
Dim DWHandle As Long
Dim FileVersionInfo Size As Long
Dim LPLPBuffer As Long
Dim SubVersion As Integer
Dim Version As Integer

FileVersionInfo Size = GetFileVersionI nfoSize(FullPat h, DWHandle)
If FileVersionInfo Size <> 0 Then
ReDim Buffer(FileVers ionInfoSize)
GetFileVersionI nfo FullPath, 0, FileVersionInfo Size, Buffer(0)
VerQueryValue Buffer(0), "\", LPLPBuffer, FileVersionInfo Size
ReDim Buffer(51)
CopyMemory Buffer(0), ByVal LPLPBuffer, 52
CopyMemory Version, Buffer(10), 2
CopyMemory SubVersion, Buffer(14), 2
VersionNumber = "Version " & Version & "." & SubVersion
Else
VersionNumber = "Could Not Retrieve Version Information for " _
& FullPath
End If
End Function

Public Function ADOXVersion() As String
Dim Path As String
Dim Drive As String
Dim Dir As String
Dim File As String
Dim Ext As String

With WizHook
.Key = 51488399
.SplitPath References("ADO DB").FullPath , Drive, Dir, File, Ext
End With

ADOXVersion = VersionNumber(D rive & Dir & "msadox.dll ")
End Function

Notes:
The work of Wizhook could be done in any number of ways, but Wizhook
annoys David, so I use it whenever I can.
51488399 is the number of redheads who have turned me down. When it is
ANDed with the total number of redheads in the universe the result is
51488399.