<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
'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 ado Stream As New ADODB. Stream
ado Stream.Type = adTypeBinary
ado Stream.Open
ado Stream.LoadFromFile CommonDialog1.FileName
'将二进制文件写入 大字段:
adoRecordset.Fields.Item(1).AppendChunk ado Stream.Read
'================================
'从 大字段读取二进制数据:
ado Stream.Write adoRecordset.Fields.Item(1).GetChunk(adoRecordset.Fields.Item(1).ActualSize)
ado Stream.SaveToFile TempFileName, IIf(Len(Trim(Dir(TempFileName, VBNormal + VBHidden))) > 0, adSaveCreateOverWrite, adSaveCreateNotExist)
Picture1.AutoSize = True
Picture1.Picture = LoadPicture(TempFileName) <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
'
一段精简的
读写"
大字段"的
代码,使用
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 ado Stream As New ADODB. Stream
ado Stream.Type = adTypeBinary
ado Stream.Open
ado Stream.LoadFromFile CommonDialog1.FileName
'将二进制文件写入 大字段:
adoRecordset.Fields.Item(1).AppendChunk ado Stream.Read
'================================
'从 大字段读取二进制数据:
ado Stream.Write adoRecordset.Fields.Item(1).GetChunk(adoRecordset.Fields.Item(1).ActualSize)
ado Stream.SaveToFile TempFileName, IIf(Len(Trim(Dir(TempFileName, VBNormal + VBHidden))) > 0, adSaveCreateOverWrite, adSaveCreateNotExist)
Picture1.AutoSize = True
Picture1.Picture = LoadPicture(TempFileName) <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript">
</script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>