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

目前无法显示此图像

2013-10-29 
当前无法显示此图像Option Explicit Private Sub CommandButton1_Click()Const HeaderSize As Long 78Co

当前无法显示此图像
Option Explicit
 Private Sub CommandButton1_Click()
     Const HeaderSize As Long = 78
     Const ChunkSize As Long = 100
     Dim TempFile As String
     Dim FileNumber As Integer
     Dim sConnString As String
     Dim conn As New ADODB.Connection
     Dim rst As New ADODB.Recordset
     Dim fld As ADODB.Field
     Dim byteChunk() As Byte
     Dim Totalsize As Long
     Dim FieldSize As Long
     Dim lCount As Integer
 
    On Error GoTo ErrHandler:
     sConnString = "Provider=SQLOLEDB.1;Server=80ISCALA;Database=ScalaDB;Trusted_Connection=yes;"
     conn.Open sConnString
     Set rst = New ADODB.Recordset
     rst.Open "select  * from ZZ003 where ZZ003.SC01001 ='E5001A'", conn, adOpenKeyset, adLockPessimistic
     ' 移至第一条记录
     rst.MoveFirst
     Set fld = rst.Fields("ItemPicture")
     Do While Not rst.EOF
         FieldSize = fld.ActualSize
         lCount = lCount + 1
         TempFile = "TempFile" & lCount & ".Temp"
         
         FileNumber = FreeFile
         Open TempFile For Binary Access Write As FileNumber
         Totalsize = FieldSize - HeaderSize          ' Substract it from the total size.
         byteChunk() = fld.GetChunk(HeaderSize)      ' Get rid of the header.
         byteChunk() = fld.GetChunk(Totalsize)
         Put FileNumber, , byteChunk()
         Close FileNumber
 
        Cells(lCount, 1).Activate
         ActiveSheet.Pictures.Insert TempFile
         Kill (TempFile)
         
         rst.MoveNext
     Loop
     Exit Sub
 ErrHandler:
     MsgBox Err.Description, , "Error "
 
End Sub server
[解决办法]
你存入数据库后,读取出来的数据是否跟原始数据一致呢?

你可以先用一个小图片,来比较下文件数据呀。

热点排行