图片处理(输入到数据库里)

Question

怎么样才能把图片输入到数据库里或读出图片
还有,怎样把字符串转换为货币行的

Answer 1

--把图片数据从数据库里里读出来,写进去也差不多。
--哈哈，不过最好不要这么做，不然你的数据库会很快就很巨大的。
 Const TempFile As String = "tempfile.tmp"
 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.
                    NumOfChuncks = Totalsize \ ChunkSize
                    Remainder = Totalsize Mod ChunkSize
                    If Remainder > 0 Then
                        byteChunk() = fld.GetChunk(Remainder)
                        Put FileNumber, , byteChunk()
                    End If
                    Offset = Remainder
                    Do While Offset < Totalsize
                        byteChunk() = fld.GetChunk(ChunkSize)
                        Put FileNumber, , byteChunk()
                        Offset = Offset + ChunkSize
                    Loop
                    Close FileNumber
                    Image1.Picture = LoadPicture(TempFile)
                    Kill (TempFile)
--还有怎样才能把字符串类型的数据转换为货币类型的select cast('4569789' as money )