|
本帖最后由 zww3008 于 2010-6-28 23:26 编辑
比较奇怪:在本地电脑中运行MDB程序时,一切正常,没有弹出安全警告。
但是将该MBD放在局域网中服务器上,再从其他电脑运行服务器上的MDB时,双击一窗体(为文件管理器,原文件以二进制数据形式储存在数据库中)中的文件,程序执行过程是将二进制形式的文件先下载还原到本地计算机的TEMP文件夹中,然后在本地关联打开文件。此时弹出如下警告:
程序代码为:
Public Sub ListView_DblClick()
If ListView.SelectedItem Is Nothing Then Exit Sub
Dim rst As DAO.Recordset
Set rst = CurrentDb().OpenRecordset("Select * from tblexpPhotos where PhotoID=" & Mid(ListView.SelectedItem.key, 3))
Dim PicName As String, FileNo As Long, FileData() As Byte, lngFilelen As Double
PicName = strTempDir & "\" & rst!PhotoID & "." & rst!Ext
If Dir(PicName) = "" Then
FileNo = FreeFile
ReDim FileData(LenB(rst!Photo))
FileData() = rst!Photo
Open PicName For Binary As #FileNo
Put #FileNo, , FileData() '把字段内容保存到文件
Close #FileNo
Erase FileData
End If
Application.FollowHyperlink PicName
End Sub
为什么在本地运行时不会弹出警告,而在服务器上运行时则会,如何解决? |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|