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

lkkl66

谢谢提供学习

aslxt

好好学习天天向上

LJB

红尘如烟楼主:你好!根据你的示例,我将后台升迁到SQL,以免前台暴涨且可以让局域网内其他人使用,现在有个问题,重复上传,不提示系统设置的消息,而是SQL提示数据重复,是否有办法可想,谢谢!其他功能正常,如图:

LJB

最近有好些网友问到这个问题，于是写了这个例子。
实现思路是：将文件以二进制方式写入数据库中，要用的时 ...
红尘如烟 发表于 2010-4-19 22:27

红尘如烟版主:
我的问题能事帮忙看看!

红尘如烟

回复 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

复制代码

LJB

回复


    你在保存代码中加上错误处理就行了，然后在错误处理中根据错误号来自定义相应的提示
红尘如烟 发表于 2010-8-2 21:44

我把代码加在了这个位置,正常了,但退出任有无法保存的错误提示!劳你再看看!谢谢!
Exit_cmdUpload_Click:
    Exit Sub
   
Err_cmdUpload_Click:
  
   If Err = 3146 Then
   MsgBox "1111", vbExclamation
   Else
    Select Case Err
    Case 3002
        MsgBox "文件被锁定，无法打开。", vbCritical, "上传错误"
        Resume NextFor
    Case 3022
        Me.Undo
        MsgBox "不允许重复上传同一个文件。", vbInformation
    Case Else
        MsgBox "#" & Err & vbCrLf & Err.Description, vbCritical
    End Select
    Resume Exit_cmdUpload_Click
End If
End If
End If
End Sub

红尘如烟

出错时撤消记录

lovehere

这个一定要学习收藏

yhf

好东西，收藏了。

wang1950317

学习学习！