【源码示例】在数据库中实现文件上传下载

红尘如烟

最近有好些网友问到这个问题，于是写了这个例子。
实现思路是：将文件以二进制方式写入数据库中，要用的时候再还原保存到指定位置，这样就可以是任意文件了，图片放在数据库中，要用的时候还原保存到临时文件夹，以链接的方式连接到图片控件，这样就不会造成数据库体积暴增了

游客，如果您要查看本帖隐藏内容请回复

红尘如烟

回复 LJB 的帖子


    你在保存代码中加上错误处理就行了，然后在错误处理中根据错误号来自定义相应的提示

1. Private Sub cmdUpload_Click()
   
2. On Error Goto Err_cmdUpload_Click
   
3. 
   
4. '这里是上传处理代码
   
5. 
   
6. Exit_cmdUpload_Click:
   
7.     Exit Sub
   
8. 
   
9. Err_cmdUpload_Click:
   
10.     If Err=3146 Then
    
11.         MsgBox "此文件已存在，不允许重复上传！",vbCritical
    
12.     Else
    
13.         MsgBox "#" & Err & vbCrlf & Err.Description,vbCritical
    
14.     End If
    
15.     Resume Exit_cmdUpload_Click
    
16. End Sub

复制代码

红尘如烟

出错时撤消记录