Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 产品
  • 活动
  • 培训
  • 招聘
  • 论坛
  • 商城
  • 关于

资讯

公司动态
业界资讯

Access资讯

Excel资讯

Word资讯

PPT资讯

其它Office资讯

微软新闻

IT资讯

热门文章

  • 新浪CTO李嵩波:做第一门..
  • 微软操作系统定价之谜 正版..
  • 计算机世界:AMD迅速崛起..
  • Linux主流厂商合纵连横..
  • SQL Server数据库..
  • 央视高清频道明年元旦开通 ..

最新文章

  • 李开复:中国高校急需根据社..
  • VBA编程常用语句300句
  • SQL基础:常用SQL语句..
  • ACCESS学习日记
  • 多表查询技巧
  • Oracle数据库EXP、..

联系方式

Access交流网

电  话:0760-88315075
热  线:0760-88315075

邮  编:528463
咨询QQ:1918333016
营销QQ:4008553990

Email:1918333016@qq.com

网  址:www.access-cn.com

当前位置:首页 > 资讯 > 业界资讯 > IT资讯
IT资讯

用代码创建 DSN(SQL Server ODBC)[转帖]

正    文:

    这里是我分发程序中的一些代码。通常应用程序需要通过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 RegEnumKeyEx Lib "advapi32.dll" _
Alias "RegEnumKeyExA" _
  (ByVal hKey As Long, _
   ByVal dwIndex As Long, _
   ByVal lpName As String, _
   lpcbName As Long, _
   ByVal lpReserved As Long, _
   ByVal lpClass As String, _
   lpcbClass As Long, _
   ByVal lpftLastWriteTime As String) As Long

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 Lib "odbccp32.dll" _
    (ByVal hwndParent As Long, _
    ByVal fRequest As Integer, _
    ByVal lpszDriver As String, _
    ByVal lpszAttributes As String) As Long


Function Check_SDSN()

    ' 查看我们要的系统数据源(DSN)是否存在。
    ' 如果存在,正好;否则,我们就创建一个。
         
    Dim lngKeyHandle As Long
    Dim lngResult As Long
    Dim lngCurIdx As Long
    Dim strvalue As String
    Dim classvalue As String
    Dim timevalue As String
    Dim lngvalueLen As Long
    Dim classlngvalueLen As Long
    Dim lngData As Long
    Dim lngDataLen As Long
    Dim strResult As String
    Dim DSNfound As Long
    Dim syscmdresult As Long

    syscmdresult = SysCmd(acSysCmdSetStatus, "查找系统DSN: " & JDS_DSN_name & " …")
         
    ' 打开包含系统数据源(DSN)的注册表主键。
         
    lngResult = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
                             "SOFTWARE\ODBC\ODBC.INI", _
                             0&, _
                             KEY_READ, _
                             lngKeyHandle)

    If lngResult <> ERROR_SUCCESS Then
        MsgBox "错误: 不能打开注册键 HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI." & _
               vbCrLf & vbCrLf & _
               "请安装SQL Server的ODBC驱动程序用以调用MDTS系统数据源。" & _
               vbCrLf & _
               "要获得更多的信息,请与管理员联系。"
        syscmdresult = SysCmd(acSysCmdClearStatus)
        Check_SDSN = -1
    End If
         
    ' 现在这个注册键是打开的,我们在这个查找看是否我们需要的。

    lngCurIdx = 0
    DSNfound = False
         
    Do
        lngvalueLen = 512
        classlngvalueLen = 512
        strvalue = String(lngvalueLen, 0)
        classvalue = String(classlngvalueLen, 0)
        timevalue = String(lngvalueLen, 0)
        lngDataLen = 512

        lngResult = RegEnumKeyEx(lngKeyHandle, _
                                 lngCurIdx, _
                                 strvalue, _
                                 lngvalueLen, _
                                 0&, _
                                 classvalue, _
                                 classlngvalueLen, _
                                 timevalue)
        lngCurIdx = lngCurIdx + 1

        If lngResult = ERROR_SUCCESS Then
         
            ' 是我们要的系统数据源吗?
         
            If strvalue = JDS_DSN_name Then
           
                ' 是! 那就不需要我们再做什么了。
            
                DSNfound = True
                syscmdresult = SysCmd(acSysCmdClearStatus)
         
            End If
           
        End If

    Loop While lngResult = ERROR_SUCCESS And Not DSNfound
         
    Call RegCloseKey(lngKeyHandle)

    If Not DSNfound Then
         
        ' 我们所需的系统数据源不存在,因此,我们试着创建一个。
         
        Syscmdresult = SysCmd(acSysCmdSetStatus, "创建系统数据源DSN: " & JDS_DSN_name & "…")
         
        lngResult = SQLConfigDataSource(0, _
                                        ODBC_ADD_SYS_DSN, _
                                        "SQL Server", _
                                        "DSN=" & JDS_DSN_name & Chr(0) & _
                                        "Server=" & JDS_Server_name & Chr(0) & _
                                        "Database=SvCvMarketing" & Chr(0) & _
                                        "UseProcForPrepare=Yes" & Chr(0) & _
                                        "Description=MDTS Database" & Chr(0) & Chr(0))
                       
        If lngResult = False Then
           
            MsgBox "错误: 不能创建系统数据源DSN: " & JDS_DSN_name & "." & _
                    vbCrLf & vbCrLf & _
                    "请确认已安装了SQL Server的ODBC驱动程序。" & _
                    vbCrLf & _
                    "需要更的有关MDTS的信息,请与系统管理员联系。"
                    
            syscmdresult = SysCmd(acSysCmdClearStatus)
            Check_SDSN = -1

        End If
           
    End If
         
    syscmdresult = SysCmd(acSysCmdClearStatus)
    Check_SDSN = 0

End Function

发布人:A.S. Karre-网络  
分享到:
点击次数:  更新时间:2006-11-13 21:47:17  【打印此页】  【关闭】
上一篇:中国酝酿手机行业标准化 手机像电脑DIY  下一篇:PS3终揭面纱 Xbox/Wii明年真正较量



相关文章

  • • 李开复:中国高校急需根据社会需求培养学生
  • • VBA编程常用语句300句
  • • SQL基础:常用SQL语句详解 (转)
  • • ACCESS学习日记
  • • 多表查询技巧
  • • Oracle数据库EXP、IMP命令语句使用方法
  • • SQL注入的高级应用ACCESS篇!
  • • 代码打开页面设置

热门文章

  • [2005-03-17] IBM德国PC部门5月1日将第一批划归于联想旗下access数据库
  • [2005-09-11] 顾雏军狱中签字:海信9亿元正式入主科龙access数据库
  • [2006-04-14] 中小厂商和DIY面临生死劫access数据库
  • [2008-11-22] 多表查询技巧access数据库
  • [2006-08-07] 英特尔下半年杀手锏 杨旭修复国内厂商关系access数据库
  • [2006-09-17] 体验高清影像 明基液显FP241Waccess数据库

热门产品

  1. 电子厂管理软件系统

    电子厂管理软件系统

  2. 较强的日程管理功能源码(新版)

    较强的日程管理功能源码(新版)

  3. 通用票据打印软件

    通用票据打印软件

公司动态|在线留言|在线反馈|联系我们|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2018 粤ICP备10043721号

广东省中山市西苑广场富贵阁20楼A座

电话:0760-88315075 手机:13928102596 QQ:1918333016

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2021  www.metinfo.cn