用sql server为web浏览器提供图像（三）(转)sql server]教程

《用sql server为web浏览器提供图像（三）(转)sql server]教程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精选公文范文管理资料用SQLServer为Web浏览器提供图像（三）(转)SQLserver]教程建立ActiveX动态链接库　　使用VB5.0，我们要开发一个ActiveX动态链接库。这个动态链接库让我们能够连接到SQL数据库，提取图片数据，并把它们保存成文件，放在目录里。要建立动态链接库，请在打开VB程序之后执行下列步骤：首先：在文件（File）菜单里，选择新建项目（NewProject）。接着，在新建立项目对话框里，双击ActiveXDLL图标。VB自动地向项目里增加一个类，叫做Class1。然后，在属性容器里，双击名称（Name）属性，把它改成clsImageLoad

2、er，保持instancing属性为缺省值MultiUse不动。最后，在项目（Project）菜单里，选择Project1[键入文字][键入文字][键入文字]精选公文范文管理资料属性，打开项目属性对话框。选择通用（General）选项卡，把项目名称改为ImageLoader。其它字段可以不管，保持原样。单击确定（OK）完成对ImageLoader这个工程的设置。　　在类里，写入了5个Let属性，1个Get属性（只读）和两个方法。Let属性传递动态链接库需要的信息，Get属性提供动态链接库生成的图片文件的位置。两个方法用来打开到数据库的连接，以生成图片文件。表A总结了这些属性和

3、方法的作用。当然，根据项目的需要，可以在类里加入更复杂的功能。　　表A:在ActiveX动态链接库里的属性和方法　　属性/方法作用　　DbName打开数据库连接所需的数据库名称。　　TableName,　　NameOfImageColumn,打开记录集所需要的信息。　　NameOfImageTypeColumn,　　NameOfImageIdColumn　　ImageFile[键入文字][键入文字][键入文字]精选公文范文管理资料(只读)把图片文件的名称和位置返回给容器。　　OpenConnection(方法)打开数据库连接。　　CreateTemplateImageFile

4、(方法)从数据库提取图片数据，并把它保存到目录里。　　　　在类里还有其它的私有子程序，用来初始化类、终止类、打开记录集、建立图片文件，以及处理可能的错误。　　注意微软活动数据对象ADO1.5(现在为2.0)被用来连接SQL数据库。也可以使用其它数据访问方法，比如远程数据对象RDO。在这个项目里，必须使用ADO。操作方法是，单击项目（Project）菜单，然后选择引用（References）菜单项。在引用对话框里，选中微软ActiveXDataObjects1.5库，然后单击确定（OK）。　　在列表B里，列出了类ImageLoader完整源代码。类里使用的变量定义都在代码内部给

5、出，还有其它注释，帮助理解上下文。　　列表B:类ImageLoader的完整源代码　　PrivatemAdoConnAsNew[键入文字][键入文字][键入文字]精选公文范文管理资料ADODB.Connection　　PrivatemAdoRstAsNewADODB.Recordset　　PrivatemstrDbNameAsString　　PrivatemstrTableNameAsString　　PrivatemstrImageColumnNameAsString‘图片字的名称。　　PrivatemstrImageTypeColumnNameAsString‘图片类型字段

6、的名称。　　PrivatemstrImageIdColumnNameAsString‘图片ID字段的名称。　　PrivatemstrFileName()AsString‘数组，里面包含文件名和路径。　　PrivatemlngImageId()AsLong‘数组，里面包含图片ID　　PrivatemlngNumberOfFilesAsLong　　ConstBLOCKSIZE=102400　　　　PublicPropertyLetDbName(ByValstrValAsString)　　mstrDbName=strVal　　End[键入文字][键入文字][键入文字]精选公文范文管

7、理资料Property　　PublicPropertyLetTableName(ByValstrValAsString)　　mstrTableName=strVal　　EndProperty　　PublicPropertyLetNameOfImageColumn(ByValstrValAsString)　　mstrImageColumnName=strVal　　EndProperty　　PublicPropertyLetNameOfImageTypeColumn(ByValstrValAsString)