VFP 愛用者社區

[billjiang]

哪位高手有VFP在SQL数据库中存取图片的代码,多谢了!急急急!!

[billjiang]

不知道我的问题太低级不值得看还是问题太难,一直没有人回复,失望极了! 不过还好啦,经过两天的奋战,我终于把这个问题搞定了.愉快愉快! 现在和大家分享.这是参考VB相关代码才做出来的.经过测试没有问题,如果大家觉得好就投我一票吧!先谢谢了!



******************存入图片***********************
LOCAL lcConnStr, lcSQL, loConnection
lcconnstr="Driver={SQL Server};Server=PERSONAL-1CB;UID=billjiang;PWD=billjiang;DataBase=kashiondata"
lcSQL = "SELECT * FROM pictest"
*!* 创建对象.
loConnection = CREATEOBJECT("ADODB.Connection")
loRecordSet = CREATEOBJECT("ADODB.Recordset")
loADOStream = CREATEOBJECT("ADODB.Stream")
*!* 打开连接.
loConnection.OPEN(lcConnStr)
loRecordSet.OPEN(lcSQL,loConnection,2,3)

lorecordset.addnew
lorecordset.fields("pic_id").value=2

*!* 设置 Stream 对象属性.
loADOStream.TYPE = 1 && 1=二进制数据, 2=文本数据.
loADOStream.OPEN
tp=ALLTRIM(thisform.text2.Value)
IF !EMPTY(tp)
loADOStream.LoadFromFile(tp)
lorecordset.Fields("picture") = loADOStream.Read
lorecordset.update
ELSE
RETURN
ENDIF
loRecordSet.CLOSE
loConnection.CLOSE
loADOStream.CLOSE
*******************************读取图片***********************************
LOCAL lcConnStr, lcSQL, loConnection,lcImageName
lcconnstr="Driver={SQL Server};Server=PERSONAL-1CB;UID=billjiang;PWD=billjiang;DataBase=kashiondata"
lcSQL = "SELECT * FROM pictest"
*!* 创建对象.
loConnection = CREATEOBJECT("ADODB.Connection")
loRecordSet = CREATEOBJECT("ADODB.Recordset")
loADOStream = CREATEOBJECT("ADODB.Stream")
*!* 打开连接.
loConnection.OPEN(lcConnStr)
loRecordSet.OPEN(lcSQL,loConnection,2,3)
lorecordset.movefirst
lorecordset.movenext

loADOStream.TYPE = 1 && 1=二进制数据, 2=文本数据.
loADOStream.OPEN
loADOStream.WRITE(loRecordSet.FIELDS("picture")) && 传递数据到 Stream 对象.
lcImageName = "mypic.bmp" && 设置本地文件名.
loADOStream.SaveToFile(lcImageName,2) && 保存 stream 对象到一个文件.
thisform.image1.Picture="e:\kxerp\mypic.bmp"
thisform.refresh
loRecordSet.CLOSE
loConnection.CLOSE
loADOStream.CLOSE