如何实现对数据库中文件的下载，和在线阅读功能？
如何实现对数据库文件的下载，和在线阅读功能？
在数据库中image字段中保存有分级用户上传的文件。
现在需要根据不同用户的身份级别用VB客户端程序提供
文档的下载或是在线阅读功能，请问各位大侠如何实现？
给个指点。谢谢了。
问题点数：0、回复次数：2Top
1 楼gpo2002（永吹不休）回复于 2003-08-03 11:25:41 得分 0
转贴：
'将任何文件从数据库中下载到本地：
Public Function LoadFile(ByVal col As ADODB.Field, ByVal FileName As String) As Boolean '获得binary数据
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
lngsize = col.ActualSize
arrBytes = col.GetChunk(lngsize)
FreeFileNumber = FreeFile
Open FileName For Binary Access Write As #FreeFileNumber
Put #FreeFileNumber, , arrBytes
Close #FreeFileNumber
LoadFile = True
myerr:
If Err.Number <> 0 Then
LoadFile = False
Err.Clear
End If
End Function
'将文件从本地上传到数据库中
Public Function UpLoadFile(ByVal FileName, ByVal col As ADODB.Field) As Boolean
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FileName For Binary As #FreeFileNumber
n = LOF(FreeFileNumber)
ReDim arrBytes(1 To n) As Byte
Get #FreeFileNumber, , arrBytes
Close #FreeFileNumber
col.AppendChunk (arrBytes)
UpLoadFile = True
myerr:
If Err.Number <> 0 Then
UpLoadFile = False
Err.Clear
End If
End Function
Top
2 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2003-08-03 12:28:33 得分 0
是怎么个在线阅读？Top
