Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Jan 8, 2000

Get the list of ODBC DSNs

The ODBCTOOL.DLL library contains three functions that make it easier to manage DSNs. To run the following code you must add a reference to the "ODBC Driver & Data Source Name Functions" library to your References dialog box. If you don't find this library listed in the References list, use the Start-Find dialog to locate it (it should be in the \Microsoft Visual Studio\Common\Tools\APE directory).

To get the list of installed DSNs you can use the following code:


' Fill a listbox control with the list of all available DSNs
Dim odbcTool As New ODBCTool.Dsn
Dim Dsn() As String, i As Long
If odbcTool.GetDataSourceList(Dsn()) Then
    ' a True return value means success
    lstDataSources.Clear
    For i = 0 To UBound(dsn)
        lstDataSources.AddItem dsn(i)
    Next
Else
    ' a False value means error
    MsgBox "Unable to read DSN list", vbExclamation
End If
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap