如题:我把图片保存到sqlserver2000里面了,现在我是通过把二进制写进一个临时文件,在预览,我不想用这种方式,直接看行不行
解决方案 »
- 通过函数参数传一个记录集,是用adodb.recordset还是 recordset呀?
- vb创建dll的问题
- 用win资源管理器打开U盘时就自动运行里面的一个exe文件,好像要用vbs什么的?不是做个Autorun。
- 天。。。这到底怎么啦
- [我昏哦,你这100分,也太好拿了吧?]该贴的朋友进来,送佛送到西,谢谢
- 跪求:怎样取得建立者字符串???
- [难题]关于VB控制图像的问题...
- 如果我想在vb的程序里保存一些数值,字符串,有哪些方法?最好的是什么?
- 请问Unlocker的功能用VB怎么实现?(有些文件无法删除的时候,用它解除关联,然后就可以删除)
- ActiveReports2std如何注册?
- 如何取得MP3文件的文件属性
- VB 时间加定值问题
Private Sub Command1_Click()
'新增图片
Dim Bag As PropertyBag
Dim buff() As Byte
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set Bag = New PropertyBag
Bag.WriteProperty "Image", Picture1.Image
ReDim buff(LenB(Bag.Contents))
buff = Bag.Contents
'cn 连接数据库略...
Set rs = New ADODB.Recordset
rs.Open "select img from tb_image where 1=0", _
cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("img") = buff
rs.Update
Set rs = Nothing
Set cn = Nothing
Set Bag = Nothing
MsgBox "OK"
End SubPrivate Sub Command2_Click()
'读出图片
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Bag As PropertyBag
Dim buff() As Byte
'cn 连接数据库略...
Set rs = New ADODB.Recordset
rs.Open "Select * From tb_image", _
cn, adOpenKeyset, adLockOptimistic
if Not rs.EOF then
buff = rs.Fields("Img").Value
Set Bag = New PropertyBag
Bag.Contents = buff
Call Bag.WriteProperty("Image", buff)
Set Picture1.Picture = Bag.ReadProperty("Image")
Set Bag = Nothing
end if
End Sub