vb mysql存图片_如何用vb向sql数据库存取照片 最好有事例 谢谢
展开全部
在VB中存62616964757a686964616fe78988e69d8331333231616638取数据库中的图片
2001-07-05· ·史美康 ··vbeden.com
一、 数据库的设计
数据库可以采用微软的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 BLOCKSIZE ′得到剩余字节数
Fld.Value = Null
ReDim byteData(BLOCKSIZE) ′重新定义数据块的大小
For i = 1 To NumBlocks
Get SourceFile, , byteData() ′ 读到内存块中
Fld.AppendChunk byteData() ′写入FLD
Next i
ReDim byteData(LeftOver) ′重新定义数据块的大小
Get SourceFile, , byteData() ′读到内存块中
Fld.AppendChunk byteData() ′写入FLD
Close SourceFile ′关闭源文件
End If
End Sub
----------------------
Private Sub Form_Load()
Constr = 〃DSN=image〃 ′定义ODBC连接
ADOCon.Open Constr ′创建一个连接
ADORst.Open 〃table〃, ADOCon, adOpenDynamic, adLockOptimistic
′打开一个ADO动态集 表名为table
Set AdoCtr.Recordset = ADORst ′将动态集赋给ADO控件
End Sub
----------------------
Private Sub Form_Unload(Cancel As Integer)
′记得关闭打开的数据集,释放资源
ADORst.Close
ADOCon.Close
Set ADORst = Nothing
Set ADOCon = Nothing
End Sub
----------------------
Private Sub PreView_Click()
′显示打开文件的公用对话框,选择需要加入数据库的图片
CDlg.Filter = 〃位图(*.bmp)|*.bmp〃
CDlg.ShowOpen
FileName = CDlg.FileName
PicBox.Picture = LoadPicture(FileName) ′预览图片
End Sub
----------------------
Private Sub Save_Click()
ADORst.AddNew ′新增纪录
ADORst(〃姓名〃).Value = Names.Text ′给动态集的第一个字段赋值
ADORst(〃编号〃).Value = Numb.Text ′给动态集的第二个字段赋值
Set ADOFld = ADORst(〃照片〃) ′给ADODB.Field对象赋值
Call SaveToDB(ADOFld, FileName)
′调用子程序,给第三个字段(image)赋值
ADORst.Update
End Sub
----------------------
Private Sub Update_Click()
′重新打开纪录集,刷新纪录
ADORst.Close
ADOCon.Close
Set ADORst = Nothing
Set ADOCon = Nothing
ADOCon.Open Constr
ADORst.Open 〃table〃, ADOCon, adOpenDynamic, adLockOptimistic
Set AdoCtr.Recordset = ADORst
End Sub
本回答由提问者推荐
已赞过
已踩过<
你对这个回答的评价是?
评论
收起
vb mysql存图片_如何用vb向sql数据库存取照片 最好有事例 谢谢相关推荐
- vb.net mysql存储图片_怎么让VB.NET 上传图片到SQL 数据库只保存路径,图片保存到文件...
我的前台代码dimCoonAsSqlClient.SqlConnectiondimRsAsNewSqlClient.SqlCommandRs.Connection=CoonRs=NewSqlClien ...
- vb mysql添加字段_怎么用VB向SQL数据库中添加记录
Sub 添加_OnClick(ByVal sender As Object, ByVal e As EventArgs) Dim SqlConn As New SqlConnection SqlCon ...
- mysql blob图片_使用mysql的Blob字段存取图片
只是做实验,没有考虑buffer存取和性能. 建立表: CREATE TABLE example (name VARCHAR(100),city VARCHAR(100),image BLOB,Pho ...
- vb.net html图片,手把手教你VB.NET DataGrid图片显示
学习VB.NET时,你可能会遇到VB.NET上传图片并在DataGrid中显示的问题,这里将介绍VB.NET DataGrid显示问题的解决方法,在这里拿出来和大家分享一下. 一.程序功能当上传图片大 ...
- sql date类型_共享单车数据分析的SQL数据库设计
SQL,发音为" sequel"(或SQL,如果愿意的话),是数据科学家的重要工具.实际上,它可以说是获取数据工作中最重要的语言.在共享单车数据分析的SQL设计中,我们将从入门者的 ...
- lisp语言画阿基米德线_如何用VB语言Line方法绘制阿基米德螺线
展开全部 我是用picturebox实现的 (1)先用打开notepad,粘贴下面e69da5e887aa3231313335323631343130323136353331333236393832的 ...
- mysql存图片二进制文件_将图片(二进制文件)存储于数据库,论文件字节流与二进制字符串相互转换...
开发中遇到存储图片文件于数据库这样的需求. 我们知道文件本身就是一份二进制数据,不同类型的文件只是编码形式不同,对应的解读形式不同,无论txt文件.jpg文件亦或是mp4文件,本质上都是0和1组成的. ...
- vb mysql 设置数据源_总结 vb与数据库的连接方法
总结:vb与数据库连接方式,两种分法. 根据是否使用ODBC(驱动程序)来分: 1.有源连接 2.无源连接. 其中有源连接指的是:通过设置数据源(ODBC)来连接 据我的观察无源连接选择的是oledb ...
- mysql批量存图片_教你如何在MySQL数据库中直接储存图片(3)
如果你执行了这个程序,你将会看见一个简单的Html表单,单击"浏览"选择一个文件,然后单击提交. 当文件上传至web服务器之后,程序将会告诉你刚刚上传的文件的ID,记住这个ID,待 ...
最新文章
- 获取日志$6到$NF的字段
- 中国量子计算机 是纠缠,量子纠缠获得突破,中国量子计算机问世,民营企业立下显著功勋...
- SharePoint开发中怎样使用Visual Studio给你的Web Part加入图标
- c语言广播程序,C语言socket编程---udp通信及广播
- Windows下如何远程连接Linux图形化桌面-教你两招
- 有意思的堪称世界级的电视广告!!:)
- 图像加密技术综述(常见的图像加密算法简介)
- Dota2 荒神罪 破解
- uva424	Integer Inquiry
- math.floor java_Java Math floor、ceil、rint 及 round 用法
- 7、purge_haplogs 基因组去冗余
- springboot+APP基于Android的洗衣店预约系统毕业设计源码260839
- 会计事务所审计、咨询等项目管理用泛微,数据关联、协作灵活
- 一会通一会不通 一台设备ping_局域网 一会ping的通,一会ping不通???
- iOS-RAC常用方法
- MBus协议详解(四)
- 影视后期制作学习(AE)(三维动画)(成果在视频部分)
- 紫光云的三周年:融资六亿,牵手中移动,深化云市场!
- 汽车网关MCU芯片选型
- UnityRPG游戏中的球形检测范围