请问如何在sql server 7.0中插入图片文件

Question

一段精简的读写"大字段"的代码,使用 ADODB.Stream
http://www.csdn.net/expert/topic/112/112568.shtm

Answer 1

我这里提供一段代码，希望起到抛砖引玉的作用：
Dim lbytImageStream() As Byte
Dim lLngFileLen As Long'获得图象文件大小
lLngFileLen = FileLen(uStrPersonPhotoFileName)
ReDim lbytImageStream(lLngFileLen - 1) As Byte
      
'读取图象文件到内存
Open uStrPersonPhotoFileName For Binary As #1
Get #1, 1, lbytImageStream
Close #1''''''添加图象字段数据'''''''''''''''''''''''''''''
Dim lRecNowRecord As Recordset
Set lRecNowRecord = CreateObject("ADODB.RECORDSET")
Dim lStrSqlString As String
    
lStrSqlString = "select FD_Photo from TB_HQ_Person where FD_WorkID='" + txtWorkID.Text + "'"
lRecNowRecord.Open lStrSqlString, gConnGeneral, 1, 3
lRecNowRecord("FD_Photo").AppendChunk lbytImageStream
lRecNowRecord.Update