;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
02-灏嗘枃浠朵粠鏈湴涓婁紶鍒版暟鎹簱涓 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> VB >> VB鏁版嵁搴 >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

02-灏嗘枃浠朵粠鏈湴涓婁紶鍒版暟鎹簱涓

鍙戝竷: 2008-7-15 14:51 |  浣滆: 缃戠粶杞浇 |   鏉ユ簮: 缃戠粶杞浇 |  鏌ョ湅: 38娆

'灏嗘枃浠朵粠鏈湴涓婁紶鍒版暟鎹簱涓

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

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆