'用流打开一个文件
'然后保存流到数据库中,这是保存图片或比较大的数据时,常用的方法
Dim strm As ADODB.Stream
Dim rst As ADODB.Recordset
Set strm = New ADODB.Stream
Set rst = New ADODB.Recordset
Dim content() As Byte
ConnectDB
strm.Type = adTypeBinary
strm.Open
rst.Open "select * from Table1 where field1=1", Cnn, adOpenStatic, adLockReadOnly
if not rst.eof then
strm.Write rst("fieldname").GetChunk(2000)
rst.Close
strm.SaveToFile "f:\text.txt", adSaveCreateOverWrite
Set strm = Nothing
Set rst = Nothing
'然后保存流到数据库中,这是保存图片或比较大的数据时,常用的方法
Dim strm As ADODB.Stream
Dim rst As ADODB.Recordset
Set strm = New ADODB.Stream
Set rst = New ADODB.Recordset
Dim content() As Byte
ConnectDB
strm.Type = adTypeBinary
strm.Open
rst.Open "select * from Table1 where field1=1", Cnn, adOpenStatic, adLockReadOnly
if not rst.eof then
strm.Write rst("fieldname").GetChunk(2000)
rst.Close
strm.SaveToFile "f:\text.txt", adSaveCreateOverWrite
Set strm = Nothing
Set rst = Nothing
rst.Close
strm.SaveToFile "f:\text.txt", adSaveCreateOverWrite