用VB存取SQLServer2000数据库中图片文件的方法.docVIP

2012-07-19#############锦#州2师0专1计 2012-07-19#############锦#州2师0专1计2算-机0系7-1于9占#虎#####2#0#12-07-19######## ［摘 要］利用 VB6.0 中 ADO Field 对象和 Stream 对象，实现对 SQL Server2000 数据库中图像数据的存取。 ［关键词］VB6.0 SQL Server2000 图片存取 1. 引言 在数据库应用系统开发中，经常要对大容量的图片进行存 取，如在档案管理系统中存取人员的照片。而 SQL Server2000 不 支 持 INSERT 和 UPDATE 语 句 对 image 数 据 类 型 字 段 进 行 编 辑，因此需编写专门过程来处理图像字段。笔者结合自己的实 际应用，给出了实现此功能的方法，愿与同仁共享。 2. SQL Server2000 中图像数据的存储机制 在 SQL Server2000 数据库中，对于小于 8000 个字节的图像 数据可以采用二进制型（Binary、Varbinary）来表示，但通常要保 存的图片一般都大于 8000 个字节。SQL Server 提供了一种机 制，能存储每行大到 2G 的二进制对象（BLOB），这类对象可包 括 image、text 和 ntext 三种数据类型，其中 image 数据类型存储 的是二进制数据。VB6.0 存取 SQL Server 中 BLOB 数据有两种 方法。一是利用 ADO Field 对象的 AppendChunk 和 GetChunk 方 法。二是利用 Stream 对象的 LoadFromFile 和 SaveToFile 方法。为 了更好说明这两种方法，本示例程序存储图片采用 ADO Field 对 象 的 AppendChunk 方 法 ， 而 读 取 图 片 采 用 Stream 对 象 的 SaveToFile 方法。 3. 示例实现步骤及代码 ①在 SQL Server2000 中创建数据库 DAGL。在 DAGL 中创 建表 Student，包括 stu_no （char 型，存放学号）、stu_name（char 型，存放姓名）、stu_photo（image 型，存放照片）三个字段。 ②在 VB 的“引用”对话框中选择 Microsoft DAO 3.6 Object Library 和 Microsoft ActiveX Data Objects 2.5 Library，在 VB 的“部 件”对话框中选择 Microsoft Common Dialog Control6.0。 ③新建工程，设置从 Sub Main()启动，创建一个模块 Mod- ule1，其代码如下： Public Rst As ADODB.Recordset 定义 SQL Server 的全局记 录集 Public Cur_Record As ADODB.Recordset 定义临时记录集， 保存照片用 Public CNN As ADODB.Connection 定义一个网络数据对象 Public NetPath As String 定义网络服务器路径 Public Function ConnectString () As String 返回一个数据库 连接 ConnectString = driver=SQL Server;Server= NetPath database=DAGL End Function Sub Main() NetPath = WINSQL ;Uid= sa ;PWD= sa ; 提取网络服务器路径 Set CNN = New ADODB.Connection 创建数据库连接对象 Dim sTokens() As String sTokens = Split(SQL) 用系统 Split 函数产生一个包含各 个子串的数组 Set ExecuteCNN = New ADODB.Connection 创建连接 ExecuteCNN.Open ConnectString 打开连接 Set ExecuteRst = New ADODB.Recordset 创 建 记 录 集 对 象 ExecuteRst.Open Trim $(SQL), ExecuteCNN, adOpenKeyset, adLockOptimistic Set ExecuteSQL = ExecuteRst 返回记录集对象 End Function ④新建窗体 Form1。窗体上添加两个文本框 Text1 和 Text2， 分别用于输入和显