VB6图片存数据库源代码

数据表.Open sql, Database, adOpenKeyset, adLockBatchOptimistic Set MyImage = New ADODB.Stream MyImage.Type = adTypeBinary '指定流是二进制类型 MyImage.Open '将数据获取到Stream对象中 MyImage.LoadFromFile (CommonDialog1.FileName) '将选择的图像加载到打开的MyImage中 数据表.Fields(Text2.Text)