上一篇 | 下一篇

02-将文件从本地上传到数据库中

发布: 2008-7-15 14:51 | 作者: 网络转载 | 来源: 网络转载 | 查看: 21次

'将文件从本地上传到数据库中

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

TAG: 数据库 文件

字号: | 推荐给好友

评分:0

我来说两句