将图片写入数据库,首先将文件读入一字节数组
举个例子:
Dim bit() As Byte
Open "C:\WINDOWS\安装程序.bmp" For Binary As #1
ReDim bit(LOF(1)) As Byte
Get 1, 1, bit
Close 1
'然后将字节数组的内容写入数据库即可
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(local)"
rst.Open "T1", cnn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst("F1").AppendChunk bit
rst.Update
没问题的,加分啊:)
读出来也差不多!
举个例子:
Dim bit() As Byte
Open "C:\WINDOWS\安装程序.bmp" For Binary As #1
ReDim bit(LOF(1)) As Byte
Get 1, 1, bit
Close 1
'然后将字节数组的内容写入数据库即可
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(local)"
rst.Open "T1", cnn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst("F1").AppendChunk bit
rst.Update
没问题的,加分啊:)
读出来也差不多!
解决方案 »
- 如何点击没有name,id,type的图片式提交按钮
- vb中有没有类似C语言Express?True:False的判断语法?
- printer对象如何设置边距?请高手指点
- Recordset作为过程调用参数的问题!
- 关于vb程序读取excel文件的问题
- 有没有通过翻页浏览数据的网格控件?
- 我今年大四了,计算机专业的。在海南,有公司能让我去实习吗?
- 帮助文档的制作用何种工具?(chm或其它,尺寸要小)
- 新手的问题----如何四舍五入精确到小数点后两位??(在线)
- CRYSTAL报表可以把两张纸的内容合并到一张纸上吗?
- 求助:可不可以计算文本框的字体宽度,用来改变字体大小以适应文本框大小。
- 一个关于图形的问题.
limengchen,请你回答的详细点,我要求用ADO来编程。谢谢各位的答复。