Databases Reference
In-Depth Information
' Check for string
If lValueType = REG_SZ Then
If lbufValue <> 0 Then
lret3 = RegQueryValueExStr(hClassSubKey, sName,
_
0&, lValueType, bufValue, lbufValue)
End If
If Left$(bufKeyName2, lbufKeyName2) <> _
"ExtendedErrors" Then
Debug.Print Left$(bufKeyName2, lbufKeyName2) &
_
" = " & Left$(bufValue, lbufValue)
End If
End If ' string
RegCloseKey hClassSubKey
End If
End If
lxKey2 = lxKey2 + 1
Loop While lret2 = ERROR_SUCCESS
End If
RegCloseKey hClassKey
End If
Loop While lret = ERROR_SUCCESS
RegCloseKey hCLSIDKey
End Sub
Here is the output of ListDPs on my system:
***NEW PROVIDER***
CLSID = {0C7FF16C-38E3-11d0-97AB-00C04FC2AD98}
InprocServer32 = C:\Program Files\Common Files\system\ole
db\SQLOLEDB.DLL
OLE DB Provider = Microsoft OLE DB Provider for SQL Server
ProgID = SQLOLEDB.1
VersionIndependentProgID = SQLOLEDB
***NEW PROVIDER***
CLSID = {3449A1C8-C56C-11D0-AD72-00C04FC29863}
InprocServer32 = C:\Program Files\Common Files\system\msadc\MSADDS.DLL
OLE DB Provider = MSDataShape
ProgID = MSDataShape.1
VersionIndependentProgID = MSDataShape
***NEW PROVIDER***
CLSID = {c8b522cb-5cf3-11ce-ade5-00aa0044773d}
InprocServer32 = C:\Program Files\Common Files\System\OLE
DB\MSDASQL.DLL
OLE DB Provider = Microsoft OLE DB Provider for ODBC Drivers
ProgID = MSDASQL.1
