首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb stream设立position不起作用

2012-12-14 
vb stream设置position不起作用Set iStm New ADODB.StreamIf iStm.State adStateClosed TheniStm.Open

vb stream设置position不起作用
               Set iStm = New ADODB.Stream
                
                If iStm.State = adStateClosed Then
                    iStm.Open
                End If
                
                iStm.Type = adTypeBinary
                iStm.LoadFromFile App.Path + "\13.bmp"
                
                iStm.Position = 0
                
                ds.fields(nodeRow.nodeName) = iStm.Read

语句执行到iStm.Read这句就出现问题,读取值为空

其实图片已经装载进去,但是由于装载后position位置移到最后一个字节
因此,导致iStm.Read为空,

因此想设置Position值

但是设置后不起作用

请各位高手帮忙看看?
[解决办法]
http://download.csdn.net/detail/veron_04/1483930

热点排行