是啊,比如定义binData() as byte的话,用
rstTmp("x").AppendChunk binData
rstTmp.Update
rstTmp("x").AppendChunk binData
rstTmp.Update
解决方案 »
- 散分啦,大家来做选择题!很简单的~
- 请教仓库管理程序的数据库设计问题
- 请高手们传授秘诀:星级都是怎么升上去的????: )
- 我的vb程序怎么编辑不了啊?
- 關於crystal report中cross table的問題(急!今天下午3:00前就要解決)
- 高分求救!!!关于软件注册的问题。在线等待!!!
- 在vb调用vc是出现约定错误是怎么回事啊?
- 各位高手,请问怎样用编写一个程序,作用就是通过一个拨号上网的电脑来访问局域网的其一电脑?谢谢!
- 系统出错!!???死机!!!!为什么啊?????
- 两个关于数据库的问题,请大家帮忙(50分)
- 谁知道怎样循环播放国LIST中的歌
- 在2000下如何获得拔号网络中所有连接的列表 , 解决者送分100
binData 是一个从网页上传送的二进制字符串,我在COM里用
Open FileName For Binary As #oo
Put #oo, , binData
Close #oo
这样保存,总是说错误或类型不对
Name As String
FileName As String
ContentType As String
DataSize As String
Data As Variant
End Type
Private FormData() As BinFormPublic Function SaveFile(str, FileName)
Dim FormDataLen
FormDataLen = UBound(FormData)
For i = 1 To FormDataLen
If FormData(i).Name = str Then
Open FileName For Binary As #1
Put #1, , FormData(count).Data
Close #1
End If
Next
End Function
byte=change(data)
write byte
end loopclose