VB6非Stream保存图片到数据库

一直以来，大多人喜欢用Stream保存图片到数据库。

其实，直接用insert就可以了。

Dim sTemp As String

sTemp = "insert into mypic(pic) values(?)"

dim PicB() as byte

dim FileID as long

fileid=freefile

open "c:/test.bmp" for binary access read as #fileid

redim picb(lof(fileid))

get fileid,picb

close #fileid

dim Con as new connection

dim CMD as new command

con.connectionstring ="数据库连接字符串"

con.open

cmd.activeconnection=con

cmd.commandtext= stemp

cmd.commandtype=adcmdtext

cmd.parameters(0).type=adbinary

cmd.parameters(0).value=picb

cmd.execute

con.close

set cmd=nothing

set con=nothing

代码很简单，不需要多解释。

程序在VB6+SQL Server上测试通过。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!