capture system dsn in vb

[crystalhelp]

I am working in Visual Basic and want to list all the ODBC System DSNs. I have been able to capture all the ODBC Drivers by creating a function like this:

Private Declare Function SQLDrivers Lib "ODBC32.DLL" ( _
ByVal EnvironmentHandle As Long, _
ByVal Direction As Integer, _
ByVal DriverDescription As String, _
ByVal BufferLength1 As Integer, _
ByRef DescriptionLengthPtr As Integer, _
ByVal DriverAttributes As String, _
ByVal BufferLength2 As Integer, _
ByRef AttributesLengthPtr As Integer _
) As Integer

I think the function name SQLDrivers is actually an entry point in the odbc32 dll. I would imagine that I just need to know the entry name and parameters to capture all the system dsn's. But I can't find it anywhere. Can anyone help?

 

[MattConway]

Funny, I'm going the other way, and my declaration for the SQLDrivers function doesn't work, so thanx for yours

Check out the SQLDataSources function (vb6 has a great working sample of this tucked in under samples\DTS\DTSPackages\dtsexmp3\):

Private Declare Function SQLDataSources Lib "ODBC32.DLL" ( _
	ByVal henv&, _
	ByVal fDirection%, _
	ByVal szDSN$, _
	ByVal cbDSNMax%, _
	pcbDSN%, _
	ByVal szDescription$, _
	ByVal cbDescriptionMax%, _
	pcbDescription%_
) As Integer

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odbc/htm/odbcsqldatasources.asp

...i think it may be what you are looking for.