在VB中存取数据库中的图片

发表于:2007-07-14来源:作者:点击数: 标签:
一、 数据库 的设计 数据库可以采用微软的Access97或者 SQL Server来进行,首先新建一张表,取名为Table,添加三个字段,分别是:姓名 Char型(SQL Server中)文本型(Access中);编号Char型(SQL Server中)文本型(Access中);照片image型(SQL Server中
一、 数据库的设计

  数据库可以采用微软的Aclearcase/" target="_blank" >ccess97或者SQL Server来进行,首先新建一张表,取名为Table,添加三个字段,分别是:姓名 Char型(SQL Server中)文本型(Access中);编号Char型(SQL Server中)文本型(Access中);照片image型(SQL Server中)OLE对象(Access中),设计好后存盘。为了可以进行远程调用,我们采用ODBC的方法进行,双击打开控制面板里的ODBC数据源,界面如图1所示:
  点“系统DSN”选项卡,按“添加”按钮选择对应的数据源驱动程序Access的*.mdb或者SQL Server,依照添加向导加添加数据源,下面就可以开始程序的编写了。
  二、 程序的编写

  运行VB,新建一个工程。本程序采用ADO控件和动态链接库访问数据库,需要加入ADO的运行库,单击“工程\引用”菜单,出现引用对话框,选择Microsoft ActiveX Data Objects2.0 Library并确定。
  添加一个Form,四个Label控件,两个TextBox控件,一个PictureBox控件,一个ADODC控件,三个CommandButton控件,一个CommandDialog控件,如果ADODC和CommandDialog控件没有出现在工具框上,请单击菜单“工程\部件”。点“控件”选项卡,在其中选中Microsoft ADO Data Control 6.0(OLEDB)和Microsoft Common Dialog Control 6.0两项按“确定”按钮。
  下面是以上各个控件的一些属性:
  Form1.MaxButton=False
  Label1.Caption=姓名:
  Label2.Caption=编号:
  Label3.Name= ResName
  Label3.BackColor= &H80000009&
  Label3.BorderStyle=1-Fixed Single
  Label3.DataField=姓名
  Label3.DataSource= AdoCtr
  Label4.Name= ResNumb
  Label4.BackColor= &H80000009&
  Label4.BorderStyle=1-Fixed Single
  Label4.DataField=编号
  Label4.DataSource= AdoCtr
  Text1.Name= Names
  Text2.Name= Numb
  CommonDialog1.Name= CDlg
  Adodc1.Name=AdoCtr
  CommonButton1.Name=PreView
  CommonButton1.Caption=预览
  CommonButton2.Name=Save
  CommonButton2.Caption=保存
  CommonButton3.Name= Update
  CommonButton3.Caption=更新
  PictureBox1.Name= PicBox
  PictureBox1.AutoSize=False
  PictureBox1.AutoRedraw=False
  PictureBox1.DataField=照片
  PictureBox1.DataSource=AdpCtr
  下面是程序代码:
  ′此工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll)
  Dim Constr As String ′ODBC路径
  Dim FileName As String ′图片文件名
  Const BLOCKSIZE = 4096 ′每次读写块的大小

原文转自:http://www.ltesting.net