Databases Reference
In-Depth Information
nRetCode = SQLDataSources(lHEnv, SQL_FETCH_FIRST, sServerName, _
Len(sServerName), nServerNameLength, sDescription, _
Len(sDescription), nDescriptionLength)
lstDataSources.AddItem "DATA SOURCE / DRIVER"
Do While nRetCode = SQL_SUCCESS
lstDataSources.AddItem Left$(sServerName, _
nServerNameLength) & " / " & Trim0(sDescription)
' Next data source
nRetCode = SQLDataSources(lHEnv, SQL_FETCH_NEXT, _
sServerName, Len(sServerName), nServerNameLength, _
sDescription, Len(sDescription), nDescriptionLength)
Loop
nRetCode = SQLFreeHandle(SQL_HANDLE_ENV, lHEnv)
End Sub
