VB高手请进，从ACCESS读取图片显示的问题

vb中读取access,rnd产生了假随机，请问怎么改进？！~

加上randomize这句

你的这些DataGrid最好做成控件数组，而且其index要和sstab的tab号一一对应。另外界面上再放一个adodc控件，和数据库连接好，并且设为不可见的。这样就简单了：

Private Sub SSTab1_Click(PreviousTab As Integer)
Adodc1.RecordSource = "select * from " & SSTab1.Caption
Adodc1.Refresh
Set DataGrid1(SSTab1.Tab).DataSource = Adodc1
End Sub

问题已经解决了。

Dim pic() As Byte = CType(tbl.Rows(0).Item("img1"), Byte())
Dim mem As New MemoryStream(pic, &H9A, pic.Length - &H9A)
pic1.Image = Image.FromStream(mem)

如上就OK了, 偏移量 GIF 是 9A, BMP 是 4A

---------------------------------------

确认： 你的图片是如何存入ACCESS的？

那就对了，这就是问题所在。

ACCESS本身会给OLE字段添加额外的附加信息，所以显示错误。

解决方法请HI 联系我

找了个例程，加了些注释，学习下
原理，是先把二进制对象读出来，生成临时图片文件，再绑定到控件就可以了。
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对象
Public Function SaveFileToDB(ByVal Filename As String, dbField As ADODB.Field, Optional PackageSize As Long = 8192&) As Long
On Error GoTo errHandle
Dim lngActualSize As Long, lngCurrentSize As Long
Dim bTemp() As Byte
Dim hFile As Long
Dim i As Integer
Dim lChunkCount As Long
Dim lChunkRemainder As Long
lngActualSize = FileLen(Filename)
lngCurrentSize = 0
If lngActualSize <= 0 Then
Err.Raise ERR_SIZE_EQU_OR_LESS_ZERO, "writeFileToDB"
End If
'读取文件内容
hFile = FreeFile()
Open Filename For Binary As hFile
ReDim bTemp(PackageSize) '临时存贮块
lChunkCount = LOF(hFile) \ PackageSize '取块数
lChunkRemainder = LOF(hFile) Mod PackageSize
If lChunkRemainder > 0 Then lChunkCount = lChunkCount + 1
For i = 1 To lChunkCount
Get hFile, , bTemp '从文件中取出一块
dbField.AppendChunk (bTemp) '将块写入字段中
Next
Close #1
SaveFileToDB = 0
Exit Function
errHandle:
SaveFileToDB = Err.Number
End Function
Public Function GetFileFromDB(dbField As ADODB.Field, vdata As Variant, Optional PackageSize As Long = 8192&) As Long
' Optional ByVal SaveAs As String = "",
'如果SaveAs为空串则保存在vData这个变体类型中，否则保存在文件中
On Error GoTo errHandle
Dim i%, lngActualSize As Long, lChunkCount As Long
Dim vTemp As Variant, bTemp() As Byte
Dim hFile As Long
lngActualSize = dbField.ActualSize
If lngActualSize <= 0 Then
Err.Raise ERR_SIZE_EQU_OR_LESS_ZERO, "getFileFromDB"
End If
lChunkCount = lngActualSize \ PackageSize
If (lngActualSize Mod PackageSize <> 0) Then
lChunkCount = lChunkCount + 1
End If
hFile = FreeFile()
'Open "" & App.Path & "" & " \Temp.Temp" For Binary As hFile
Open "" & App.Path & "" & "\Temp.Temp" For Binary As hFile
For i = 1 To lChunkCount
bTemp = dbField.GetChunk(PackageSize)
Put #hFile, , bTemp
Next
Close
GetFileFromDB = 0
Exit Function
errHandle:
GetFileFromDB = Err.Number
End Function
Private Sub cmdGet_Click()
'重新打开记录集，刷新记录
Set ADORst = Nothing
Set ADOCon = Nothing
ADOCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "" & "\照片库.mdb;Persist Security Info=False"
ADORst.Open "select * from Info Where Name='" & UserNames.Text & "'", ADOCon, adOpenDynamic, adLockOptimistic
'打开一个ADO动态集 表名为table
If ADORst.EOF = False Then
Else
MsgBox "没有这条记录", vbCritical, "提示:"
Exit Sub
End If
Set Adodc1.Recordset = ADORst '将动态集赋给ADO控件
Set ADOFld = ADORst("Photo") '给ADODB.Field对象赋值
Call GetFileFromDB(ADOFld, vdata) '调用字程序，给第三个字段（image）赋值
Image1.Picture = LoadPicture("" & App.Path & "" & "\Temp.Temp") '从临时文件加载图片
Kill ("" & App.Path & "" & "\Temp.Temp") '删除临时文件
End Sub
Private Sub cmdPreView_Click()
'显示打开文件的公用对话框，选择需要加入数据库的图片
CommonDialog1.Filter = "图片文件|*.bmp;*.ico;*.jpg;*.gif;*.jpeg"
CommonDialog1.ShowOpen
Filename = CommonDialog1.Filename
Text1.Text = CommonDialog1.Filename
Image0.Picture = LoadPicture(Filename) '预览图片
End Sub
Private Sub cmdSave_Click()
Set ADORst = Nothing
Set ADOCon = Nothing
ADOCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "" & "\照片库.mdb;Persist Security Info=False"
ADORst.Open "select * from Info Where Name='" & txtAddName.Text & "'", ADOCon, adOpenDynamic, adLockOptimistic
'打开一个ADO动态集 表名为table
Set Adodc1.Recordset = ADORst '将动态集赋给ADO控件
If ADORst.EOF = True Then
ADORst.AddNew '新增记录
ADORst("Name").Value = txtAddName.Text '给动态集的第一个字段赋值
'ADORst("ID").Value = txtAddID.Text '给动态集的第二个字段赋值
Set ADOFld = ADORst("Photo") '给ADODB.Field对象赋值
Call SaveFileToDB(Filename, ADOFld) '调用字程序，给第三个字段（image）赋值
ADORst.Update
Else
MsgBox "已有此条记录", vbCritical, "提示:"
End If
End Sub
Private Sub cmdUpdate_Click()
'重新打开记录集，刷新记录
ADORst.Close
ADOCon.Close
Set ADORst = Nothing
Set ADOCon = Nothing
ADOCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "" & "\照片库.mdb;Persist Security Info=False"
ADORst.Open "select * from Info", ADOCon, adOpenDynamic, adLockOptimistic
Set Adodc1.Recordet = ADORst
End Sub
Private Sub Form_Unload(Cancel As Integer)
'记得关闭打开的数据库，释放资源
Set ADORst = Nothing
Set ADOCon = Nothing
End Sub

CType是转成字节码，你看错了吧，好像是CByte..有点忘了，ACCESS好像不支持手动保存图像，思路是对通过字节流读取图片，但是最好还是不要存数据库了，access存图片字节数据有限，经常只能存很小的图片，大的图片存不下

我有很多年的ACCESS2007与VB的工作了，从来就没有把图片载入数据库，体积过大，备份数据库很慢，从来都是用动态路径，做一个资源库，与连接上去，

---

武穴市15038522671： VB高手请进,从ACCESS读取图片显示的问题 - ？
舟苛盐酸： 问题已经解决了.Dim pic() As Byte = CType(tbl.Rows(0).Item(＂img1＂), Byte()) Dim mem As New MemoryStream(pic, &H9A, pic.Length - &H9A) pic1.Image = Image.FromStream(mem) 如上就OK了, 偏移量 GIF 是 9A, BMP 是 4A--------------------------------------- 确认: 你的图片是如何存入ACCESS的? 那就对了,这就是问题所在.ACCESS本身会给OLE字段添加额外的附加信息,所以显示错误.解决方法请HI 联系我

武穴市15038522671： VB怎么样读取ACCESS里的图片?？
舟苛盐酸： 那就要看你数据库是以什么方式存的数据. 如果数据库里面存的是图片的路径,那就直接指向图片所在路径就可以了; 如果你是以byte字节来存的,那就要通过IO流的方式来读取.

武穴市15038522671： 求助用VB连接Access数据库来显示图片？
舟苛盐酸： 你好,连接数据库的过程是比较简单的,可以用data控件或者是adodc控件,建议你单独弄一个文件夹来放图片. 利用fso对象遍历目录将图片名称写入数据库.然后你再分别为他们添加说明. 不建议你将图片文件存入数据库的,这样会增加数据库的大小.

武穴市15038522671： 怎样用vb 的image控件读取ACCESS中以二进制保存的图片 - ？
舟苛盐酸： 1、从数据库中显示所需要的图片第一步首先打开数据库,看有没有要查找的内容,有则继续执行,没有就退出 RS.Source = ＂select * from Info Where Name='＂ & sparaName &＂';＂RS.ActiveConnection = ＂UID=;PWD=;DSN=TestDB;＂RS....

武穴市15038522671： 关于VB 6 怎样读取Access数据库中的图片(ole类型数据)和调用chn帮助文件 - ？
舟苛盐酸： 给你个示例,下面是读取数据库中的二进制数据,并存放到指定的地方的,读取图片的,应该差不多 strSQL = ＂select * From CodeFile where CodeID=＂ & ID Rs.Open strSQL, Conn, 1, 3 While Not Rs.EOF FileName = Rs(＂FileName＂).Value ...

武穴市15038522671： vb中怎么access从数据库中读取数据(包括图片的路径数据)并显示成一个表格的形势 类似Datagrid那样? - ？
舟苛盐酸： var mycars = new Array() Composite comp2 = new Composite(＂Composite XY＂); comp2.Add(new Leaf(＂Leaf XYA＂)); comp2.Add(new Leaf(＂Leaf XYB＂)); root.Add(comp2); root.Add(new Leaf(＂Leaf C＂));

武穴市15038522671： VB 6 中 怎么读取Access数据库中的图片(数据类型OLE) - ？
舟苛盐酸： 把那个IMAGE控件的属性直接射应到那个 ACCESS控件 就自然出来了

武穴市15038522671： vb.net+access数据库:怎样实现图片的读取与保存？
舟苛盐酸： 首先 ACCESS 的表结构,测试方便的愿意只用了两个字段 表名table1字段 1 ID 数字型2 PIC OLE 对象 以下代码Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim pic As ...

武穴市15038522671： 怎么用vb 的image控件读取access表中的二进制图像? 你知道的简便方法?谢谢 - ？
舟苛盐酸： dq.Open ＂Select * from picture where id like'＂ & pa & ＂'＂, myconn, 1, 2 Set Image1.DataSource = Nothing Set Image1.DataSource = dq Image1.DataField = ＂pic＂ dq.Close 你的二进制图像要先存入ACCESS表中,命名picture,id可以用自动...

武穴市15038522671： VB,在access中存储图片路径、读取图片到picturerbox方法 - ？
舟苛盐酸： image字段是用于储存二进制流Private m_objPicture As StdPicturePublic Function getSignaturePicture() As StdPicture '---获得用户对应的签字图片 Dim objSQL As CSQL '---存储临时文件名 Dim TempFile As String Dim fso As New Scripting....