发表于 2009-1-5 19:48
| 
01-灏嗕换浣曟枃浠朵粠鏁版嵁搴撲腑涓嬭浇鍒版湰鍦
鍙戝竷: 2008-7-15 14:51 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 65娆
'灏嗕换浣曟枃浠朵粠鏁版嵁搴撲腑涓嬭浇鍒版湰鍦帮細
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
