Option Explicit<br>
<br>
Private Const REG_SZ = 1 'Constant for a string variable type.<br>
Private Const HKEY_LOCAL_MACHINE = &H80000002<br>
<br>
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _<br>
"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _<br>
phkResult As Long) As Long<br>
<br>
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _<br>
"RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _<br>
ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal _<br>
cbData As Long) As Long<br>
<br>
Private Declare Function RegCloseKey Lib "advapi32.dll" _<br>
(ByVal hKey As Long) As Long <br>
<br>
<br>
Private Sub Command1_Click()<br>
<br>
Dim DataSourceName As String<br>
Dim DatabaseName As String<br>
Dim Description As String<br>
Dim DriverPath As String<br>
Dim DriverName As String<br>
Dim LastUser As String<br>
Dim Regional As String<br>
Dim Server As String<br>
<br>
Dim lResult As Long<br>
Dim hKeyHandle As Long<br>
<br>
'Specify the DSN parameters.<br>
<br>
DataSourceName = "<the name of your new DSN>"<br>
DatabaseName = "<name of the database to be accessed by the new DSN>"<br>
Description = "<a description of the new DSN>"<br>
DriverPath = "<path to your SQL Server driver>"<br>
LastUser = "<default user ID of the new DSN>"<br>
Server = "<name of the server to be accessed by the new DSN>"<br>
DriverName = "SQL Server"<br>
<br>
'Create the new DSN key.<br>
<br>
lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\" & _<br>
DataSourceName, hKeyHandle)<br>
<br>
'Set the values of the new DSN key.<br>
<br>
lResult = RegSetValueEx(hKeyHandle, "Database", 0&, REG_SZ, _<br>
ByVal DatabaseName, Len(DatabaseName))<br>
lResult = RegSetValueEx(hKeyHandle, "Description", 0&, REG_SZ, _<br>
ByVal Description, Len(Description))<br>
lResult = RegSetValueEx(hKeyHandle, "Driver", 0&, REG_SZ, _<br>
ByVal DriverPath, Len(DriverPath))<br>
lResult = RegSetValueEx(hKeyHandle, "LastUser", 0&, REG_SZ, _<br>
ByVal LastUser, Len(LastUser))<br>
lResult = RegSetValueEx(hKeyHandle, "Server", 0&, REG_SZ, _<br>
ByVal Server, Len(Server))<br>
<br>
'Close the new DSN key.<br>
<br>
lResult = RegCloseKey(hKeyHandle)<br>
<br>
'Open ODBC Data Sources key to list the new DSN in the ODBC Manager.<br>
'Specify the new value.<br>
'Close the key.<br>
<br>
lResult = RegCreateKey(HKEY_LOCAL_MACHINE, _<br>
"SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", hKeyHandle)<br>
lResult = RegSetValueEx(hKeyHandle, DataSourceName, 0&, REG_SZ, _<br>
ByVal DriverName, Len(DriverName))<br>
lResult = RegCloseKey(hKeyHandle)<br>
<br>
End Sub <br>
<br>
<br>
<p>Eric De Decker<br><a href=mailto:vbg.be@vbgroup.nl>vbg.be@vbgroup.nl</a><br><a href=
Basic Center</a><br>