一、 数据库的设计 数据库可以采用微软的Access97或者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 ′每次读写块的大小 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 程序运行后的结果如图2。 本程序在VB6.0/Windows98/WindowsNT下编译通过。
使用流对象保存和显示图片 打开vb6,新建工程。添加两个按钮,一个image控件 注意:Access中的photo字段类型为OLE对象. SqlServer中的photo字段类型为Image'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本 ‘2.5版本以下不支持Stream对象 Dim iConcstr As String Dim iConc As ADODB.Connection '保存文件到数据库中 Sub s_SaveFile() Dim iStm As ADODB.Stream Dim iRe As ADODB.Recordset Dim iConcstr As String '读取文件到内容 Set iStm = New ADODB.Stream With iStm .Type = adTypeBinary '二进制模式 .Open .LoadFromFile App.Path + "\test.jpg" End With '打开保存文件的表 Set iRe = New ADODB.Recordset With iRe .Open "select * from img", iConc, 1, 3 .AddNew '新增一条记录 .Fields("photo") = iStm.Read .Update End With '完成后关闭对象 iRe.Close iStm.Close End Sub Sub s_ReadFile() Dim iStm As ADODB.Stream Dim iRe As ADODB.Recordset '打开表 Set iRe = New ADODB.Recordset ‘得到最新添加的纪录 iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly '保存到文件 Set iStm = New ADODB.Stream With iStm .Mode = adModeReadWrite .Type = adTypeBinary .Open .Write iRe("photo") ‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误. .SaveToFile App.Path & "\test1.jpg" End With Image1.Picture = LoadPicture(App.Path & "\test1.jpg") '关闭对象 iRe.Close iStm.Close End Sub Private Sub Command1_Click() Call s_ReadFile End Sub Private Sub Command2_Click() Call s_SaveFile End Sub Private Sub Form_Load() '数据库连接字符串 iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ ";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"‘下面的语句是连接sqlserver数据库的. ‘iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _ ‘ "User ID=sa;Password=;Initial Catalog=test;Data Source=yang" Set iConc = New ADODB.Connection iConc.Open iConcstr End Sub Private Sub Form_Unload(Cancel As Integer) iConc.Close Set iConc = Nothing End Sub
数据库可以采用微软的Access97或者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 ′每次读写块的大小
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
程序运行后的结果如图2。
本程序在VB6.0/Windows98/WindowsNT下编译通过。
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
打开vb6,新建工程。添加两个按钮,一个image控件
注意:Access中的photo字段类型为OLE对象.
SqlServer中的photo字段类型为Image'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection
'保存文件到数据库中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String '读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\test.jpg"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("photo") = iStm.Read
.Update
End With
'完成后关闭对象
iRe.Close
iStm.Close
End Sub
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With
Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close
End Sub
Private Sub Command1_Click()
Call s_ReadFile
End Sub
Private Sub Command2_Click()
Call s_SaveFile
End Sub
Private Sub Form_Load()
'数据库连接字符串
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"‘下面的语句是连接sqlserver数据库的.
‘iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
‘ "User ID=sa;Password=;Initial Catalog=test;Data Source=yang"
Set iConc = New ADODB.Connection
iConc.Open iConcstr
End Sub
Private Sub Form_Unload(Cancel As Integer)
iConc.Close
Set iConc = Nothing
End Sub
按照你的代码我已经实现了保存图片功能,但因为上面没有运行后的结果图片,我还不清楚上面程序的界面该是怎样设计的,怎样输入编号或姓名预览图片,以及加入“下一个”和“上一个”,“第一个”等按纽查看多个图片?
对于这些问题我再试试,你要还在线的话,或还有其他高人,麻烦再帮帮我吧!谢谢啊!
我初次到这里发帖子问问题,就得到了很好的答案,很高兴,但不知道给分之后还能不能继续这一个帖子,所以我想等后几个问题也能得到答案后再给分吧,另外肯定要提高分了,呵呵!