未解决，请各位对表隐藏后的矛盾问题支支招

sbsfhgl

CurrentDataBase.TableDefs.Append tbl

如果我将启动中“显示数据库窗口”勾去掉，则代码提示找不到对象表。
如果我把勾打上，就一切正常了，但进入系统后就看得到表，真矛盾，请问怎么改？

t小宝

你的代码无法测试,下面的代码没有你说的问题.

Private Sub Form_Load()

    Dim tbl As DAO.TableDef, fld As DAO.Field
   
    Set tbl = CurrentDb.CreateTableDef("AAA")
    Set fld = tbl.CreateField("ContactName", dbText, 30)
    tbl.Fields.Append fld
    tbl.Attributes = dbAttachSavePWD
    CurrentDb.TableDefs.Append tbl
    CurrentDb.TableDefs.Delete "AAA"
   
End Sub

补充一下:
使用DAO对象和数据库窗口是否打开好象没有什么联系

[ 本帖最后由 t小宝 于 2007-12-27 18:15 编辑 ]

fswxs

这样隐藏也不安全。在关系里能看到，然后就有办法找到。
分开前后端，在后端设置陷阱删除表不知道是否可行

Victor_Duane

要安全一点,还是放弃ACCESS的打算

Victor_Duane

其实也没有绝对的安全,只是相对ACCESS的安全是比较弱的

sbsfhgl

原代码如下：我是加在启动窗体
http://www.office-cn.net/forum.php?mod=viewthread&tid=40149&highlight=SQL
1. 用正常ODBC連接SQL資料表, 且再用以下代碼重新連接

Function ODBCrelink()

Dim db As Database
Dim tbl As TableDef
Dim a As String
Dim B As String
Dim D As String

a = "sa" '用户
B = "102030" '口令

Set db = CurrentDb
For Each tbl In db.TableDefs
If Left(tbl.Connect, 4) = "ODBC" Then
tbl.C
tbl.Attributes = dbAttachSavePWD
tbl.RefreshLink
End If
Next

End Function

2. 當然發布的MDE都有一個啟動窗體﹐并且數據庫窗體要設置為不顯示了

3. 啟動窗體下代碼如下﹕其中left(date,4)是隨便寫的一個函數目的是使得密碼部分是通過一定算法得到的﹐一定不能直接寫密碼。

private sub form_load()

Dim tbl As DAO.TableDef

If CurrentDB.Properties("StartupShowDBWindow") = False Then
Set tbl = CurrentDb.CreateTableDef("")
tbl.C & left(date,4) & ";DATABASE=ABCDatabase"
tbl.Attributes = dbAttachSavePWD
tbl.Name = "AAA"
tbl.SourceTableName = "AAA"
CurrentDataBase.TableDefs.Append tbl
CurrentDataBase.TableDefs.Delete "AAA"
end if

end sub

liwen

tbl.C 后面掉了一段吧？

rjacky

access在安全方面的不是一般的脆弱，目前我只能通过windows文件安全权限来达到唯一的保证

DSYOU

学习！