正文

一段精简的使用ADODB.Stream读写"大字段"的VB代码!2005-11-26 19:12:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/iamben250/7430.html

分享到:

一段精简的使用ADODB.Stream读写"大字段"的VB代码!


            '一段精简的读写"大字段"的代码,使用 ADODB.Stream
            'Objects: Form1、Picture1
            '引用 Microsoft ActiveX Data Objects 2.5 Libary
            '或 Microsoft ActiveX Data Objects 2.6 Libary
            Dim TempFileName As String
            TempFileName = App.Path & "\TempFile.tmp"
            Dim adoConnection As New ADODB.Connection
            Dim adoRecordset As New ADODB.Recordset
            adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist
            Security Info=False;Data Source=" & App.Path & "\mmxdb97.mdb"
            adoRecordset.Open "SELECT * FROM bmp", adoConnection, adOpenKeyset,
            adLockOptimistic ', adCmdTable
            Debug.Print adoRecordset.Fields(1).Type '大字段
            adoRecordset.AddNew
            Dim adoStream As New ADODB.Stream
            adoStream.Type = adTypeBinary
            adoStream.Open
            adoStream.LoadFromFile CommonDialog1.FileName
            '将二进制文件写入大字段:
            adoRecordset.Fields.Item(1).AppendChunk adoStream.Read
            '================================
            '从大字段读取二进制数据:
            adoStream.Write
            adoRecordset.Fields.Item(1).GetChunk(adoRecordset.Fields.Item(1).ActualSize)
            adoStream.SaveToFile TempFileName, IIf(Len(Trim(Dir(TempFileName,
            vbNormal + vbHidden))) > 0, adSaveCreateOverWrite,
            adSaveCreateNotExist)
            Picture1.AutoSize = True
            Picture1.Picture = LoadPicture(TempFileName)

阅读(2490) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册