用代码创建 DSN(SQL Server ODBC)

来源:The access Web 点击数:9604 　 | 收藏 | 复制

时　间:2004-11-10 00:00:00
作　者:A.S. Karre ID：61 城市：岳阳
摘　要:这里是我分发程序中的一些代码。通常应用程序需要通过ODBC连接SQL Server数据库，因此要为链接表创建系统的DSN。该程序将在未发现现在的ODBC时创建一个新的系统的DSN。

正　文:

这里是我分发程序中的一些代码。通常应用程序需要通过ODBC连接SQL Server数据库，因此要为链接表创建系统的DSN。该程序将在未发现现在的ODBC时创建一个新的系统的DSN。

'*********************** Code Start ***************************
'
Const JDS_DSN_name = "MDTS"               ' DSN的名字
Const JDS_Server_name = "148.154.61.15"   ' 服务器名，这里给出的服务器的IP地址，
                                          ' 也可以通过域名解析给出域名

' 定义注册表API函数

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" _
    (ByVal hKey As Long, _
    ByVal lpSubKey As String, _
    ByVal ulOptions As Long, _
    ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Const HKEY_LOCAL_MACHINE = &H80000002

Const ERROR_SUCCESS = 0&
Const SYNCHRONIZE = &H100000
Const STANDARD_RIGHTS_READ = &H20000
Const STANDARD_RIGHTS_WRITE = &H20000
Const STANDARD_RIGHTS_EXECUTE = &H20000
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const STANDARD_RIGHTS_ALL = &H1F0000
Const KEY_QUERY_value = &H1
Const KEY_SET_value = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
                   KEY_QUERY_value Or _
                   KEY_ENUMERATE_SUB_KEYS Or _
                   KEY_NOTIFY) And _
                   (Not SYNCHRONIZE))

Const REG_DWORD = 4
Const REG_BINARY = 3
Const REG_SZ = 1

Const ODBC_ADD_SYS_DSN = 4

Private Declare Function SQLConfigDataSource&nbs

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店
用代码创建 DSN(SQL Server ODBC)【Access软件网】 http://accessoft.com/article-show.asp?id=203