当前位置: 网学 > 编程文档 > VB > 正文

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

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

  一、 数据库的设计

  数据库可以采用微软的Access97或者SQL Server来进行,首先新建一张表,取名为Table,添加三个字段,分别是:姓名 Char型(SQL Server中)文本型(Access中);编号Char型(SQL Server中)文本型(Access中);照片image型(SQL Server中)OLE对象(Access中),设计好后存盘。为了可以进行远程调用,我们采用ODBC的方法进行,双击打开控制面板里的ODBC数据源,点“系统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 ′每次读写块的大小
  Dim ADOCon As New ADODB.Connection ′ADODB Connection对象
  Dim ADORst As New ADODB.Recordset ′ADODB Recordset 对象
  Dim ADOFld As ADODB.Field ′ADODB Field 对象
------------------------
  Private Sub SaveToDB(ByRef Fld As ADODB.Field, DiskFile As String)
  Dim byteData() As Byte ′定义数据块数组
  Dim NumBlocks As Long ′定义数据块个数
  Dim FileLength As Long ′标识文件长度
  Dim LeftOver As Long′定义剩余字节长度
  Dim SourceFile As Long ′定义自由文件号
  Dim i As Long ′定义循环变量
  SourceFile = FreeFile ′提供一个尚未使用的文件号
  Open DiskFile For Binary Access Read As SourceFile ′打开文件
  FileLength = LOF(SourceFile) ′得到文件长度
  If FileLength = 0 Then ′判断文件是否存在
  Close SourceFile
  MsgBox DiskFile & ″ 无 内 容 或 不 存 在 !″
  Else
  NumBlocks = FileLength \ BLOCKSIZE ′得到数据块的个数
  LeftOver = FileLength Mod BLOCKSIZ

  • 下一篇资讯: VB导出到EXCEL文件
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号