电脑知识与技术
数据库与信息管理
电脑知识与技术ＳＱＬＳＥＲＶＥＲ是现阶段应用程序最普遍采用的数据库技术，
几乎所有的应用程序都会涉及到图片图像、声音、文档等数据的存取问题，即数据库中二进制数据的存取问题。普通的数据类型直接在用户定义的字段上存取，而二进制数据显然不能。笔者在ＶｉｓｕａｌＢａｓｉｃ６．０开发环境中，采用客户机／服务器的工作方式，针对ＳＱＬＳｅｒｖｅｒ数据库关系表中存储二进制数据的问题进行了初步分析，总结出两类基本方法，现加以比较供读者参考。
１表加实体的间接存取方法
目前二进制数据的存取大多数采用这种方法，二进制数据以文件的形式存放在计算机特定的分类目录下，数据库字段值反映的是文件的存取路径。此方法实质上并没有在数据表中存取二进制数据，相应的字段也不必设为二进制类型，但在一定的条件下仍然可以解决一些问题，且容易理解和使用。以ＶＢ６．０编程环境为例，使用要点如下：
１．１目录检查
由于二进制文件必须分类存放于统一的目录下，因此确保该目录存在。使用下面的函数代码测试目录是否存在。
Ｆｕｎｃｔｉｏｎｄｉｒｅｘｉｓｔｓ（ｐａｔｈａｓｓｔｒｉｎｇ）ａｓＢｏｏｌｅａｎ
Ｏｎｅｒｒｏｒｒｅｓｕｍｅｎｅｘｔ
Ｄｉｒｅｘｉｓｔｓ＝（ｄｉｒ￥（ｐａｔｈ＆＂＼ｎｕｌｌ＂）＜＞＂＂）Ｅｎｄｆｕｎｃｔｉｏｎ
如：检查当前应用程序目录下２００２５０６１＼ｔｐ目录是否存在，如
不存在则创建此目录。
Ｉｆｎｏｔｄｉｒｅｘｉｓｔｓ（ａｐｐ．ｐａｔｈ＆＂＼２００２５０６１＼ｔｐ＂）ｔｈｅｎＭｋｄｉｒａｐｐ．ｐａｔｈ＆＂＼２００２５０６１＼ｔｐ＂Ｅｎｄｉｆ
１．２文件检查
文件复制以前，应检查目标文件夹中是否有同名文件存在，如有则应删除，避免发生文件复制错误。如：检查１２５．ｊｐｇ是否存在。
Ｆｕｎｃｔｉｏｎｆｉｌｅｅｘｉｓｔｓ（ｆｉｌｅｎａｍｅａｓｓｔｒｉｎｇ）ａｓＢｏｏｌｅａｎＯｎｅｒｒｏｒｒｅｓｕｍｅｎｅｘｔ
Ｄｉｒｅｘｉｓｔｓ＝（ｄｉｒ￥（ｆｉｌｅｎａｍｅ）＜＞＂＂）
Ｅｎｄｆｕｎｃｔｉｏｎ
Ｉｆｆｉｌｅｅｘｉｓｔｓ（ａｐｐ．ｐａｔｈ＆＂＼２００２５０６１＼ｔｐ＼１２５．ｊｐｇ＂）ｔｈｅｎＫｉｌｌａｐｐ．ｐａｔｈ＆＂＼２００２５０６１＼ｔｐ＼１２５．ｊｐｇ＂Ｅｎｄｉｆ
１．３文件复制与数据存取
首先声明复制文件的ＡＰＩ函数：
ＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＣｏｐｙＦｉｌｅＬｉｂ＂ｋｅｒｎｅｌ３２＂Ａｌｉａｓ＂Ｃｏｐｙ－ＦｉｌｅＡ＂（ＢｙＶａｌｌｐＥｘｉｓｔｉｎｇＦｉｌｅＮａｍｅＡｓＳｔｒｉｎｇ，ＢｙＶａｌｌｐＮｅｗＦｉｌｅＮａｍｅＡｓＳｔｒｉｎｇ，ＢｙＶａｌｂＦａｉｌＩｆＥｘｉｓｔｓＡｓＬｏｎｇ）ＡｓＬｏｎｇ。
其次在程序中确定源文件和目标文件的路径。源文件可以通过对话框控件或其它方式取得，目标文件路径使用ＧｅｔａｐｐＰａｔｈ（）函数。如由变量ｓｆｉｌｅｎａｍｅ表示源文件，ｔｆｉｌｅｎａｍｅ表示目标文件路径，ｆｉｌｅｎａｍｅ表示目标文件名，可设定Ｔｆｉｌｅｎａｍｅ＝ＧｅｔａｐｐＰａｔｈ（）＆＂ｂｉｎ＼＂＆ｆｉｌｅｎａｍｅ，其中ｂｉｎ表示应用程序目录下的分类子目录。
用下列格式复制文件：
ｃｏｐｙｆｉｌｅＳｆｉｌｅｎａｍｅ，Ｔｆｉｌｅｎａｍｅ，０
最后将Ｔｆｉｌｅｎａｍｅ之值写入数据库的相应字段中。
使用时从数据表中读出文件名并使用相应的应用程序打开
即可。操作完成后结果如图１、
图２：图１
复制后的目录文件结构
图２数据表中存放的数据（相片字段）
１．４局限性
由于字段存储的对象与实体是分开的，文件与数据库的统一
收稿日期：２００６－０４－０８
作者简介：魏文胜（１９６８－），男，湖北公安人，湖北三峡职业技术学院高级讲师，从事ＶＢ语言的教学及研究。
在ＶＢ中存取ＳＱＬＳＥＲＶＥＲ２０００
二进制数据的方法
魏文胜
（湖北三峡职业技术学院，湖北宜昌４４３０００）
摘要：表加实体的间接存取方法应用广泛、易于理解，二进制数据以文件的形式存放在特定的目录下，数据表中字段值存储文件路径，此方法不能体现ＳＱＬＳＥＲＶＥＲ２０００管理数据的优势；直接存取将二进制数据直接存入数据库中，存取过程均以临时文件过渡，是数据库管理二进制数据的发展方向。
sql server2000简介
关键词：二进制数据；间接存取；直接存取中图分类号：ＴＰ３１１文献标识码：Ａ文章编号：１００９－３０４４（２００６）２０－００３４－０２
ＴｈｅＭｅｔｈｏｄｓｏｆＳｔｏｒｉｎｇＳＱＬＳＥＲＶＥＲ２０００ＢｉｎａｒｙｉｎＶＢ
ＷＥＩＷｅｎ－ｓｈｅｎｇ
（ＨｕｂｅｉＴｈｒｅｅＧｏｒｇｅｓＶｏｃａｔｉｏｎａｌａｎｄＴｅｃｈｎｉｃａｌＣｏｌｌｅｇｅ，Ｙｉｃｈａｎｇ４４３０００，Ｃｈｉｎａ）
Ａｂｓｔｒａｃｔ：Ｔｈｅｉｎｄｉｒｅｃｔａｃｃｅｓｓｍｅｔｈｏｄｏｆｓｔｏｒｉｎｇｔｈｅｅｎｔｉｔｙａｎｄｔｈｅｔａｂｌｅｓｅｐａｒａｔｅｌｙｉｓｕｓｅｄｅｘｔｅｎｓｉｖｅ，ａｎｄｅａｓｙｔｏｕｎｄｅｒｓｔａｎｄ．Ｔｈｅｂｉｎａｒｙａｒｅｌｅｆｔｉｎｔｈｅｓｐｅｃｉｆｉｃｄｉｒｅｃｔｏｒｙｉｎｔｈｅｆｏｒｍｏｆｆｉｌｅｓ．Ｔｈｅｖａｌｕｅｏｆｆｉｅｌｄｓｓｔｏｒｅｓｔｈｅｐａｔｈｏｆｔｈｅｆｉｌｅｉｎｔｈｅｔａｂｌｅ．Ｔｈｉｓｍｅｔｈｏｄｃａｎ＇ｔｅｍｂｏｄｙｔｈｅａｄ－ｖａｎｔａｇｅｓｏｆＳＱＬＳＥＲＶＥＲ２０００ｏｎｍａｎａｇｉｎｇｄａｔａ．Ｄｉｒｅｃｔａｃｃｅｓｓｗｈｉｃｈｓｔｏｒｅｓｔｈｅｂｉｎａｒｙｉｎｔｈｅｄａｔａｂａｓｅｄｉｒｅｃｔｌｙｗｉｔｈｔｈｅｔｅｍｐｏｒａｒｙｆｉｌｅｆｏｒｔｒａｎ－ｓｉｔｉｏｎｉｓｔｈｅｄｅｖｅｌｏｐｉｎｇｄｉｒｅｃｔｉｏｎｏｆｔｈｅｂｉｎａ
ｒｙｏｆｔｈｅｄａｔａｂａｓｅｍａｎａｇｅｍｅｎｔ．
Ｋｅｙｗｏｒｄｓ：ｂｉｎａｒｙ；ｉｎｄｉｒｅｃｔ
ａｃｃｅｓｓ；ｄｉｒｅｃｔ
ａｃｃｅｓｓ
３４
数据库与信息管理电脑知识与技术
（上接第８页）
实用价值和应用前景。
参考文献：
［１］彭小宁．数据仓库与数据挖掘技术［Ｊ］．怀化师专学报，２００４，２１（２）：３４－３８．
［２］张二朋，黄振宇．基于数据仓库ＯＤＳ的电子政务决策支持系统［Ｊ］．科技情报开发与经济，２００４，１４（３）：１４２－１４４．
［３］张庆，董红斌．基Ｗｅｂ的数据仓库技术及其在商业银行中的应用［Ｊ］．计算机应用研究，２００２，（１１）：８８－９１．
［４］韩毅，何俊梅．知识管理的知识转换模式与保障措施［Ｊ］．情报杂志，２００４，（９）：１９：２０，２３．
［５］ＸｉｎＴａｎ，ＤａｖｉｄＣＹｅｎ，ＸｉａｎｇＦａｎｇ．Ｗｅｂｗａｒｅｈｏｕｓｉｎｇ：Ｗｅｂｔｅｃｈｎｏｌｏｇｙｍｅｅｔｓｄａｔａｗａｒｅｈｏｕｓｉｎｇ［Ｊ］．ＴｅｃｈｎｏｌｏｇｙｉｎＳｏｃｉｅｔｙ，２００３，（２５）：１３１－１４８．
［６］Ｌｅｉ－ｄａＣｈｅｎ，ＭａｋｅＮＦｒｏｌｉｃｋ．Ｗｅｂ－ｂａｓｅｄＤａｔａＷａｒｅｈｏｕｓｅ－Ｆｏｕｎｄａｍａｎｔａｌｓ，ＣｈａｎｌｅｎｇｅｓａｎｄＳｏｌｕｔｉｏｎｓ［Ｊ］．ＩｎｆｏｒｍａｎｔｉｏｎＳｙｓｔｅｍＭａｎａｇｅｍｅｎｔ，２０００，１７（２）：８０－８６．
［７］ＨＣＷＬａｕａ，ＣＷＹＷｏｎｇｂ，ＩＫＨｕｉｃ，ｅｔａｌ．Ｄｅｓｉｇｎａｎｄｉｍｐｌｅｍｅｎｔａｔｉｏｎｏｆａｎｉｎｔｅｇｒａｔｅｄｋｎｏｗｌｅｄｇｅｓｙｓｔｅｍ［Ｊ］．Ｋｎｏｗｌｅｄｇｅ－ＢａｓｅｄＳｙｓｔｅｍｓ，２００３，（１６）：６９－７６．
［８］ＨａｍｉｄＲ．Ｎｅｍａｔｉ，ＤａｖｉｄＭ．Ｓｔｅｉｇｅｒ，ＬａｋｓｈｍｉＳ．Ｉｙｅｒ，ＲｉｃｈａｒｄＴ．Ｈｅｒｓｃｈｅｌ．Ｋｎｏｗｌｅｄｇｅｗａｒｅｈｏｕｓｅ：ａｎａｒｃｈｉｔｅｃｔｕｒａｌｉｎｔｅｇｒａｔｉｏｎｏｆｋｎｏｗｌｅｄｇｅｍａｎａｇｅｍｅｎｔ，ｄｅｃｉｓｉｏｎｓｕｐｐｏｒｔ，ａｒｔｉｆｉｃｉａｌｉｎｔｅｌｌｉｇｅｎｃｅａｎｄｄａｔａｗａｒｅｈｏｕｓｉｎｇ［Ｊ］．ＤｅｃｉｓｉｏｎＳｕｐｐｏｒｔＳｙｓｔｅｍｓ，２００２，（３３）：１４３－１６１．
性难以保证，同时必须在操作系统下对目录文件进行安全性设置。表加实体的方法不能体现ＳＱＬＳＥＲＶＥＲ２０００管理数据的优势。
２采取直接存取的方法
随着ＳＱＬＳｅｒｖｅｒ数据库管理系统功能的不断增强、性能的不断完善，将各类数据完全由数据库管理系统统一存储和管理，已成为技术发展的趋势。只有这样，ＳＱＬＳｅｒｖｅｒ数据库管理系统的强大功能才能得到充分发挥，数据的安全性才能得到充分的保障，使得诸如数据库复制、数据的转移等许多工作，变得非常简单容易。一种方法是在窗体上设置Ｒｏｍｏｔｅｄａｔａ控件、ＯＬＥ容器控件及数据表的二进制字段并将三者绑定，通过操作控件达到存取的目的。用此方法数据的显示不直观，通用性差。另一种用法是用二进制字段的ＡＰＰＥＮＤＣＨＵＮＫ（）与ＧＥＴＣＨＵＮＫ（）方法，此方法通用性强，是一种有效的方法但计算复杂、代码量大，许多资料上都有详细的说明。现笔者推荐ａｄｏｄｂ．ｓｔｒｅａｍ对象，代码量少，使用更简单。现举例说明。
２．１添加引用
在ＶＢ中定义ａｄｏｄｂ对象。首先添加引用ＭｉｃｒｏｓｏｆｔＡｃｔｉｖｅＸＤａｔａＯｂｊｅｃｔｓ２．６Ｌｉｂｒａｒｙ或高于２．６的版本，再作如下定义：ｄｉｍｍｓｔｒｅａｍａｓａｄｏｄｂ．ｓｔｒｅａｍ
２．２数据存储
使用如下过程将二进制文件存到记录集的字段中：
ＰｒｉｖａｔｅＳｕｂｓａｖｅｔｏｄｂ（ＢｙＲｅｆｆｌｄＡｓＡＤＯＤＢ．Ｆｉｅｌｄ，ｄｉｓｋｆｉｌｅＡｓＳｔｒｉｎｇ）
ＤｉｍｍｓｔｒｅａｍＡｓＡＤＯＤＢ．Ｓｔｒｅａｍ
ＩｆＤｉｒ（ｄｉｓｋｆｉｌｅ）＜＞＂＂Ｔｈｅｎ（ｄｉｓｋｆｉｌｅ表示要存储的文件）
Ｓｏｕｒｃｅ＝ＦｒｅｅＦｉｌｅ
Ｓｅｔｍｓｔｒｅａｍ＝ＮｅｗＡＤＯＤＢ．Ｓｔｒｅａｍ
ｍｓｔｒｅａｍ．Ｔｙｐｅ＝ａｄＴｙｐｅＢｉｎａｒｙ
ｍｓｔｒｅａｍ．Ｏｐｅｎ
ｍｓｔｒｅａｍ．ＬｏａｄＦｒｏｍＦｉｌｅ（ｄｉｓｋｆｉｌｅ）
ｆｌｄ．Ｖａｌｕｅ＝ｍｓｔｒｅａｍ．Ｒｅａｄ（ｆｌｄ为存储的二进制字段名，其类型为ｉｍａｇｅ）
Ｅｌｓｅ
ＭｓｇＢｏｘ＂文件有问题！＂，ｖｂＥｘｃｌａｍａｔｉｏｎ，＂注意＂
ＥｎｄＩｆ
ＥｎｄＳｕｂ
如：要将Ｅ：＼ＡＡＡ．ＤＯＣ文件存入记录集ｓｔｒｅｃ的ｔｍｄａｉｍａｇｅ字段中，采用下列格式调用过程：
Ｃａｌｌｓａｖｅｔｏｄｂ（ｓｔｒｅｃ（＂ｔｍｄａｉｍａｇｅ＂），＂ｅ：＼ａａａ．ｄｏｃ＂））
２．３数据取出
使用如下过程将ｉｍａｇｅ类型字段读出到文件中：
ＰｒｉｖａｔｅＳｕｂｓａｖｅｔｏｆｉｌｅ（ＢｙＲｅｆｆｌｄＡｓＡＤＯＤＢ．Ｆｉｅｌｄ，ｄｉｓｋｆｉｌｅＡｓＳｔｒｉｎｇ）
ＤｉｍｍｓｔｒｅａｍＡｓＡＤＯＤＢ．Ｓｔｒｅａｍ
Ｓｅｔｍｓｔｒｅａｍ＝ＮｅｗＡＤＯＤＢ．Ｓｔｒｅａｍ
ｍｓｔｒｅａｍ．Ｔｙｐｅ＝ａｄＴｙｐｅＢｉｎａｒｙ
ｍｓｔｒｅａｍ．Ｏｐｅｎ
ｍｓｔｒｅａｍ．Ｗｒｉｔｅｆｌｄ．Ｖａｌｕｅ
ｍｓｔｒｅａｍ．ｓａｖｅｔｏｆｉｌｅｄｉｓｋｆｉｌｅ，ａｄＳａｖｅＣｒｅａｔｅＯｖｅｒＷｒｉｔｅ
ＥｎｄＳｕｂ
Ｄｉｓｋｆｉｌｅ为临时保存的文件名，必须指定扩展名。
如：要将记录集ｓｔｒｅｃ的ｔｍｄａｉｍａｇｅ字段值读入到Ｅ：＼ＡＡＡ．ＤＯＣ文件中，采用下列格式调用过程：
Ｃａｌｌｓａｖｅｔｏｆｉｌｅ（ｓｔｒｅｃ（＂ｔｍｄａｉｍａｇｅ＂），＂ｅ：＼ａａａ．ｄｏｃ＂））
２．４关于ｓｔｒｅａｍ对象主要方法的说明
２．４．１ＬｏａｄＦｒｏｍＦｉｌｅ方法
使用方法如下：
Ｏｂｊｅｃｔ．ＬｏａｄＦｒｏｍＦｉｌｅ（ＦｉｌｅＮａｍｅ）
说明：将ＦｉｌｅＮａｍｅ指定的文件装入对像中，参数ＦｉｌｅＮａｍｅ为指定的文件名。
２．４．２ＳａｖｅＴｏＦｉｌｅ方法
使用方法如下：
Ｏｂｊｅｃｔ．ＳａｖｅＴｏＦｉｌｅ（ＦｉｌｅＮａｍｅ，［Ｏｐｔｉｏｎｓ］）
说明：将对像的内容写到ＦｉｌｅＮａｍｅ指定的文件中。
参数说明：ＦｉｌｅＮａｍｅ指定的文件
Ｏｐｔｉｏｎｓ存取的选项，可不指定，可选参数如下：
ａｄＳａｖｅＣｒｅａｔｅＮｏｔＥｘｉｓｔ＝１
ａｄＳａｖｅＣｒｅａｔｅＯｖｅｒＷｒｉｔｅ＝２
２．４．３Ｏｐｅｎ方法
使用方法如下：
Ｏｂｊｅｃｔ．Ｏｐｅｎ
说明：打开对像。
２．４．４Ｃｌｏｓｅ方法
使用方法如下：
Ｏｂｊｅｃｔ．Ｃｌｏｓｅ
说明：关闭对像。
３结束语
使用ａｄｏｄｂ．ｓｔｒｅａｍ对象，二进制数据的存取都有必须以临时文件过渡。使用时也必须以文件为操作对象，在文件读出以前，必须知道文件类型。笔者以图片、ＷＯＲＤ文档、ＡＶＩ影像文件实践均成功。
上述介绍了两大类方法，表加实体的方法虽然有很多局限性，但大部分应用程序不支持ＯＬＥ自动化，对象在ＶＢ窗体中不能现场编辑，这些应用程序只能访问文件，在此种情况下表加实体是更好的选择。随着应用程序之间数据交换技术的进步以及直接存取的巨大优越性，直接存取技术必获得更加广泛的应用。
参考文献：
［１］赵斯明．ＶｉｓｕａｌＢａｓｉｃ数据库编程技术与实例［Ｍ］．北京：人民邮电出版社．
［２］求是科技．ＳＱＬＳＥＲＶＥＲ２０００数据库管理与开发技术大全［Ｍ］．北京：人民邮电出版社．
［３］ＦｒａｎｃｅｓｏＢａｌｅｎａ．ＶｉｓｕａｌＢａｓｉｃ６．０编程技术大全［Ｍ］．北京：机械工业出版社．
［４］ＤａｎＡｐｐｌｅｍａｎ．ＶｉｓｕａｌＢａｓｉｃ５．０Ｗｉｎ３２ＡＰＩ开发人员指南［
Ｍ］．北京：机械工业出版社．
３５

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。