VB6演示将图片存入数据库(方法一).rar下载

将图片存入数据库的方法演示，含完整实例源码，这里的数据库为Access，图片格式为bmp或ico。下面是相关的代码片段： 　　Private Sub Command3_Click() 　　 CmD1.DialogTitle = "选择图片" 　　 CmD1.Filter = "bmp|*.bmp;*.ico" 　　 CmD1.ShowOpen 　　 If Len(CmD1.FileName) Then 　　 Text1(2).Text = CmD1.FileName 　　 Image1.Picture = LoadPicture(Text1(2).Text) 　　 Image2.Picture = LoadPicture(Text1(2).Text) 　　 End If 　　End Sub