dim databuff() as byte
FileNum = FreeFile
Open filename For Binary As FileNum
FileLen = LOF(FileNum)
ReDim Databuff(FileLen)
Get FileNum, , Databuff()
re.AddNew
re("pic").AppendChunk Databuff()
re.Update
Close FileNum
此方法的文件要小一些,否则要分块appendchunk
FileNum = FreeFile
Open filename For Binary As FileNum
FileLen = LOF(FileNum)
ReDim Databuff(FileLen)
Get FileNum, , Databuff()
re.AddNew
re("pic").AppendChunk Databuff()
re.Update
Close FileNum
此方法的文件要小一些,否则要分块appendchunk
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货