用数据库存取文件的解决方法.doc

用数据库存取文件的解决方法 用数据库保存文件有很广泛的用途，例如在数据库保存图片，或者保存有格式的资料，如Word文件、报表等。虽然在大多数开发工具中都提供了这种功能，但大多语焉不详。我们在开发过程也遇到这样的需求，经过仔细分析和试验，总结了在VB和Delphi中往数据库中存取文件的方法，提供给各位网友共享。 ??? 在数据库方面，保存文件的字段类型是一个特殊类型，在Access中称为OLE对象，在Sql Server中称为image,在Oracle中则是长二进制。用VB开发可以用DAO和ADO两种连接数据库的方法（RDO没用过),这两种方法中的Field类型都有Getchunk和Appendchunk两个方法，Getchunk完成从数据库中读取二进制数据，Appendchunk则往数据库中加二进制数据（具体可以看帮助）。利用这两个函数就可以完成与数据库交流文件的功能。 以下是用DAO读写数据的两个函数。基本思路是，先把文件以32768个字节分为一块块，逐块读入，并保存到数据库，从数据库读出时也用同样的方法 Dim Chunk() As Byte??????????????????? 不定长二进制数组，用以保存临时数据Const CHUNK_SIZE = 32768????????????? 常量，每次读取数据的长度Function FieldToFile(filename As String, fdObject As Field) As Boolean? 从字段中读取数据，并保存到文件中filename是文件名,fdobject指二进制字段Dim lChunkCount As Long??????????????Dim lChunkRemainder As LongDim i As LongDim j As LongOn Error GoTo GGReDim Chunk(CHUNK_SIZE)lChunkCount = fdObject.FieldSize / CHUNK_SIZE 获得文件的块数lChunkRemainder = fdObject.FieldSize Mod CHUNK_SIZE 整块后余下的数据j = FreeFile(0)Kill filename????????? 如果这个文件存在，先删除Open filename For Binary As j? 以二进制方式打开文件For i = 0 To lChunkCount - 1?????????? Chunk() = fdObject.GetChunk(i * CHUNK_SIZE, CHUNK_SIZE) 取一块??????? Put j, , Chunk() 将块写入临时文件NextIf lChunkRemainder 0 Then???? ReDim Chunk(lChunkRemainder)???? Chunk() = fdObject.GetChunk(lChunkCount * CHUNK_SIZE, lChunkRemainder)? 取余下的数据???? Put j, , Chunk() 将其写入临时文件End IfClose j FieldToFile = True???????Exit Function GG:??????????? 错误处理Close jFieldToFile = FalseEnd Function Function fileTofield(filename As String, fdObject As Field) As Boolean? 从文件中读取数据，保存到数据库Dim lChunkCount As LongDim lChunkRemainder As LongDim i As LongDim j As LongReDim Chunk(CHUNK_SIZE)lChunkCount = FileLen(filename) / CHUNK_SIZE 获得文件的块数lChunkRemainder = FileLen(filename) Mod CHUNK_SIZE 整块后余下的数据j = FreeFile(0)Open filename For Binary As jFor i = 0 To lChunkCount - 1????????Chunk() = InputB(CHUNK_SIZE, #j)? 取一块??????? fdObject.AppendChunk Chunk() 写入数据库NextIf lChunkRemainder 0 Then???? ReDim Chunk(lChunkRem