1188
社区成员
★★★★怎样把一个从数据库中取得的二进制word文件放到ole中去★★★★
lngLogoSize = myrs!myword.ActualSize
Do While lngOffset < lngLogoSize
varChunk = myrs!myword.GetChunk(conChunkSize)
varLogo = varLogo & varChunk
lngOffset = lngOffset + conChunkSize
Loop
上面可以取出数据库中的word，怎样把它显示在ole中呢
还有怎样把ole中的word写到数据库中叫呢
Do While lngOffset < lngLogoSize
varChunk = myrs!myword.GetChunk(conChunkSize)
varLogo = varLogo & varChunk
lngOffset = lngOffset + conChunkSize
Loop
上面可以取出数据库中的word，怎样把它显示在ole中呢
还有怎样把ole中的word写到数据库中叫呢
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
likesome 2001-07-03
谢谢你
再请问一下
Open "temp.bmp" For Binary As #1
Put #1, 1, lbytImageStream
Close #1
是把一个二进制写成temp.bmp
把过来怎么做
把temp.bmp写成二进制怎么做
再请问一下
Open "temp.bmp" For Binary As #1
Put #1, 1, lbytImageStream
Close #1
是把一个二进制写成temp.bmp
把过来怎么做
把temp.bmp写成二进制怎么做
likesome 2001-07-02
关注
ty_cs 2001-07-02
下面是一段从数据库中读取图象并在IMAGE中显示的代码，应该对你有帮助：
''''''读取数据库中图象字段数据''''''''''''''''''''''
lStrSqlString = "select FD_Photo from TB_XT_Person where FD_WorkID='" + frmPerson.mshfPerson.TextMatrix(frmPerson.mshfPerson.Row, 2) + "'"
lRecRecords.Open lStrSqlString, gConnGeneral, 1, 3
Dim lbytImageStream() As Byte
Dim lLngFileLen As Long
lLngFileLen = lRecRecords("FD_Photo").ActualSize
If lLngFileLen = 0 Then Exit Sub
lbytImageStream = lRecRecords("FD_Photo").GetChunk(lLngFileLen)
''''''并写入一临时文件'''''''''''''''''''''''''''''
Open "temp.bmp" For Binary As #1
Put #1, 1, lbytImageStream
Close #1
imgPersonPhoto.Picture = LoadPicture("temp.bmp")
''''''读取数据库中图象字段数据''''''''''''''''''''''
lStrSqlString = "select FD_Photo from TB_XT_Person where FD_WorkID='" + frmPerson.mshfPerson.TextMatrix(frmPerson.mshfPerson.Row, 2) + "'"
lRecRecords.Open lStrSqlString, gConnGeneral, 1, 3
Dim lbytImageStream() As Byte
Dim lLngFileLen As Long
lLngFileLen = lRecRecords("FD_Photo").ActualSize
If lLngFileLen = 0 Then Exit Sub
lbytImageStream = lRecRecords("FD_Photo").GetChunk(lLngFileLen)
''''''并写入一临时文件'''''''''''''''''''''''''''''
Open "temp.bmp" For Binary As #1
Put #1, 1, lbytImageStream
Close #1
imgPersonPhoto.Picture = LoadPicture("temp.bmp")
ty_cs 2001-07-02
下面是一段从数据库中读取图象并在IMAGE中显示的代码，应该对你有帮助：
''''''读取数据库中图象字段数据''''''''''''''''''''''
lStrSqlString = "select FD_Photo from TB_XT_Person where FD_WorkID='" + frmPerson.mshfPerson.TextMatrix(frmPerson.mshfPerson.Row, 2) + "'"
lRecRecords.Open lStrSqlString, gConnGeneral, 1, 3
Dim lbytImageStream() As Byte
Dim lLngFileLen As Long
lLngFileLen = lRecRecords("FD_Photo").ActualSize
If lLngFileLen = 0 Then Exit Sub
lbytImageStream = lRecRecords("FD_Photo").GetChunk(lLngFileLen)
''''''并写入一临时文件'''''''''''''''''''''''''''''
Open "temp.bmp" For Binary As #1
Put #1, 1, lbytImageStream
Close #1
imgPersonPhoto.Picture = LoadPicture("temp.bmp")
''''''读取数据库中图象字段数据''''''''''''''''''''''
lStrSqlString = "select FD_Photo from TB_XT_Person where FD_WorkID='" + frmPerson.mshfPerson.TextMatrix(frmPerson.mshfPerson.Row, 2) + "'"
lRecRecords.Open lStrSqlString, gConnGeneral, 1, 3
Dim lbytImageStream() As Byte
Dim lLngFileLen As Long
lLngFileLen = lRecRecords("FD_Photo").ActualSize
If lLngFileLen = 0 Then Exit Sub
lbytImageStream = lRecRecords("FD_Photo").GetChunk(lLngFileLen)
''''''并写入一临时文件'''''''''''''''''''''''''''''
Open "temp.bmp" For Binary As #1
Put #1, 1, lbytImageStream
Close #1
imgPersonPhoto.Picture = LoadPicture("temp.bmp")
likesome 2001-07-02
:((
likesome 2001-06-30
是不是从来没有人这样用过吗
或这样用法是错误的？
或这样用法是错误的？
