ms访问;如何将其移入无法访问状态/无DSN表没有密码

Question

我尝试使用内置的导入菜单将已打开的MS Access accdb文件中的表导入到新的accdb文件中，但是我收到了一条错误消息。错误消息表示“admin”用户已将文件设置为无法访问的状态。（这是我的匈牙利语翻译）所以我无法导入任何表或查询。

我想知道，如何使用VBA代码以编程方式将accdb或accde文件移动到此无法访问的状态。

背后的原因：我想发布一个前端accde文件，它可以保护自己免受任何窃取odbc连接信息的人的攻击，比如mysql服务器用户和密码。但是Msysobjects表可以导入到另一个访问文件中。我可以在启动时创建表和查询，并在应用程序关闭时删除它们，但是如何在运行时阻止表和查询从中导入？这种无法形容的状态会派上用场。如果有其他方法阻止表导入到其他访问文件，请告诉我。

*编辑部分：* 设计视图技巧：

DoCmd.OpenForm "frmUnused",acDesign,,,,acHidden

与accdb一起使用，在编辑时锁定表导入。正如所料，不适用于accde。

连接缓存方法：适用于查询。固定：无论我怎么努力，用户和密码都保存在表格中。我提供了一个没有用户和密码的连接字符串，但是在将tabledef附加到集合后它出现在连接字符串中。方法A保存了未提供的密码，方法B仅适用于手动登录。

备注：我知道将用户和密码存储在accde中的VBA中并不是最安全的选项，但是.. 1.在服务器端创建新用户并分配角色可能会非常缓慢。（另请参阅：burocracy）2。同时将服务器凭证交给几千名用户，使社交工程更容易。如果在文本编辑器中打开accde文件，则可以查看Const值，甚至是Private Const值。使用函数来回显值。

实际用户和密码已在下面的文本中替换。从debug.print输出复制行之前/之后的.Connect PASS / FAIL和.Connect。

我尝试过两种变化：

答：/由Albert D. Kallal提议/ *删除所有表和查询，压缩和修复，然后重新启动应用程序。 *？ tabletest：testlogon用户和pwd，然后AddOneTable（MyCon）没有。 *登录通行证 * .Connect before = ODBC; DRIVER = {MySQL ODBC 5.3 Unicode Driver}; Server = localhost; Database = mesterlista * .Connect = ODBC; DRIVER = {MySQL ODBC 5.3 Unicode Driver}; Server = localhost; Database = mesterlista; user =; password =; * >>存储用户和密码。 *修复：在.append之后，reedit。连接和重新链接。

B：/使用手动登录/ *删除所有表和查询，压缩和修复，然后重新启动应用程序。 * AddOneTable（MyCon）+ MySQL Connector / ODBC数据源配置窗口 * .Connect before = ODBC; DRIVER = {MySQL ODBC 5.3 Unicode Driver}; Server = localhost; Database = mesterlista * .Connect = ODBC; Driver = MySQL ODBC 5.3 Unicode驱动程序; SERVER = localhost; DATABASE = mesterlista; PORT = 3306 * >>注意{}在驱动程序名称中消失，PORT也出现了。 *应用程序重启 *？ TestLogon（“ODBC;驱动程序= MySQL ODBC 5.3 Unicode驱动程序; SERVER = localhost; DATABASE = mesterlista; PORT = 3306”＆“; user =; password =”） *是的 *表不起作用，弹出MySQL Connector / ODBC数据源配置窗口。 *？ TestLogon（“ODBC;驱动程序= MySQL ODBC 5.3 Unicode驱动程序; SERVER = localhost; DATABASE = mesterlista; PORT = 3306”）+ MySQL Connector / ODBC数据源配置窗口，手动登录 *是的 *表正在运行。 * >>因此，如果您希望手动登录，此方法很好，但无法使用自动登录。

用于测试的VBA代码：

Public Function tabletest()

  Dim MyConWithPassWord   As String
  Dim MyCon               As String

  MyCon = "ODBC;DRIVER={MySQL ODBC 5.3 Unicode Driver};Server=localhost;Database=mesterlista"
  MyConWithPassWord = MyCon & ";user=***;password=***"

   If TestLogon(MyConWithPassWord) = False Then
      Debug.Print "LOGON FAIL"
      Exit Function
   End If

   Debug.Print "LOGON PASS"
   AddOneTable (MyCon)

End Function

Public Function TestLogon(strCon As String) As Boolean

   On Error GoTo TestError

   Dim dbs          As DAO.Database
   Dim qdf          As DAO.QueryDef

   Set dbs = CurrentDb()
   Set qdf = dbs.CreateQueryDef("")

   qdf.Connect = strCon
   qdf.ReturnsRecords = False

   'Any VALID SQL statement that runs on server will work below.
   qdf.SQL = "SELECT 1;"
   qdf.Execute

   TestLogon = True

Exit Function

TestError:
   TestLogon = False

   Debug.Print Err.Number, Err.Description
   Debug.Print strCon

End Function


Public Function AddOneTable(strCon As String)
   On Error GoTo myerr

  Dim tdfcurrent As DAO.TableDef

  Dim LocalTable    As String      ' name of local table link
  Dim ServerTable   As String      ' name of table on SQL server

  LocalTable = "cimke"
  ServerTable = "cimke"

  Set tdfcurrent = CurrentDb.CreateTableDef(LocalTable)

  tdfcurrent.SourceTableName = ServerTable
  tdfcurrent.Connect = strCon

  Debug.Print ".Connect before = " & tdfcurrent.Connect

  CurrentDb.TableDefs.Append tdfcurrent

  CurrentDb.TableDefs.Refresh
  Debug.Print ".Connect after = " & CurrentDb.TableDefs(LocalTable).Connect

  ' fix: removing user / password from tabledef.connect:
  Set tdfcurrent = CurrentDb.TableDefs(LocalTable)
  tdfcurrent.Connect = strCon
  tdfcurrent.RefreshLink

  Debug.Print ".Connect after RELINK = " & CurrentDb.TableDefs(LocalTable).Connect



Exit Function

myerr:
   Debug.Print Err.Number, Err.Description
   Debug.Print strCon

End Function