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

　　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

　　
　　 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