Re: get DB path from ADODB.Connection

Actually, it seems quite simpel:

Function GetDBPathFromADOConn() As String

Dim i As Long
Dim n As Long
Dim arr
Dim lEqualPos As Long

If Not ADOConn Is Nothing Then
If ADOConn.State = 1 Then
'step back as the index is 86 out of 91
'not sure this always will be the case
'--------------------------------------
For i = ADOConn.Properties.count - 1 To 0 Step -1
If ADOConn.Properties(i).Name = "Extended Properties" Then
'is the ; character always the separator?
'----------------------------------------
arr = Split(ADOConn.Properties(i).Value, ";")
For n = 0 To UBound(arr)
If UCase(InStr(1, UCase(arr(n)), ".GDB", vbBinaryCompare)) > 0 Then
lEqualPos = InStr(1, arr(n), "=", vbBinaryCompare)
If lEqualPos = 0 Then
GetDBPathFromADOConn = arr(n)
Else
GetDBPathFromADOConn = Mid$(arr(n), lEqualPos + 1)
End If
Exit For
End If
Next
End If
Next
End If
End If

End Function


Not sure though if this always will work.

RBS


"RB Smissaert" <bartsmissaert@xxxxxxxxxxxxxxxx> wrote in message news:uA$t7DK8GHA.2384@xxxxxxxxxxxxxxxxxxxxxxx
Using VBA in Excel and connecting to an Interbase database via ODBC and ADO.
Is it possible to get the full DB path from the ADODB.Connection object?

There is no problem if I set the DB path in code in a set connection string, but the problem is
with a DSN connection like this:

strConn = "DSN=System 6000;" & _
"UID=" & Username & ";" & _
"PWD=" & Password
ADOConn.Open strConn

I just need a foolproof way of getting the DB path from the current ADO connection.

RBS



.

Relevant Pages

  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)
  • Re: multiplatform (pocketPC & desktopPC) (Daniel !!)
    ... Friend Versione As String ... Public Sub GetMyConnectionPalmare() ... Dim errorMessages As String ... Private Function GetDS_Desktop(ByVal SQL As String) As DataSet ...
    (microsoft.public.dotnet.framework.compactframework)
  • Re: multiplatform (pocketPC & desktopPC) (Daniel !!)
    ... Friend Versione As String ... Public Sub GetMyConnectionPalmare() ... Dim errorMessages As String ... Private Function GetDS_Desktop(ByVal SQL As String) As DataSet ...
    (microsoft.public.dotnet.framework.compactframework)
  • Help answer these 70-310 questions
    ... One argument is the string ... Dim output As New StringBuilder ... EmployeeLocations. ... You create a strongly named serviced component. ...
    (microsoft.public.cert.exam.mcad)
  • Help answer these 70-310 questions
    ... One argument is the string ... Dim output As New StringBuilder ... EmployeeLocations. ... You create a strongly named serviced component. ...
    (microsoft.public.cert.exam.mcsd)