Office中国论坛/Access中国论坛

标题: 没人支招？采用这个代码链接ODBC链接有弊病，如何改？ [打印本页]

作者: sbsfhgl 时间: 2008-4-14 08:49
标题: 没人支招？采用这个代码链接ODBC链接有弊病，如何改？
我采用以下代码通过ＯＤＢＣ链接后台数据库ＳＱＬ，有个弊病就是使用者必须按照代码的用户和密码建立ＳＱＬ数据库文件，不能随意．如果不要这段代码每次登录必须手工输入密码（未让记住用户名和密码），很烦．
请问如何改，急切盼望中．以下关键代码用红色标记．

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)

            Dim db As Database
            Dim tbl As TableDef
            Set db = CurrentDb
                  For Each tbl In db.TableDefs
                  If tbl.Attributes = 536870912 Then
                     tbl.Connect =
"DSN=TLC;UID=SA

WD=123456;WSID=;DATABASE=ABC;Network=WORKGROUP"
                     tbl.RefreshLink
                  End If
                  Next
         End If

      End If
Loop While lngResult = ERROR_SUCCESS And Not DSNfound

Call RegCloseKey(lngKeyHandle)
If Not DSNfound Then

      MsgBox "请先创建ODBC数据源！", vbInformation, "提示"
         DoCmd.OpenForm "系统注册"
Exit Function
Else
DoCmd.Close , , acSaveYes
   DoCmd.OpenForm "主界面"
      End If
         syscmdresult = SysCmd(acSysCmdClearStatus)
Check_SDSN = 0
End Function

[ 本帖最后由 sbsfhgl 于 2008-4-15 15:57 编辑 ]

作者: sbsfhgl 时间: 2008-4-14 13:00
。。。。。。。。。。。。。。。。

作者: sbsfhgl 时间: 2008-4-14 16:53
。。。。。。。。。。。。。。。。。。。。。

作者: sbsfhgl 时间: 2008-4-15 08:43
顶。。。。

作者: sbsfhgl 时间: 2008-4-15 10:42
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

作者: sbsfhgl 时间: 2008-4-15 15:57
。。。。。。。。。。。。。。。。。。。。。。。。。。

作者: sbsfhgl 时间: 2008-4-16 09:55
。。。。。。。。。。。。。。。。。。。

作者: sbsfhgl 时间: 2008-4-16 12:57
,..........................

作者: sbsfhgl 时间: 2008-4-17 12:40
。。。。。。。。。。。。。。。。。。。

作者: canghua 时间: 2008-4-17 13:43
帮你顶。。

作者: sbsfhgl 时间: 2008-4-17 18:09

原帖由 canghua 于 2008-4-17 13:43 发表
帮你顶。。

感谢！

作者: sbsfhgl 时间: 2008-4-18 12:55
。。。。。。。。。。。。。。。。。。

作者: liwen 时间: 2008-4-18 13:12
用户“SA”密码一般默认为空，如果不是出于安全性考虑，一般都不会更改它，这样你密码设置为空就行了，但如果出于安全性考虑对此设置了密码，你就必须按设置的密码来更改你的程序。

你这里这个用户名密码你可不用固定的用户名和密码，而是用一个表来保存（是否要加密也看你的实际需要），用户可以设置这个登录的用户名和密码。（以你这个自动设置DSN，应该是你根据需要设置这个用户名和密码，只是不需更改代码而己）

作者: sbsfhgl 时间: 2008-4-18 18:18

原帖由 liwen 于 2008-4-18 13:12 发表
用户“SA”密码一般默认为空，如果不是出于安全性考虑，一般都不会更改它，这样你密码设置为空就行了，但如果出于安全性考虑对此设置了密码，你就必须按设置的密码来更改你的程序。

你这里这个用户名密码你可不用 ...

用表来，但关键是ACCESS的表安全性太差。

作者: sbsfhgl 时间: 2008-4-19 08:14
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

作者: liwen 时间: 2008-4-21 10:57
ACCESS表本身的安全性差，但表中的字段你可以自定义加密，一般不通用的加密，很少会有人刻意去破解，并且表中字段你不让人估到表的用途，别人一般也想不到你加密的东西是作什么用的。

作者: sbsfhgl 时间: 2008-4-21 18:09
谢谢版主liwen的解答，看来目前只有采取这种办法了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)