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

用数据库存取文件的解决方法 用数据库保存文件有很广泛的用途，例如在数据库保存图片，或者保存有格式的资料，如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