Extract Server name from ODBC DSN

[jdam]

Hi

I have ODBC connection to a sql server. I need code that can get the name of the server the current ODBC is connected to.

IE. ODBC;DSN=testcompany;Uid;pwd

I need to know the name of the server the testcompany is being hosted on. Any suggestions.

 

[hermanlaksko]

Perhaps this could help you:

Function Datafil(Tabel)
On Error GoTo Fejl
Dim ResStr As String, DB As DAO.Database
Set DB = CurrentDb()

ResStr = DB.TableDefs(Tabel).Connect
If Left(ResStr, 4) = "ODBC" Then ResStr = " " & Left(ResStr, InStr(1, ResStr, "PWD=") - 2) & Right(ResStr, InStr(1, ResStr, "App=") - 1)
Datafil = Right(ResStr, Len(ResStr) - 10)
Fejl_Exit:
Exit Function
Fejl:
'MsgBox Err.Description, , "YrAppName"
Resume Fejl_Exit
End Function

Solution 2:
SELECT MSysObjects.Connect, MSysObjects.Database, MSysObjects.ForeignName, MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=4 Or (MSysObjects.Type)=6));



Herman

They say that crime doesn't pay... does that mean my job is a crime?