access高手进

来源：百度知道 编辑：UC知道 时间：2024/05/21 20:05:22
我用access中ole存储了图片,但是没办法在vb中显示,请问怎么显示access图片?或者只要把图片在vb中显示就可以的,图片放在数据库就可以了!!!谢谢
可以再说清楚点吗?我对数据库什么也不懂啊!!!代码添加到那啊??可以把你的油箱留下吗?很简单的一个小程序,麻烦您帮实现一下!我把我所有的积分给你了!!!方便的话加我QQ365109662 谢谢!

比如图片保存在表table1中，TABLE1有ID字段和PIC字段，其中PIC字段是用来存储图片的
piclink=rs("PIC")
<img src="piclink">

很多兄弟在问关于VB6读写数据库中的图片的问题，在此有一例，希有所启发。
1，以人名和相关图片为例说明，数据库为Access，有如下字段：Name char,picture OLE object,FileLength Number。当为ms sql时，将picture改为lob即可。
2，示例包含control：commom dialog,picture,listbox。
源码如下：
Option Explicit

Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Const MAX_PATH = 260

Private m_DBConn As ADODB.Connection

Private Const BLOCK_SIZE = 10000
'注释： Return a temporary file name.
Private Function TemporaryFileName() As String
Dim temp