Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile sFileName
rstGraph.Open "select id, keyno,item,bithis,graphstream,instrument,thedate,sampleno from lis_graph_online where keyno = '" & strKey & "' and item = '" & sDir & "' order by id desc", conn, adOpenKeyset, adLockOptimistic
If rstGraph.RecordCount > 0 Then
rstGraph.Fields("graphstream") = mstream.Read
rstGraph.Update
Else
rstGraph.AddNew
rstGraph.Fields("keyno") = strKey
rstGraph.Fields("item") = sDir
rstGraph.Fields("bithis") = 0
rstGraph.Fields("instrument") = strInstrument
rstGraph.Fields("thedate") = Date
rstGraph.Fields("sampleno") = as_SampleNo
rstGraph.Fields("graphstream") = mstream.Read
rstGraph.Update
End If
rstGraph.Close
VB读取本地图片并保存到数据库中
最新推荐文章于 2022-03-31 22:50:58 发布