1 Private Sub cmdUpload_Click()
 2 ** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
 3 ‘2.5版本以下不支持Stream对象
 4  
 5 On Error GoTo handleErr
 6 Dim rs As ADODB.Recordset
 7 Dim mstream As ADODB.Stream
 8  
 9 ‘保存文件到数据库中
10 Set rs = New ADODB.Recordset
11 With rs
12         .ActiveConnection = Conn
13         .LockType = adLockOptimistic
14         .CursorLocation = adUseClient
15         .CursorType = adOpenKeyset
16         .Open "SELECT * from SR WHERE SRNUM=‘" & txtSRNUM.Text & "‘"
17     End With
18  
19  
20  
21 CommonDialog1.Filter = "Pictures (*.PDF;*.pdf)|*.PDF;*.pdf"
22 CommonDialog1.ShowOpen
23 If CommonDialog1.filename = "" Then Exit Sub
24  
25 If (rs.RecordCount = 1) Then
26  
27  
28 ‘读取文件到内容
29     Set mstream = New ADODB.Stream
30     With mstream
31         .Type = adTypeBinary   ‘二进制模式
32         .Open
33         .LoadFromFile CommonDialog1.filename
34     End With
35  
36 rs.Fields("FileName").Value = CommonDialog1.FileTitle
37 rs.Fields("FileUploadTime").Value = Format(Now, "YYYY-MM-DD hh:mm")
38 rs.Fields("FileNameContent") = mstream.Read
39 rs.update
40 ‘完成后关闭对象
41 mstream.Close
42  
43 End If
44 rs.Close
45  Set rs = Nothing
46 txtFileName.Text = CommonDialog1.FileTitle
47  
48 Exit Sub
49  
50 handleErr:
51   MsgBox ERR.Description
52 End Sub

 1 Private Sub cmdDownload_Click()
 2 On Error GoTo handleErr
 3 Dim rs As ADODB.Recordset
 4 Dim mstream As ADODB.Stream
 5  
 6 Set rs = New ADODB.Recordset
 7 With rs
 8         .ActiveConnection = ConGamma
 9         .LockType = adLockOptimistic
10         .CursorLocation = adUseClient
11         .CursorType = adOpenKeyset
12         .Open "SELECT * from SR WHERE SRNUM=‘" & txtSRNUM.Text & "‘"
13     End With
14 If (rs.RecordCount = 1) Then
15    If (rs("FileNameContent").ActualSize > 1) Then  ‘判断是否为空
16     ‘保存到文件
17     Set mstream = New ADODB.Stream
18     With mstream
19         .Mode = adModeReadWrite
20         .Type = adTypeBinary
21         .Open
22         .Write rs("FileNameContent")
23         .SaveToFile "C:\8D.PDF"    ‘‘这里注意了,如果当前目录下存在8D.PDF,会报一个文件写入失败的错误.
24     End With
25    
26     ‘关闭对象
27     rs.Close
28     mstream.Close
29    
30  
31 End If
32 End If
33  
34 Exit Sub
35 handleErr:
36   MsgBox ERR.Description
37 End Sub