VB读取本地图片并保存到数据库中

数据库操作与更新

最新推荐文章于 2024-05-05 00:45:00 发布

原创最新推荐文章于 2024-05-05 00:45:00 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

数据库SQL SERVER 同时被 2 个专栏收录

21 篇文章

订阅专栏

VB6相关

3 篇文章

订阅专栏

本文详细介绍了如何使用ADO.NET实现数据库的读取、更新操作，并通过示例代码展示了关键步骤。

        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