如何在VB中读取 sql中image字段的内容

Question

如题所述

Answer 1

dim d() as byte
dim l as long
Dim conZp As ADODB.Connection
Dim rsZp As ADODB.Recordset
Set conZp = New ADODB.Connection
Set rsZp = New ADODB.Recordset
conZp.Open sqlstr
rsZp.Open "select zpdata from jczpdata where ID=" & id, conZp
l = rsZp!zpdata.ActualSize
ReDim D(l - 1)
'得到图形文件的数据
D = rsZp!zpdata.GetChunk(l)