谁能帮我看看怎样通过按钮实现附件上传和超链接地址

bshchangss

见附件，通过相关按钮实现功能，谢谢！

JosephTan

真不明白为什么总是喜欢把菜单隐藏起来。真是无聊至极的做法。

roych

附件上传和下载请参考红尘的例子：
【源码示例】在数据库中实现文件上传下载
不过个人不建议把附件上传到数据库当中。因为2003版本没有附件字段，只能通过长二进制转换而存取，容易导致数据库统计庞大。
最好的做法是把上传附件时通过对附件地址的读取把文件复制到指定的后台文件夹中，即不影响Access的文件大小，也方便存取（上传下载都只需要FileCopy即可），详细可参考我之前的帖子：
【源码示例】上传与显示——再谈图片在报表与窗体中的应用
下面是上传链接的代码：

1. Private Sub Command33_Click()
   
2. '运行之前，请在VBE界面上依次点击：
   
3. '工具\引用\Office Object库（2003版的应该是11.0版本）
   
4. Dim Fd As FileDialog
   
5. Dim rst As DAO.Recordset
   
6. Dim str As String
   
7. Set Fd = Application.FileDialog(msoFileDialogFilePicker)
   
8. With Fd
   
9.     .AllowMultiSelect = False
   
10.     .ButtonName = "上传"
    
11.     If .Show = True Then
    
12.         str = .SelectedItems(1)
    
13.     Else
    
14.         str = ""
    
15.     End If
    
16. End With
    
17. If Len(str) > 0 Then
    
18. Set rst = Me.Form.Recordset
    
19.     rst.Edit
    
20.     rst("超链接") = "#" & str & "#"
    
21.     rst.Update
    
22.     Me.超链接.Requery
    
23. End If
    
24. End Sub

复制代码

需要注意的是，这里的超链接是上传了，但如果该超链接所在的文件夹或者文件非共享或者无权访问的话，那么除本机用户外，其它人还是打不开的。

bshchangss

为什么我的“FileDialog打开文件对话框”命令不行？

wgh3g

谢谢版主分享，收藏

roych

bshchangss 发表于 2012-3-11 20:52
为什么我的“FileDialog打开文件对话框”命令不行？

'工具\引用\Office Object库（2003版的应该是11.0版本）

你引用了Office库了吗？