Open "ODBC Data Sources (32bit)" control panel item

[Steve2276]

Okay, I'm a bit new to API stuff, but I've read that you can use an API to open the ODBC dialog.

So I've added :

Private Declare Function SQLManageDataSources Lib "ODBC32.DLL" (ByVal hwnd) As Boolean

at the top of my code, and then included

Private Sub Command1_Click()
    SQLManageDataSources (hwnd)
End Sub

within the code.

It don't work, and not being much of an API pro, I don't know what to do!
What's wrong? I bet I've done something stupid!

[trisuglow]

Hi Steve,

Try this - it worked on my NT box.

Option Explicit
 
Private Declare Function SQLManageDataSources Lib "ODBCCP32.DLL" (ByVal hwnd As Long) As Boolean
 
Private Sub Command1_Click()
 
Dim bln As Boolean
 
    bln = SQLManageDataSources(CLng(Me.hwnd))
 
End Sub

[Hack]

It worked on my Win98 box too. Thanks trisuglow

[Hack]

This also works on my Win98 box, and I suspect that if you change the windows directory, it would work on an NT box.

Private Sub Command2_Click()
'ODBC Settings
Shell "C:\Windows\control.exe" & " ODBCCP32.cpl", 1
End Sub

[Steve2276]

'dandy!

[Serge]

Shell "odbcad32", vbNormalFocus