引用Online的例子: 使用流对象保存和显示图片 打开vb6,新建工程。添加两个按钮,一个image控件注意:Access中的photo字段类型为OLE对象.SqlServer中的photo字段类型为Image.'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本‘2.5版本以下不支持Stream对象Dim iConcstr As StringDim 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.CloseEnd 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.CloseEnd Sub Private Sub Command1_Click()Call s_ReadFileEnd Sub Private Sub Command2_Click()Call s_SaveFileEnd 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 iConcstrEnd Sub Private Sub Form_Unload(Cancel As Integer)iConc.CloseSet iConc = NothingEnd Sub
Const ChunkSize As Long = 100 Const BlockSize As Long = 100 Const TempFile As String = "tempfile.tmp" '定义临时文件Dim byteData() As Byte '定义数据块数组 Dim DiskFile As String '图像文件名 Dim NumBlocks As Long '定义数据块个数 Dim FileLength As Long '标识文件长度 Dim LeftOver As Long '定义剩余字节长度 Dim SourceFile As Long '定义自由文件号 Dim byteChunk() As Byte Dim i As Long '定义循环变量Public Sub ShowImage(Image1 As Image, Adodc1 As Recordset) 'Adodc1我使用了ADO控件 Erase byteChunk() FieldSize = Adodc1.Fields("照片").ActualSize If FieldSize = 0 Then Exit Sub End If '提供一个尚未使用的文件号 SourceFile = FreeFile '打开文件 Open TempFile For Binary Access Write As SourceFile '计算数据块 NumBlocks = FieldSize \ BlockSize LeftOver = FieldSize Mod BlockSize '得到剩余字节数 '分块读取图像数据,并写入到文件中 If LeftOver <> 0 Then ReDim byteChunk(LeftOver) byteChunk() = Adodc1.Fields("照片").GetChunk(LeftOver) Put SourceFile, , byteChunk() End If For i = 1 To NumBlocks ReDim byteChunk(BlockSize) byteChunk() = Adodc1.Fields("照片").GetChunk(BlockSize) Put SourceFile, , byteChunk() Next i Close SourceFile '将文件装入到Image1控件中 Image1.Picture = LoadPicture(TempFile) '删除临时文件 Kill (TempFile) End SubPublic Sub SaveImage(ByVal ImageFile As String, Adodc1 As Recordset)
' If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then ' Exit Sub 'End If If ImageFile = "" Then Adodc1.Fields("照片").AppendChunk "" Else '提供一个尚未使用的文件号 SourceFile = FreeFile '打开文件 Open ImageFile 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 '得到剩余字节数 Adodc1.Fields("照片").Value = Null '数据库的字段的值=空值 ReDim byteData(BlockSize) '重新定义数据块的大小 For i = 1 To NumBlocks Get SourceFile, , byteData() '读到内存块中 Adodc1.Fields("照片").AppendChunk byteData() '写入FLD Next i ReDim byteData(LeftOver) '重新定义数据块的大小 Get SourceFile, , byteData() '读到内存块中 Adodc1.Fields("照片").AppendChunk byteData() '写入FLD Close SourceFile '关闭源文件 End If End If End Sub Public Sub delImage(ByVal txtsql As String, Image1 As Image) '定义Image1为IMAGE控件 Dim mrc As Recordset '以及ADO2.6对象 Set mrc = ExecuteSQL(txtsql) mrc.Fields("照片").AppendChunk "" mrc.Update Image1.Picture = LoadPicture("") mrc.Close Set mrc = Nothing End Sub你的QQ留言我已经收到,有时间再给你写啦:)
使用流对象保存和显示图片
打开vb6,新建工程。添加两个按钮,一个image控件注意:Access中的photo字段类型为OLE对象.SqlServer中的photo字段类型为Image.'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本‘2.5版本以下不支持Stream对象Dim iConcstr As StringDim 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.CloseEnd 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.CloseEnd Sub Private Sub Command1_Click()Call s_ReadFileEnd Sub Private Sub Command2_Click()Call s_SaveFileEnd 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 iConcstrEnd Sub Private Sub Form_Unload(Cancel As Integer)iConc.CloseSet iConc = NothingEnd Sub
Const BlockSize As Long = 100
Const TempFile As String = "tempfile.tmp" '定义临时文件Dim byteData() As Byte '定义数据块数组
Dim DiskFile As String '图像文件名
Dim NumBlocks As Long '定义数据块个数
Dim FileLength As Long '标识文件长度
Dim LeftOver As Long '定义剩余字节长度
Dim SourceFile As Long '定义自由文件号
Dim byteChunk() As Byte
Dim i As Long '定义循环变量Public Sub ShowImage(Image1 As Image, Adodc1 As Recordset) 'Adodc1我使用了ADO控件 Erase byteChunk()
FieldSize = Adodc1.Fields("照片").ActualSize
If FieldSize = 0 Then
Exit Sub
End If
'提供一个尚未使用的文件号
SourceFile = FreeFile
'打开文件
Open TempFile For Binary Access Write As SourceFile
'计算数据块
NumBlocks = FieldSize \ BlockSize
LeftOver = FieldSize Mod BlockSize '得到剩余字节数
'分块读取图像数据,并写入到文件中
If LeftOver <> 0 Then
ReDim byteChunk(LeftOver)
byteChunk() = Adodc1.Fields("照片").GetChunk(LeftOver)
Put SourceFile, , byteChunk()
End If
For i = 1 To NumBlocks
ReDim byteChunk(BlockSize)
byteChunk() = Adodc1.Fields("照片").GetChunk(BlockSize)
Put SourceFile, , byteChunk()
Next i
Close SourceFile
'将文件装入到Image1控件中
Image1.Picture = LoadPicture(TempFile)
'删除临时文件
Kill (TempFile)
End SubPublic Sub SaveImage(ByVal ImageFile As String, Adodc1 As Recordset)
' If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then
' Exit Sub
'End If
If ImageFile = "" Then
Adodc1.Fields("照片").AppendChunk ""
Else
'提供一个尚未使用的文件号
SourceFile = FreeFile
'打开文件
Open ImageFile 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 '得到剩余字节数
Adodc1.Fields("照片").Value = Null '数据库的字段的值=空值
ReDim byteData(BlockSize) '重新定义数据块的大小
For i = 1 To NumBlocks
Get SourceFile, , byteData() '读到内存块中
Adodc1.Fields("照片").AppendChunk byteData() '写入FLD
Next i
ReDim byteData(LeftOver) '重新定义数据块的大小
Get SourceFile, , byteData() '读到内存块中
Adodc1.Fields("照片").AppendChunk byteData() '写入FLD
Close SourceFile '关闭源文件
End If
End If
End Sub
Public Sub delImage(ByVal txtsql As String, Image1 As Image) '定义Image1为IMAGE控件
Dim mrc As Recordset '以及ADO2.6对象
Set mrc = ExecuteSQL(txtsql)
mrc.Fields("照片").AppendChunk ""
mrc.Update
Image1.Picture = LoadPicture("")
mrc.Close
Set mrc = Nothing
End Sub你的QQ留言我已经收到,有时间再给你写啦:)
这段代码我已经有了啊!希望你能在百忙之中抽出点时间,我真的急用啊!!!谢谢了。
ljwcono1(菜鸟一号)
我也知道它的代码有用,但是我只会用它显示数据库中的图片并不能用它保存我的选择的(想添加的图片)如果你会请帮个忙。谢谢了
但对你的帮助我表示感谢。