运行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两项按“确定”按钮。
′此工程需有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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
